If then or do loop

[ericdv]

Hi,
I am using Excel 2007 with 2003 backward compatibility requirements. I am new to VBA. I am creating a macro that pulls into Excel an external worksheet, re-formats it and then saves it as a text file. I have just about everything written with one exception. I need to enter text ("Z 3") into column B, if there is any content in the corresponding row of column A. It sounds easy, but I haven't been able to get any of the sample code to work properly. I think I just don't have the syntax correct. I believe it can be done with an if-then, but a do loop might be better. Any help is greatly appreciated. Thanks!

 

[VoG]

Try

Sub Atest()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    If Range("A" & i).Value <> "" Then Range("B" & i).Value = "Z 3"
Next i
End Sub

 

[Scott Huish]

With a For Each loop:

Sub test()
Dim c As Range
For Each c In Range("A1:A" & Range("a" & Rows.Count).End(xlUp).Row)
    If c <> "" Then c.Offset(, 1) = "Z 3"
Next
End Sub

 

[ericdv]

VoG and HOTPEPPER,

Tested both and both work like a charm. Many thanks!!!