diğer sayfadaki tarih karşısındaki değerleri çağırma

[idealimsin]

diğer sayfadaki tarih karşısındaki değerleri nasıl çağırabilirim

 

[muygun]

Merhaba;
Sayfa2 sayfasında B1 hücresine;
=EĞER($A1="";"";İNDİS(Sayfa1!$A:$G;KAÇINCI($A1;Sayfa1!$C:$C;0);SÜTUN()+3))
Formülünü uygulayıp sağa ve aşağı doğru çoğaltın.
İyi çalışmalar.

 

[Orion1]

Buyurunuz.
Dosyanız ektedir.

Sub tarih59()
Dim sh As Worksheet, k As Range, sat1 As Long, sat2 As Long
Dim i As Long
Sheets("Sayfa2").Select
Range("B:K").ClearContents
Application.ScreenUpdating = False
Set sh = Sheets("Sayfa1")
sat1 = sh.Cells(Rows.Count, "C").End(xlUp).Row
sat2 = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To sat2
    Set k = sh.Range("C1:C" & sat1).Find(Cells(i, "A").Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        Cells(i, "B").Value = k.Offset(0, 2).Value
        Cells(i, "C").Value = k.Offset(0, 3).Value
        Cells(i, "D").Value = k.Offset(0, 4).Value
    End If
    Set k = Nothing
Next
Application.ScreenUpdating = True
MsgBox "İşlem tamamlanmıştır." & vbLf & "evrengizlen@hotmail.com", _
    vbOKOnly + vbInformation, Application.UserName
Set sh = Nothing
End Sub