vba script to lookup and place

[edward233]

Hi
Im trying to write a vba script to

Lookup data in col g on page 2 once it finds data lets say in g4 it copys data in b4
and places in sheet1 b2 then it continues down g in shee2 finds data in g15 copys data in b15 places it on sheet1 b3 and so on till it gets to g40 on sheet2.

any help appritated.
thanks

ed

 

[edward233]

Hi
correction

Lookup data in col g on sheet2 once it finds data lets say in g4 it copys data in b4
and places in sheet1 b2 then it continues down g in shee2 finds data in g15 copys data in b15 places it on sheet1 b3 and so on till it gets to g40 on sheet2.

any help appritated.
thanks

ed

 

[VoG]

Try

Sub test()
Dim i As Integer, j As Integer
j = 1
With Sheets("Sheet2")
    For i = 1 To 40
        If .Range("G" & i) <> "" Then
            j = j + 1
            Sheets("Sheet1").Range("B" & j).Value = .Range("B" & i).Value
        End If
    Next i
End With
End Sub