If Statement Kills the Do Loop

[mmccall]

I am trying to loop through data with the same if statement but once the if statement is fulfilled the first time the loop no longer calls the if statement for some reason, can someone please help?

here is my code:

*Row = 6 at this point

Do Until Row = 36

If ActiveSheet.Cells(Row, Col).Value2 = "V" Then
Sheets("Vacation").Select
ActiveSheet.Cells(Row, 3).Select
ActiveCell = ActiveSheet.Cells(Row, 3).Value2 + 1
ActiveCell.End(xlToRight).Select
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = today
End If
Row = Row + 1

Loop

 

[My Aswer Is This]

Tell us what your trying to do.

 

[Eric W]

2 thoughts:

1) Your problem is probably because if the IF is executed, you select the Vacation sheet and never select your original sheet again. You may want to change the IF to something like:

If Sheets("Sheet1").Cells(Row, Col).Value2 = "V" Then

2) The word "Row" is a bad choice for a variable, since it is a reserved word to VBA. You can cause some very hard-to-find errors doing that. That's why you see a lot of "MyRow" and "MyCol" variables in code.

Hope this helps!

 

[mmccall]

2 thoughts:

1) Your problem is probably because if the IF is executed, you select the Vacation sheet and never select your original sheet again. You may want to change the IF to something like:

If Sheets("Sheet1").Cells(Row, Col).Value2 = "V" Then

2) The word "Row" is a bad choice for a variable, since it is a reserved word to VBA. You can cause some very hard-to-find errors doing that. That's why you see a lot of "MyRow" and "MyCol" variables in code.

Hope this helps!

Problem 1 fixed it, thank you so much I knew I was over thinking it!

 

[Eric W]

Glad to help.