Help with vlookup cell VBA

[Excelnoobisme]

Hi,

I have a worksheet name A, on cell A1 is the date.

If i open another worksheet name B, there are pre-defined date on Column A(i.e. Mar 1 to 30) where in between each date there are 10 empty row.
Hence Mar 1 on cell A1, Mar 2 on cell A11 and Mar 3 on cell A21........

How can i write a marco that if i run on worksheet A, it will see the date on cell A1 and lookup to Sheet B and select 2 rows below after the same date.
(example date on cell A1 in worksheet A is Mar 3, so it will select cell A23 on worksheet B)

any help will be greatly appreciated.

 

[Excelnoobisme]

My mistake, it work now. Thanks so much

 

[Excelnoobisme]

Im sorry, how i can make it paste value instead?

 

[VoG]

Try

Sub test()
Dim Found As Range
Set Found = Workbooks("B.xls").Sheets("Sheet2").Columns("A").Find(what:=Workbooks("A.xls").Sheets("Sheet1").Range("A1").Value, LookIn:=xlValues, lookat:=xlWhole)
If Found Is Nothing Then
    MsgBox "Not found"
Else
    Workbooks("A.xls").Sheets("Sheet1").Range("C2:C5").Copy
    Workbooks("B.xls").Sheets("Sheet2").Range(Found.Address).Offset(2).PasteSpecial Paste:=xlPasteValues
End If
End Sub

 

[Excelnoobisme]

Thanks alot!!!!