ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[alibuyuk66]

Merhaba Arkadaşlar.
Ekteki Dosyada listeboxta çekilen verilerin içinde
Textbox1 e içerir (Yani b sütunundaki parça adları veya barkodlarından 1 kaç harf yazınca o harf veya hece sütundaki verilerin içinde geçiyorsa süzsün)
Textbox2 ye de Açıklama sütunundan içinde geçen kelimelerden herhangi birtane yazdığımda da textbox1 le koordineli bir şekilde süzsün istiyorum. Ben yapmaya çalıştım fakat hep baş harflerine göre arama yapıyor ve hata veriyor. İçindeki geçen harfe göre yaptığımda ise diğer textboxtaki şartı iptal ediyor.

Örnek Dosya Ektedir. Yardımcı olursanız Sevinirim

[l_kose]

Ekte örnekledim kendin genişletirsin.

[alibuyuk66]

Eyvallah kardeş eline sağlık güzel olmuş

[alibuyuk66]

Köse Kardeşim.

Kodların devamına da ne anlama geldiğini yazmanız mümkünmü acaba diğer sütunlarada uyarlamak istiyorum. kendim yapabilmem adına

[alibuyuk66]

Kose Kardeşim.

Kendi Programıma göre uyarlamaya çalıştım fakat hep hata alıyorum.
Orjinal dosyayı yüklüyorum.

Rica Etsem Kodları içine eklemen mümkünmü acaba.

[leguminosea]

Deneyiniz

[l_kose]

Açıklamaları ekledim

[alibuyuk66]

Sayın leguminosea ve Sayın Kose Bey
Yardımlarınız için teşekkrüler.
Her ikiside güzel olmuş

Fakat leguminosea beyin vermiş olduğu kodlar daha kolayıma geldi Kose beyin vermiş olduğu kodları daha önce hiç görmedim o yüzden uyarlayamadım yinede teşekkürler.

[alibuyuk66]

Sayın leguminosea kardeşim verdiğin kodlar gayet güzel çalışıyor fakat şöyle bir sorun farkettim.

Açıklama sütununda hiç veri yoksa diğer sütunlarda filtreleme yapmıyor. Açılışta tüm veriler geliyor fakat backspace tuşu ile silme yaptığımda liste tekrar gelmiyor

[leguminosea]

Kodu aşağıdaki gibi değiştirin.

Kod: Tümünü seç

Sub ara()
    Sheets("ŞASE").AutoFilterMode = False
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    On Error Resume Next
    Sheets(ad).Delete
    son = Sheets("ŞASE").Cells(Rows.Count, 1).End(3).Row + 1
If TextBox1 = Empty Then
    Sheets("ŞASE").Range("A1:J1").AutoFilter 2
    Else
    Sheets("ŞASE").Range("A1:J1").AutoFilter 2, "=*" & TextBox1 & "*"
End If
If TextBox2 = Empty Then
    Sheets("ŞASE").Range("A1:J1").AutoFilter 10
    Else
    Sheets("ŞASE").Range("A1:J1").AutoFilter 10, "=*" & TextBox2 & "*"
End If
    Worksheets.Add
    ad = ActiveSheet.Name
    Sheets(ad).Visible = False
    Sheets("ŞASE").Range("A1:J" & son).Copy Sheets(ad).Range("A1")
    son = Sheets(ad).Cells(Rows.Count, 1).End(3).Row
    ListBox1.RowSource = ad & "!A2:J" & son
    Sheets("ŞASE").AutoFilterMode = False
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub


[alibuyuk66]

Teşekkür ederim Sorun Giderildi.
Eline Sağlık.