TEK TIKLA SÜZMEYİ SIFIRLAMAK

[ertuer]

TEK TIKLA SÜZMEYÝ SIFIRLAMAK

Yaptığım bir tabloda çeşitli süzme işlemleri sonucu,bütün başlıklar altında
"hepsi" ni seçmek için tek tek kontrol etmek yerine tek tıklama yoluyla bu işi nasıl halledebilirim.selamlar

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Burada A:F arasındaki alanda filtre olduğu kabul edilmiştir.

[vb:1:f0ceb6b048]Sub filtreiptal()
[a1:f1].AutoFilter Field:=1
[a1:f1].AutoFilter Field:=2
[a1:f1].AutoFilter Field:=3
[a1:f1].AutoFilter Field:=4
[a1:f1].AutoFilter Field:=5
[a1:f1].AutoFilter Field:=6
End Sub[/vb:1:f0ceb6b048]

 

[ertuer]

SN.leventm
Ã?ncelikle ilginiz ve yardımınıza teşekkür ederim.Yazdığınız vba kodunu bendeki satır durumuna uyarlayarak yapıştırıp kaydettim.Ancak excel sayfamda böyle bir sıfırlama butonu oluşmadı.Ben en iyisi örnek dosyayı göndereyim oradaki sıfırla diye belirlediğim kırmızı hücreye lütfen ilgili formülü ya da herneyse atarsanız çok iyi olur.Excel de vba kodlarına çok yabancıyım. saygılar selamlar

 

[xxrt]

Sayın leventm'nin kodları gayet düzgün çalışıyor.
Bunu yapmadan Ã?nce Sayfanızdaki J Sütununu Veri Süz uygulamamışsınız.Veri Süzü J Sütununa kadar uygulayın yada kodlardaki
[a3:j3] kısmını [a3:I3] olarak değiştirin..

Ã?nce sayfanızda Sıfırla yazılan yere bir buton ekliyorsunuz.Buton ekleme ve makro kaydet hakkında Bkz.Hem oradaki örnekte Filtre Süzme konusuda işlenmiş.
Kolay gelsin.

 

[ertuer]

çok teşekkür ederim.sn .leventm in kodları ve sizin açıklamanızla sorun çözüldü. selamlar