Run-Time Error when Trying to Populate Cells

[midoop]

Hello All,

I am trying to populate cells with a date that is located next to a cell with the word "Visit."

This is my code:

lRow = Cells(Rows.Count, "A").End(xlUp).Row


Do While True
If Cells(lRow, 6) = "Visit" Then
    sLastValue = Cells(lRow, 5)
Else
    Cells(lRow, 5) = sLastValue
End If

lRow = lRow - 1

Loop

I get a run-time error 1004 (Application defined or object defined error) and when I hit "debug" the part in red font is the problem area.
The weird thing though is when I look at my spreadsheet, the code works. It does what I want. But this code is a small part of a larger macro, so the error causes my macro to stop running. Any and all help is much appreciated!

[gyclone]

Change:

Do While True

to:

Do While lRow > 0

You're getting the error because you're trying to run the code on row 0, which doesn't exist. It's appears to be doing what you want because all the other rows are affected before lRow = 0.

[hulpeloos]

not sure since we have only part of code and no clue how sheets is populated but put this above the 'red' line

msgbox lRow

and let us know what it says , probably zero hence it errors

[midoop]

I change "Do While True" to "Do While lRow > 0" and it worked! YAY!! Thank you!