Farklı sayfadan veri alamama nedeni?

[mars2]

İyi Günler;

Bilgi formuna liste ve anasayfadan veri almak için aşağıdaki kodla listeden verileri almaktayım ancak anasayfadan verileri alamamaktayım sebebi neden olabilir

anasaydaki T sutununda metin bulunmaktadır.

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

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

Set s1 = Sheets("bilgiformu")
Set s2 = Sheets("liste")
Set s3 = Sheets("anasayfa")

For Each bul In s2.Range(("B5:B5000"))
If bul = Target.Value Then sat = bul.Row
Next
If sat = "" Then

MsgBox "ARADIĞINIZ KİŞİ BULUNAMADI.", vbInformation, "BİLGİ"
GoTo 10
'Exit Sub
End If

s1.Cells(9, "D").Value = s2.Cells(sat, "D").Value
s1.Cells(10, "D").Value = s2.Cells(sat, "E").Value

10:

For Each bul In s3.Range(("B2:B5000"))
If bul = Target.Value Then sat = bul.Row
Next
If sat = "" Then

Exit Sub
End If

s1.Cells(32, "D").Value = s3.Cells(sat, "T").Value

Set s1 = Nothing
Set s2 = Nothing
Set s3 = Nothing

End Sub

 

[mars2]

İyi günler;
Konu hakkında yardımlarınızı beklemekteyim.