Firstly, Id like to thank for the trying to help, but please note that
i dont know anything about visual basics and how to activate them, so
if there is any more clarifications about visual basics and how to
implement them on excel will be great.

Thanx for ur time
believe me im dying to get this




On Apr 24, 12:10 am, JLGWhiz
wrote:
See If this will work:

Sub abc()
lstRw = Worksheets(2).Cells(Rows.Count, 4).End(xlUp).Row
Set scrhRng = Worksheets(2).Range("D1:D" & lstRw)
For Each i In scrhRng
sRng = i.Address
With Worksheets(1).Range("K1:K" & Cells(Rows.Count, 11).End(xlUp).Row)
Set c = .Find(i.Value, LookIn:=xlValues)
If Not c Is Nothing Then
fRng = c.Address
Range(fRng).Offset(0, 1).Copy Worksheets(2).Range(sRng).Offset(0, 1)
End If
End With
Next
End Sub



" wrote:
Hi,

I have two sheets where I have to drag data from the first sheet to
the second one which plays the role of a report.
I am not being abele to get the exact vlookup formula.

to clear myself take this exapmle,

Sheet A which contains the data
Sheet B where the results should appear

if a cell in sheet B (D5) matches with a cell within a column in sheet
A (K6), then E5 in sheet B should equal L6 in sheet A.

I hope it is clear enough,

please need help.

Abosteif- Hide quoted text -

- Show quoted text -