AutoFilter

[tamer42]

Merhabalar,

    [A1].Select
    Selection.AutoFilter

Filtreleme yaparken eğer önceden zaten filtre mevcuttsa; filtrelemeyi kaldırıyor,

önceden filtre olup olmadığını nasıl öğrenebilirim.

İyi Çalışmalar.

 

[Recep İpek]

Aşağıdaki kodlar sanırım işinize yarayabilir.

Sub AutoFilter()
If ActiveSheet.AutoFilter Is Nothing Then
[A1].Select
Selection.AutoFilter
End If
End Sub

 

[tamer42]

Teşekkürler,

Yoğunluktan dolayı ger dönüş dönemedim.
bu konuyla bağlantılı olarak;

ActiveSheet.ShowAllData

uygularken tüm datalar zaten görünüyorsa hata veriyor, bunu nasıl anlayıp işlem pas geçebiliriz.


İyi Çalışmalar. İyi Pazarlar.

 

[Recep İpek]

Aşağıdaki kodları kullanabilirsiniz.

Sub Button1_Click()
 If ActiveSheet.FilterMode Then
    ActiveSheet.ShowAllData
  End If
End Sub

Daha detaylı bilgi için aşağıdaki linki inceleyiniz.

http://www.contextures.com/xlautofilter03.html

 

[tamer42]

Teşekkürler....