"Anatablo" sayfasından "liste" sayfasındaki isimlere göre veri alma

[mars2]

İyi Akşamlar;

Aşağıdaki kodlarla "anatablo" isimli çalışma sayfasından "liste" sayfasındaki A3 hücresindeki bilgiye göre veriler gelmektedir.
Ancak, "liste" sayfasındaki A sutundaki (A1:A300) isimlerin yazıldığı satırların karşısndaki B C D sutunlarına veri almak istiyorum.

On Error Resume Next

If Intersect(Target, [A3]) Is Nothing Then Exit Sub
If Target.Value = Empty Then Exit Sub

Set s1 = Sheets("liste")
Set s2 = Sheets("anatablo")

For Each bul In s2.Range("B5:B5000")
If bul = Target.Value Then sat = bul.Row
Next
If sat = "" Then
MsgBox "ARADIĞINIZ BİLGİ BULUNAMADI.", vbInformation, "BİLGİ"

Exit Sub
End If
s1.Cells(8, "B").Value = s2.Cells(sat, "C").Value
s1.Cells(9, "B").Value = s2.Cells(sat, "D").Value
Set s1 = Nothing
Set s2 = Nothing

 

[çıtır]

Aşağıdaki şekilde deneyiniz.liste sayfası B2:B19 deki değişikliklerde bilgi alır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:B19]) Is Nothing Then Exit Sub
If Target.Value = Empty Then Exit Sub
Set s1 = Sheets("liste"): Set s2 = Sheets("anatablo")
For Each bul In s2.Range("B6:B500")
If bul = Target.Value Then sat = bul.Row
Next
If sat = "" Then
MsgBox "ARADIĞINIZ BİLGİ BULUNAMADI.", vbInformation, "BİLGİ"
Exit Sub
End If
If WorksheetFunction.Sum(s2.Range(s2.Cells(sat, 28), s2.Cells(sat, 29))) = 0 Then
MsgBox "ÖDEME YAPILMAMIŞ.", vbInformation, "BİLGİ"
Target = ""
Exit Sub
End If
s1.Cells(Target.Row, "C").Value = s2.Cells(sat, "C").Value
s1.Cells(Target.Row, "D").Value = s2.Cells(sat, "AB").Value
s1.Cells(Target.Row, "E").Value = s2.Cells(sat, "AC").Value
Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[mars2]

Sayın Çıtır;
Cevabınız için teşekkür ederim.

Acaba, Anatablo sayfasında ismi olup hiç ödeme yapmadığımız kişinin adını liste sayfasının A sutununa yazdığımızda liste sayfasında uyarı vererek kayıt yapmaması mümkün mü?

 

[çıtır]

Sayın mars2;
Sorunuzu sizin kotlarınıza bakarak düzenledim.Ödeme yapmadığını nasıl tespit ediyorsunuz bilmiyorum.Açıklama getirirseniz düzenlemeye çalışırım.

 

[mars2]

Sayın Çıtır;
İlginiz için teşekkürler

Konu hakkında hazırladığım örnek ektedir.

 

[çıtır]

Sayın mars2;
#2 Nolu iletideki kod dosyanıza göre yeniden düzenleniştir.

 

[mars2]

Sayın Çıtır
İlgi ve cevabınız için teşekkürler.

 

[çıtır]

Sayın Çıtır
İlgi ve cevabınız için teşekkürler.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[mars2]

İyi Günler;
Yukarıdaki kodu Buton ile yapmak için ne gibi değişiklikler yapılması gerekmektedir.