kodlu süzme işlemi,

[abbasonline]

b1 sütundaki süzme işlemi çalışmıyor, a1 çalışmaktadır,
bunun gibi süzme yan yana c,d,e,f,g….. Sütunlarında yapmak istiyorum,
aşağıdaki kodda nasıl bir düzeltme yapmamız gerekir.


Private Sub TextBox1_Change()
If TextBox1 = "" Then
Selection.AutoFilter field:=1
End If
Selection.AutoFilter field:=1, Criteria1:="*" & TextBox1 & "*"
End Sub

 

[mustafaine1]

aynisini yani;

Private Sub TextBox2_Change()
If TextBox2 = "" Then
Selection.AutoFilter field:=2
End If
Selection.AutoFilter field:=2, Criteria1:="*" & TextBox2 & "*"
End Sub

textbox numaralarini 2 leri 3 4 5 olrak degistirirsiniz..

 

[Orion1]

Gelişmiş filtre uygulanmalıdır.
Textboxların özelliklerinden linkidcell özelliğine ait olduğu yeri yazın.Ben 2 tanesini yazdım.Başka koyarsanız sizde bunlara bakarak onların bağlantılarını yapın.Gelişmiş filtre Başlar ile çalışmaktadır.
Dosya ektedir.

Private Sub TextBox1_Change()
On Error Resume Next
ActiveSheet.ShowAllData
Range("A3:G" & Cells(65536, "A").End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("I1:O2"), Unique:=False


End Sub

Private Sub TextBox2_Change()
On Error Resume Next
ActiveSheet.ShowAllData
Range("A3:G" & Cells(65536, "A").End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("I1:O2"), Unique:=False
End Sub

 

[abbasonline]

Evren bey, konuya yabancı olduğum için tam olarak sizin konuyu anlayamadım, yardımcı olurmusunuz.

 

[Orion1]

Evren bey, konuya yabancı olduğum için tam olarak sizin konuyu anlayamadım, yardımcı olurmusunuz.

Boş ver takma kafana çok lazım olursa kodları incelersin.

 

[abbasonline]

Evren bey, süzme işlemini yapabildik, ancak rakamlarda uyguladığımda süzme yapmıyor? (sütunda komple rakamlar var.)
ayrıca süzme işleminden sonra, TextBox lara yazdığım kelimeyi sildiğim halde satırlarda süzme işlemi varmış gibi Excelin satır numaraları mavi oluyor bazı satırlarıda göstermiyor, taki veri süz işaretinden hepsini göster deyene kadar.( birde veri süz işaretleri olmadan süzme işlemi olurmu.)

 

[Skorpiyon]

Sayın abbasonline,

Süzme işlemi rakamlarla olmuyor demişsiniz, Evren Hocam'ın gönderdiği dosya Textbox 1 ve 2 'ye rakam da yazsak gayet düzgün çalışıyor.

Ayrıyeten o mavi kısımlardan kurtulmak için, Evren Hocam'ın kodlarına şu 2 satırı ilave edin.

Textbox1_Change 'nin en altına;
If TextBox1 = "" Then ActiveSheet.ShowAllData

Textbox2_Change 'nin en altına;
If TextBox1 = "" Then ActiveSheet.ShowAllData

 

[abbasonline]

Evren bey, ekteki dosyaya yardımcı olursanız çok sevinirim. Kusura bakmayın, sizin gönderdiğiniz dosyada sadece iki Textbox çalıştırabiliyorum daha sonra kendi eklediğim Textbox lar çalıştıramıyorum, Textbox un özelliklerine girerek ilgili yeride dolduruyorum, ama bir yerde hata yapıyorum galiba. Şaban SERTKAYA arkadaşımızın vermiş olduğu kodu da sizin koda ekledim ancak çalıştıramıyorum hata veriyor. Yardımızın için TEŞEKKÜRLER.

 

[abbasonline]

Evren bey;

Evren bey, ekteki dosyaya yardımcı olursanız çok sevinirim. Kusura bakmayın, sizin gönderdiğiniz dosyada sadece iki Textbox çalıştırabiliyorum daha sonra kendi eklediğim Textbox lar çalıştıramıyorum, Textbox un özelliklerine girerek ilgili yeride dolduruyorum, ama bir yerde hata yapıyorum galiba. Şaban SERTKAYA arkadaşımızın vermiş olduğu kodu da sizin koda ekledim ancak çalıştıramıyorum hata veriyor. Yardımızın için TEŞEKKÜRLER.

Hata ile mesajı ikinci kez göndermişiz.

 

[Orion1]

Class module ile otomatik süz uygulaması yaptım.
Ekli dosyayı inceleyiniz.

 

[abbasonline]

Evren bey, teşekkürler kolay gelsin.

 

[Orion1]

Evren bey, teşekkürler kolay gelsin.

Rica ederim.
İyi çalışmalar.:cool.

 

[Orion1]

Bir fazlalaık tesbit ettim.Döngüye girip hepsini süzüyordu.
Şimdi bu durumu düzelttim.Sadece iligili alanı süzüyor.
Dosyayı 10 numnaralı mesajdan indirebilirsiniz.

 

[abbasonline]

Evren bey, teşekkürler