Sayfalar arası veri aktarma formülü

[seddur]

Merhaba.Ekran alıntısında görünen VERİLER sayfasındaki bilgileri İsim("G" sutunu) ve Yıl olarak ("D" sutunu) süzerek DÖKÜM sayfası A:L aralığına formül ile listelemek istiyorum.İsim için başvuru hücresi DÖKÜM sayfası A1 hücresinde,yıl için başvuru hücresi DÖKÜM sayfası H1 hücresindedir.Yani İlgili kişinin 2022 veya 2023 yıllarına ait yaptığı ödemeler listelenmek istenmektedir.Yardımcı olacak arkadaşa Teşekkür Ediyorum.

 

[seddur]

Makroda yazılabilir.Ben aşağıdaki kodu çalıştıramadım.DÖKÜM sayfasındaki Combobox1'de yıllar,"A1" hücresinde ise isim var.Koyu olan satırı çalıştırmıyor.Ama sadece isme göre kod yazarsak -If s1.Cells(i, "g") = s2.Range("a1") then şeklinde kod yazıldığında listelemeyi yapıyor ikinci şartı kabul etmiyor.

Dim s1, s2 As Worksheet
Dim i As Integer
Dim son2, son1 As Long
Set s1 = Sheets("VERİLER")
Set s2 = Sheets("DÖKÜM")

son1 = s1.Range("b" & Rows.Count).End(xlUp).Row
s2.Range("a2:AJ65000").ClearContents
For i = 2 To son1
If s1.Cells(i, "g") = s2.Range("a1") And s1.Cells(i, "d") = ComboBox1 Then
son2 = Range("b" & Rows.Count).End(xlUp).Row + 1
s1.Range("b" & i & ":L" & i).Copy s2.Cells(son2, "b")
End If
Next

 

[uzmanamele]

Merhaba

Muhtemelen sayı-metin karşılaştırması yapıldığı için şart gerçekleşmiyor
ComboBox*1 veya ComboBox.Value olarak deneyiniz.

 

[seddur]

Tamamdır,çalıştı.Sağolasın.