BUL butonu kodları

[DeliBalta58]

Arkadaşlar userform1 üzerinde bul butonu koyup arama yaptırdım.
Kodlar

Private Sub CommandButton3_Click()
'Bul
Worksheets("sayfa2").Select
    Dim bak As Range
    For Each bak In Range("B2:B" & WorksheetFunction.CountA(Range("B2:B65000")))
        If bak.Value = TextBox1.Text Then
            bak.Select
            
TextBox1.Value = ActiveCell 'Plakası
ComboBox1.Value = ActiveCell.Offset(0, 1)  'ARAÇ CİNSİ
TextBox2.Value = ActiveCell.Offset(0, 2) 'SÜRÜCÜ ADI SOYADI
ComboBox2 = ActiveCell.Offset(0, 3) 'VAR/YOK/YABANCI
ComboBox3 = ActiveCell.Offset(0, 4) ' SINIFI
TextBox3 = ActiveCell.Offset(0, 5) ' VERİLDİĞİ İL / İLÇE
TextBox4 = ActiveCell.Offset(0, 6) ' BELGE NO
ComboBox4 = ActiveCell.Offset(0, 7) ' TÜRÜ
TextBox5 = ActiveCell.Offset(0, 8) ' Saati
ComboBox5 = ActiveCell.Offset(0, 9) ' Takoğraf Alındı Evet / Hayır
ComboBox6 = ActiveCell.Offset(0, 10) ' Sürücü Belgesi Evet / Hayır
ComboBox7 = ActiveCell.Offset(0, 11) ' Ceza Uygulandı Evet / Hayır
ComboBox8 = ActiveCell.Offset(0, 12) ' 1.Ceza
ComboBox9 = ActiveCell.Offset(0, 13) ' 2.Ceza
ComboBox10 = ActiveCell.Offset(0, 14) ' 3.Ceza
TextBox6 = ActiveCell.Offset(0, 15) ' Ceza Puanı
TextBox7 = ActiveCell.Offset(0, 16) ' Açıklama

  Exit Sub
End If
Next bak

End Sub

Ancak Aradığımız kayıttan birden fazla varsa bunları liste halinde forma getirebilirmiyiz.
Yada başka ne gibi bir çözüm üretilebilir.

 

[Levent Menteşoğlu]

Formunuza bir listbox ekleytin ve tüm arama sonuçlarını bu listboxta listeleyin. Listboxa tıklayarak diğer bilgileride diğer nesnelere çağırabilirsiniz.

 

[DeliBalta58]

Öneriniz için Teşekkürler