- Katılım
- 5 Eylül 2007
- Mesajlar
- 1,247
- Excel Vers. ve Dili
- ofis 2010
- Altın Üyelik Bitiş Tarihi
- 21-07-2024
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.
Kod:
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