Using For Next???

[Alpacino]

I have this:
If IsEmpty(Sheets(Sheet1).Range("F2") Then
Sheets(Sheet1).Range("A2").copy Sheets(Sheet2.Range("A2")
End If

I would like this if to work for each row in F2- F259
So example if cell F3 is empty copy A3 to sheet2 A3
If cell F4 is empty copy A4 to sheet2 A4

Can anyone help please??

Thanks
Alan

 

[VoG]

Try

Sub test()
Dim i As Long
For i = 2 To 259
    If Sheets("Sheet1").Range("F" & i).Value = "" Then Sheets("Sheet1").Range("A" & i).Copy Sheets("Sheet2").Range("A" & i)
Next i
End Sub

 

[Alpacino]

Thanks for reply VoG
So will this sub produce a list of cell in sheet2 with names (if sheet1 column A is full of names???)

 

[VoG]

Yes, provided sheet1 column F is blank or contains a formula that evaluates to "".

 

[Alpacino]

Works a treat!!
Thank you