Puantaj aktarımı

[kelkitli]

Değerli dostlar bir puantaj cetveline eklemek üzere hazırlamaya çalıştığım dosya ektedir. Yapmaya çalıştığım: Sayfa1 A1:A100 arası verileri sırayla Sayfa2 A sütununda Userform1 de Yazılı olan tarih aralığında aratıp (Mesela Sayfa2 A1deki veri B1 deki Tarihte C1 deki Fiili işlemiş) o tarihteki fiili Sayfa1 de o kişinin Karşılık gelen tarihle kesiştiği hücreye yapılan fiili yazdırmaya çalışıyorum. İlgilenen arkadaşlara teşekkür ederim.

 

[ileriexcel]

Şimdilik sayfa1 ve sayfa2 deki aynı olan verileri baz alarak bir deneme yaptım .
Sub test()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
For Each bak1 In s1.Range("a2:a50")
For Each bak2 In s2.Range("a2:a50")
If bak1 = bak2 Then
bak2.Offset(0, 2).Copy
bak1.Offset(0, 1).PasteSpecial
End If
Next
Next
End Sub

 

[kelkitli]

Merhaba Sayın İleriexcel verdiğiniz cevap için önce teşekkür ederim. Yalnız kod biraksak çalışma gösteriyor. Şöyle ki: UserFormdaki tarihleri hiç kullanmıyor. Orada TextBok1 ve TextBox2 içindeki tarihlerde arama yapması lazım. Sadece 02.01.2007 tarihine ait verileri 02.01.2007 ye kaydetmesi gerekirken 01.01.2007 ye kaydediyor. Gözden geçirirseniz.!