Makro ile başka sayfadan veri çekmek

[Schuba]

Yapmak istediğim şey sayfa1 in d7 hücresine veri girdiğim zaman
sayfa2 deki müşteri listesinden o isme karşilik gelen top tutar ve peşinatin
sayfa1 in d9 ve d10 hücresine gelmesi

Sayfa 2 teki müşteri listesinin konumu şöyle

Müşteri ismi = b27:b5000 arası
Top tutar = c27 :c5000 arası
Peşinat = c27:d5000 arası

Not bunu kod olarak istiyorum
düşeyara veya herhangi başka bir formül olarak istemiyorum.
iyiçalişmalar...

 

[Orion1]

Buyurun.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range
If Intersect(Target, [D7]) Is Nothing Then Exit Sub
Range("D9:D10").Value = Empty
Set k = Sheets("Sayfa2").Range("B27:B5000").Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    Range("D9").Value = k.Value
    Range("D10").Value = k.Offset(0, 1).Value
End If
End Sub

 

[Schuba]

Teşekkürler hocam çok güzel oldu..

 

[Orion1]

Teşekkürler hocam çok güzel oldu..

Rica ederim.
İyi çalışmalar.

 

[enogsis]

tamda böyle birşeye ihtiyacım var

 

[enogsis]

sayfa 1(rapor )da seçtiğim A-B-C-D-E verilerini, A-B-C-D-E sayfalarına yanındaki 3 satır ile kayıt yapacak .
bir makroya ihtiyacım var yardımcı olur musunuz.