textbox arama
-
- Mesajlar: 7
- Kayıt: 23 Ara 2023, 09:41
- Meslek: Muhasebeci
- Adınız: ŞEREF
- Soyadınız: BAĞ
textbox arama
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.
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
-
- Mesajlar: 16
- Kayıt: 11 Eki 2023, 13:56
- Meslek: Memur
- Adınız: Ahmet
- Soyadınız: KARIŞMA
Re: textbox arama
Lütfen denemeden önce programınızın yedeğini alınız.
Textbox1_Exit'ini pasife alıp şu kodlarla denermisiniz.
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