Bilgi formuna farklı sayfalardan veri çekememe

[mars2]

İyi Günler;

aşağıdaki kodla bilgi formuna aynı anda isim ve liste isimli sayfalarından veri çekemiyorum nedeni ne olanbilir. yardımlarınız ile

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("P22000")) Is Nothing Then Exit Sub
If Target.Offset(0, 0) = "" Then
Target.Offset(0, 7).Value = ""
Target.Offset(0, 9).Value = ""
Else
Set ara = Sheets("isim").Range("B2:B2000").Find(Target.Offset(0, 0), , xlValues, xlWhole)
If Not ara Is Nothing Then
Target.Offset(0, 7).Value = Sheets("isim").Range("G" & ara.Row)
Target.Offset(0, 9).Value = Sheets("isim").Range("D" & ara.Row)

End If
End If

If Intersect(Target, Range("B5:B2500")) Is Nothing Then Exit Sub
If Target.Offset(0, 0) = "" Then

Else
Set ara = Sheets("liste").Range("B5:B2500").Find(Target.Offset(0, 0), , xlValues, xlWhole)
If Not ara Is Nothing Then
Target.Offset(0, 1).Value = Sheets("liste").Range("d" & ara.Row)
Target.Offset(0, 2).Value = Sheets("liste").Range("e" & ara.Row)
Target.Offset(0, 3).Value = Sheets("liste").Range("g" & ara.Row)
Target.Offset(0, 4).Value = Sheets("liste").Range("H" & ara.Row)
Targe

end sub

 

[mars2]

İyi Günler;

Bilgi formuna ilk önce B sutununa nosunu yazdığımda, "liste" sayfasından ona ait verileri, P sutuna ismini yazdığım zaman da ona ait verileri "isim" sayfadan almasını istemekteyim.

Bu konuda yardımlarınızı beklemekteyim.