Help With a Looping Task
 

Am new on macros. I need assistance to successfully loop thru a task.
The task is as follows: I have two long tables on different sheets. I
need to lookup and pick up date from the second table. I attempted
solving it by bringing the tables into one sheet but isnt running
properly.

Dim z As Long
Dim i As Long
z = 2
i = 2
Do While Range("A" & z) < ""
If Range("A" & z).Value = Range("E" & i).Value Then
Range("C" & z).Value = Range("F" & i).Value
z = z + 1
i = 2
Else
i = i + 1
End If
Loop

================================================== ============
sheet1 sheet2

Names Date Names Date
===== ====

AAICDLTD AAICDLTD 11-Jan-01
ABALUF ABANITO 27-Jul-01
ABIMACJ ABALUF 28-Aug-02
ABIMACJ 19-Nov-01
ADESEUN
26-May-03
ABALUF 28-Aug-02

Help With a Looping Task
 

Use the Vlookup function to do the work
-------
Sub Button1_Click()
Dim rng As Range
Dim i As Integer

With Worksheets("Data")
Set rng = .Range("a3:b5") 'make as long as you need
End With

For i = 1 To 3 ' how ever many cells there are

With Worksheets("Results") 'assuming the data you want goes to column b and
the lookup value is in Column A'
..Cells(2 + i, 2) = Application.WorksheetFunction.VLookup(.Cells(2 + i, 1),
rng, 2, 1)
End With

Next i

End Sub




"sylink" wrote in message
oups.com...
Am new on macros. I need assistance to successfully loop thru a task.
The task is as follows: I have two long tables on different sheets. I
need to lookup and pick up date from the second table. I attempted
solving it by bringing the tables into one sheet but isnt running
properly.

Dim z As Long
Dim i As Long
z = 2
i = 2
Do While Range("A" & z) < ""
If Range("A" & z).Value = Range("E" & i).Value Then
Range("C" & z).Value = Range("F" & i).Value
z = z + 1
i = 2
Else
i = i + 1
End If
Loop

================================================== ============
sheet1 sheet2

Names Date Names Date
===== ====

AAICDLTD AAICDLTD 11-Jan-01
ABALUF ABANITO 27-Jul-01
ABIMACJ ABALUF 28-Aug-02
ABIMACJ 19-Nov-01
ADESEUN
26-May-03
ABALUF 28-Aug-02

Help With a Looping Task
 

Thanks David. I'll give it a try as suggested.

sylink