Activecell offset without select 2

[UnsolvedCoding]

I have code that has to place notes in sequence from left to right. Column L holds the list of numbers to be pulled from the systme. Previously it was written as

i = 2

Do
' Get the number
sNumber = Range("L" & i).Select

' SQL Code goes here

' Used as a rolling variable with the activecell offset command
' to go to the right and enter existing notes
k = 3

While Not rsERDB.EOF

' Put the note into the correct cell
ActiveCell.Offset(0, k).Value = New_Note

' Move the offset to the right by one cell
k = k + 1

' Go to the next record in SQL
rsERDB.MoveNext

Wend

Loop

I don't know how but would like to offest to the right without using the select.

Anyone know how to do that?

 

[PHV]

Replace this:
ActiveCell.Offset(0, k).Value = New_Note
with this:
Cells(i + k, "L").Value = New_Note

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[SkipVought]

hi,

I avoid using the Select and Activate method, unless the situation call for it...

i = 2

Do
    ' Get the number
    sNumber = [b]Cells(i, "L").Value[/v]
     
    ' SQL Code goes here

    ' Used as a rolling variable with the activecell offset command
    ' to go to the right and enter existing notes
    k = 3
    
    While Not rsERDB.EOF

        ' Put the note into the correct cell
        [b]Cells(i, "L")[/b].Offset(0, k).Value = New_Note
        
        ' Move the offset to the right by one cell
        k = k + 1

        ' Go to the next record in SQL
        rsERDB.MoveNext
      
    Wend

Loop

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[PHV]

OOps, sorry for the typo:
Replace this:
ActiveCell.Offset(0, k).Value = New_Note
with this:
Cells(i, 12 + k).Value = New_Note

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[UnsolvedCoding]

Thanks guys - both ways work.

Skip - I totally agree and have been re-writing code to avoid select or activate. Code runs faster, the screen doesn't flash and it helps reduce user errors.