Bul listele

[serif11]

Arkadaşlar selam.
Textbox1'e girdiğimiz veriyi, tüm çalışma sayfalarının A sütunlarında arayıp, B sütununda bulunan veriyi listbox1'e yazacak.
Umarım anlatabilmişimdir. Cep telefonumdan bağlandığım için dosya ekleme olanağım yok.
Şimdiden teşekkürler.

 

[serif11]

Sorumu güncellemek istiyorum

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub TextBox1_Change()
    
    Dim i As Integer, c As Range, Adr As String
    
    ListBox1.Clear
    
    For i = 1 To Worksheets.Count
        With Sheets(i).[A:A]
            Set c = .Find(TextBox1.Value)
            If Not c Is Nothing Then
                Adr = c.Address
                Do
                    ListBox1.AddItem Sheets(i).Cells(c.Row, "B")
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> Adr
            End If
        End With
    Next i
    
End Sub

.

 

[serif11]

Ömer Bey.
İlginize, bilginize, emeğinize sağlık.
Süperrrrrrrrrr
Çok teşekkür ederim.
Ufak iki ilave ricam olacak.
1) Girilen parça no yoksa msgbox açılıp "bu numarada parça yoktur" diye uyarsın.
2) Bulduğu miktarın yanına "adet" yazsın.
Tekrar teşekkürler.

 

[Ömer]

Bu şekilde deneyin.

Private Sub TextBox1_Change()
    
    Dim i As Integer, c As Range, Adr As String, a As Long
    
    ListBox1.Clear
    If TextBox1.Value = "" Then Exit Sub
    
    a = 0
    For i = 1 To Worksheets.Count
        With Sheets(i).[A:A]
            Set c = .Find(TextBox1.Value)
            If Not c Is Nothing Then
                Adr = c.Address
                Do
                    ListBox1.AddItem Sheets(i).Cells(c.Row, "B") & " Adet"
                    Set c = .FindNext(c)
                    a = a + 1
                Loop While Not c Is Nothing And c.Address <> Adr
            End If
        End With
    Next i
    
    If a = 0 Then
        MsgBox "Veriyi Bulamadım", vbInformation, "excel.web.tr"
        TextBox1 = ""
    End If
    
End Sub

.

 

[serif11]

Süpersiniz.
Tanrım gönlünüze göre versin.
Müsaitseniz ikinci adıma da bakabilir misiniz?