Textbox a veri çağırma

[Erhan Köseoğlu]

Aşağıdaki kodlar ile sayfa4, A sütunundaki öğrenci numarası ile textbox1 e aynı sayfanın b sütunundaki isimleri çekmek istiyorum. comboboxta hangi numarayı seçersem seçeyim hep b2 deki isim geliyor. Nasıl değiştirmrm gerekir?

Private Sub ComboBox1_Change()
  Dim sa As Integer
    For sat = 2 To Sayfa4.Cells(65536, "a").End(xlUp).Row
        If Sayfa4.Cells(sat, "a") Like "*" & TextBox1 & "*" Then
            TextBox1 = Sayfa4.Cells(sat, "b").Value
            
        End If
    Next
End Sub

 

[Korhan Ayhan]

Selamlar,

ComboBox1 nesnesine verileri nasıl yüklüyorsunuz?

 

[Erhan Köseoğlu]

Ben hata veren kodları yazdım, Kart adlı userform, okuma listesindeki kodlar. Hata veriyor.

Private Sub UserForm_Initialize()
If Val(Application.Version) >= 9 Then
hWndForm = FindWindow("ThunderDFrame", Me.Caption)
Else
hWndForm = FindWindow("ThunderXFrame", Me.Caption)
End If
bCloseBtn = False
'SetUserFormStyle
TextBox1.PasswordChar = ""
KART.ComboBox1.RowSource = "ÖĞRENCİLER!A2:A" & [ÖĞRENCİLER!A65536].End(3).Row
End Sub
Private Sub ComboBox1_Change()
  Dim sa As Integer
    For sat = 2 To Sayfa4.Cells(65536, "a").End(xlUp).Row
        If Sayfa4.Cells(sat, "a") Like "*" & TextBox1 & "*" Then
            TextBox1 = Sayfa4.Cells(sat, "b").Value
            
        End If
    Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Gereksiz yere döngü işlemini yapmışsınız. RowSource metodunda nesnenin ListIndex özelliğini kullanabilirsiniz. Kodunuzu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub ComboBox1_Change()
    If ComboBox1 <> "" Then
        TextBox1 = Sheets("ÖĞRENCİLER").Cells(ComboBox1.ListIndex + 2, "B").Value
    Else
        TextBox1 = ""
    End If
End Sub

 

[Erhan Köseoğlu]

İlginize teşekkür ederim, sorun düzeldi.