macro to fill in rows with blanks

[hnyb1]

Hi.

Can anyone tell me what is wrong with this code? I know I've used an IF
statement in the past, but code fills in formula for all rows without IF
statement. As soon as I add IF statement, stops working entirely. Thanks,
in advance.

Sub trynext()

Sheets("Sheet3").Select
LastRow = Cells(Rows.Count, 3).End(xlUp).Row
With ActiveSheet
For rowi = 2 To LastRow
If Cells(i, 2) = "" Then
Cells(rowi, "b").Select
Cells(rowi, "b").Formula = "4/28/2009"
Cells(rowi, "e").Select
Cells(rowi, "e").Formula = "1"
End If
Next
End With
End Sub

 

[Gary''s Student]

i is undefined.

 

[Don Guillett]

Sub trynextSAS()
With Sheets("sheet3")
lr = .Cells(Rows.Count, 3).End(xlUp).Row
For i = 2 To lr
If .Cells(i, 2) = "" Then
.Cells(i, "b") = "4/28/2009"
.Cells(i, "e") = 1
End If
Next
End With
End Sub

 

[Susan]

this line

If Cells(i, 2) = "" Then

seems like it should be

If Cells(rowi, 2) = "" Then

in addition, this code:
Cells(rowi, "b").Select
Cells(rowi, "b").Formula = "4/28/2009"
Cells(rowi, "e").Select
Cells(rowi, "e").Formula = "1"

could be shortened up by removing the selects:
Cells(rowi, "b").Formula = "4/28/2009"
Cells(rowi, "e").Formula = "1"

hth

susan

 

[hnyb1]

Thanks so much! That was exactly it!!!

this line

If Cells(i, 2) = "" Then

seems like it should be

If Cells(rowi, 2) = "" Then

in addition, this code:
Cells(rowi, "b").Select
Cells(rowi, "b").Formula = "4/28/2009"
Cells(rowi, "e").Select
Cells(rowi, "e").Formula = "1"

could be shortened up by removing the selects:
Cells(rowi, "b").Formula = "4/28/2009"
Cells(rowi, "e").Formula = "1"

hth

susan

 

[Don Guillett]

Why select. Did you look at mine