textbox arama

Cevapla
sb1987
Mesajlar: 5
Kayıt: Cmt Ara 23, 2023 9:41 am
Meslek: Muhasebeci
Adınız: ŞEREF
Soyadınız: BAĞ

textbox arama

Mesaj 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.
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
karisma61
Mesajlar: 16
Kayıt: Çrş Eki 11, 2023 1:56 pm
Meslek: Memur
Adınız: Ahmet
Soyadınız: KARIŞMA

Re: textbox arama

Mesaj 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
Cevapla
  • Benzer Konular
    Cevaplar
    Görüntüleme
    Son mesaj