Sayfadan Sayfaya arama kullanarak veri aktarımı.

[kelkitli]

Selamlar,
E2 hücresinde yazılı tarih hangi aya ait olursa o aya ait ayın bütün günleri (E2:AI aralığında ki) C2 hücresinde yazılı olan sicil no ları ile (örnek 81-524 sicil no lu kişi ayın 1 inde "3" olacak) kayıtları ÇALIŞMA isimli sayfada ayın aranan gününe bu sicil numarasına "3" yazmalı.

 

[kelkitli]

Değerli Dostlar Selamlar,
Hesapla isimli sayfada Aradığımız ayın tarihleri ile sicil numaralarnın kesiştiği hücredeki değerlerleri, Çalışma isimli sayfadaki tarihlerin sicil numarası ile kesiştiği hücreye eşitlenmesi için bir döngü yapılamazmı?

 

[Mahmut Kök]

İnşallah doğru anlamışımdır, aşağıdaki kodları dener misiniz?

Sub aktarma()
Set s1 = Sheets("HESAPLA")
Set s2 = Sheets("ÇALIŞMA")
For a = 3 To s1.Range("c65536").End(3).Row
sicil1 = s1.Cells(a, "c")
sicilsut = s2.Range("b2:bb2").Find(sicil1).Column
For b = 5 To 35
If s1.Cells(2, b) = Empty Then GoTo 6
ay1 = CDate(s1.Cells(2, b))
aysat = s2.Range("a4:a400").Find(ay1).Row
s2.Cells(aysat, sicilsut) = s1.Cells(a, b)
Next b
6
Next a
66
End Sub

 

[kelkitli]

Selamlar Sayın mesleki,
Doğru anlamışsınız ve doğru yazmışsınız. Tam istediğim gibi. Çok çok teşekkürler ederim, Sağol Varol emeğine bilgilerine sağlık.