1. sayfa (Toplam 1 sayfa)
textbox arama
Gönderilme zamanı: Cmt Ara 23, 2023 9:50 am
gönderen sb1987
textbox1'e elle barkod yazdığımda (tamamını) o ürünü bulup getiriyor. ben mesela sondan 5 veya 6 rakamını girdiğimde de getirmesini istiyorum. bi kaç deneme yaptım ama başarılı olamadım.
Re: textbox arama
Gönderilme zamanı: Pzt Ara 25, 2023 5:34 pm
gönderen karisma61
Lütfen denemeden önce programınızın yedeğini alınız.
Textbox1_Exit'ini pasife alıp şu kodlarla denermisiniz.
Kod: Tümünü seç
Private Sub TextBox1_Change()
Dim ws As Worksheet
Dim searchData As String
Dim foundCell As Range
' Çalışma sayfasını (worksheet) tanımla
Set ws = ThisWorkbook.Sheets("BSRT70")
' TextBox1'den veriyi al
searchData = Me.TextBox1.Value
' Veriyi A sütununda ara
Set foundCell = ws.Columns("A:A").Find(What:=searchData, LookIn:=xlValues, LookAt:=xlPart)
If Not foundCell Is Nothing Then
' Eşleşme bulunduysa TextBox2, TextBox5 ve TextBox6'ya değerleri ata
Me.TextBox2.Value = foundCell.Offset(0, 1).Value ' B sütunu
Me.TextBox5.Value = foundCell.Offset(0, 4).Value ' E sütunu
Me.TextBox6.Value = foundCell.Offset(0, 6).Value ' G sütunu
Else
' Eşleşme bulunamadıysa TextBox2, TextBox5 ve TextBox6'yı boşalt
Me.TextBox2.Value = ""
Me.TextBox5.Value = ""
Me.TextBox6.Value = ""
End If
End Sub