Soru ActiveSheet.ShowAllData

[leonadies]

Değerli üstadlar "ActiveSheet.ShowAllData" makro komutu ile kaldırdığımız Filtreleme işlemini yine bir makro komut ile eski haline getirebilir miyiz?

Mesela A sütunu filtreli idi "ActiveSheet.ShowAllData" dedik filtreyi kaldırdık. Yine bir buton ile Eski haline geri gelir mi?

Burada A sütunu örnek. Bu B:B veya K:K da olabilir. Yani bir nevi excele "Benim son filtrelememi aklında tut" dememiz gerekecek.

Zor gibi duruyor ama çözümü olur mu sizce?

 

[Korhan Ayhan]

Application.Undo komutunu araştırıp deneyiniz. Belki işinize yarar.

 

[leonadies]

Deniyorum Hemen

 

[excelokyanus500]

Alternatif

Sub Coklukriter()

Dim kriterler

kriterler = Array("Elmalar", "Armutlar", "Kirazlar") 'Filtre kriterler

Range("A1", Range("A" & Rows.Count).End(xlUp)).AutoFilter 1, kriterler, xlFilterValues, , 0 'A sütununu kriterlere göre filtrele

'Range("A1").AutoFilter 'Filtreyi temizle


End Sub

 

[leonadies]

@excelokyanus500 üstadım eline sağlık ancak isteğim komple dinamik bir olay. Yani yapılmış bir filtreyi excel aklında tutup tekrar geri getirecek. Farkındaysan hiçbir detay paylaşmadım bu yüzden. Teşekkür ederim ilgine