BAŞKA SAYFADAN VERİ ALMA

[82_elbistan]

Üstatlar ekteki dosyada kasa sayfasında D3 hücresinde ekran alıntı resimde görüldüğü gibi listeden isim seçmem halinde C3 hücresine Bilanço sayfasından seçilen isim karşısındaki hesap no kasa sayfasının C3 hücresine getirmesidir. Yardım ederseniz memnun olurum.

 

[82_elbistan]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range
If Intersect(Target, [D3]) Is Nothing Then Exit Sub
Range("C3").Value = Empty
Set k = Sheets("BİLANÇO").Range("B5:B5000").Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
Range("C3").Value = k.Value
Range("D3").Value = k.Offset(0, 1).Value
End If
End Sub


Bu makro ile denedim olmadı yardım lütfen

 

[82_elbistan]

Yardım edecek üstatlar yok mu ?