Forma veri getirme

[igultekin2000]

iyi günler, çalışma sayfalarından forma veri getiriyorum. "AC-KAPA" sayfasından gelen veriler yanlış oluyor. isim aranan sütün ve verilerin çekileceği sütün da doğru, çözemedim.

Private Sub ComboBox1_Change()

Set s = Sheets("ANASAYFA")
    ADI = Trim(ComboBox1.Text)   'aranan isim aramadaki comboBox
    On Error Resume Next
    Satir = s.Range("A:A").Find(ADI).Row
    If Satir = 0 Then
    Exit Sub
    End If
       
    TextBox2 = s.Cells(Satir, "B")
    TextBox3 = s.Cells(Satir, "C")
    TextBox4 = s.Cells(Satir, "D")
    TextBox5 = s.Cells(Satir, "A")
    TextBox6 = s.Cells(Satir, "J")
    TextBox7 = s.Cells(Satir, "G")
    TextBox8 = s.Cells(Satir, "H")
    TextBox9 = s.Cells(Satir, "I")
    TextBox11 = s.Cells(Satir, "F")
    TextBox10 = s.Cells(Satir, "E")
    TextBox12 = s.Cells(Satir, "N")
    
 Set s = Sheets("MAIL")
    ADI = Trim(TextBox5.Text)   'aranan isim aramadaki comboBox
    On Error Resume Next
    Satir = s.Range("B:B").Find(ADI).Row
    If Satir = 0 Then
    Exit Sub
    End If
    TextBox13 = s.Cells(Satir, "C")

 Set s = Sheets("AC-KAPA")
    ADI = Trim(ComboBox1.Text)   'aranan isim aramadaki comboBox
    On Error Resume Next
    Satir = s.Range("H:H").Find(ADI).Row
    If Satir = 0 Then
    Exit Sub
    End If
    TextBox14 = s.Cells(Satir, "J")
    
  Set s = Sheets("TELEFON")
    ADI = Trim(ComboBox1.Text)   'aranan isim aramadaki comboBox
    On Error Resume Next
    Satir = s.Range("B:B").Find(ADI).Row
    If Satir = 0 Then
    Exit Sub
    End If
    TextBox15 = s.Cells(Satir, "C")
    TextBox16 = s.Cells(Satir, "D")
    TextBox17 = s.Cells(Satir, "E")

  Set s = Sheets("SIFRELER")
    ADI = Trim(ComboBox1.Text)   'aranan isim aramadaki comboBox
    On Error Resume Next
    Satir = s.Range("B:B").Find(ADI).Row
    If Satir = 0 Then
    Exit Sub
    End If
    TextBox18 = s.Cells(Satir, "C")
    
  Set s = Sheets("BAYKUR")
    ADI = Trim(ComboBox1.Text)   'aranan isim aramadaki comboBox
    On Error Resume Next
    Satir = s.Range("B:B").Find(ADI).Row
    If Satir = 0 Then
    Exit Sub
    End If
    TextBox19 = s.Cells(Satir, "F")
    
    End Sub