Makro satır ve sütun koşullarını eşleyerek veri aktarmak

[hmtstc]

Merhaba hocam,

Ekteki dosyada yapmaya çalıştığım şey rapor sayfasında bulunan tarih ve vardiya verilerini performans sayfasındaki değerlerde aratıp eşleyip doğru hücreye performans değerini aktarmak istiyorum. Bunu makro ile yapmak istiyorum.

Formül ve koşulu yatay olarak bir şekilde kurabiliyorum ama tarih eşleştirmek nasıl olacak o konuda hiç bir fikrim yok malesef...

Yardım edenlere şimdiden teşekkürler...

http://s2.dosya.tc/server3/fvlkec/YILLIK_PERFORMANS_TAKIP_RAPORU.xlsx.html

 

[hmtstc]

Arkadaşlar çözdüm,

farklı bir yol ile yaptım.

For i = 7 To 21
If kod = Cells(i, 5) Then
satır = i
End If
Next i


For m = 6 To 382
If tarih = Cells(6, m) Then
sütun = m
End If
Next m

'
Sheets("performans").Cells(satır, sütun) = performans