Sayfada kullandığım Filtreyi Temizlemek istiyorum

[mozdem]

Merhabalar,

Bir kod bloğumun üst bölümünde Aktif olmayan sayfadaki filtreyi iptal etmek için bir satır kod kullanıyorum. Filtre varsa çalışıyor yok ise hata veriyor. "On Error Resume Next" kodunu kullanır isem tüm hataları iptal edeceği için kullanmak istemiyorum. Filtre aktif değil ise hata vermesin. Ne yapabilirim.

'On Error Resume Next
Sheets("Rapor3").ShowAllData
...
...
..

kodlar

 

[Necdet]

Merhaba,

If Sheets("Rapor3").FilterMode = True Then Sheets("Rapor3").ShowAllData

 

[mozdem]

Hocam çok teşekkür ederim.

Merhaba,

If Sheets("Rapor3").FilterMode = True Then Sheets("Rapor3").ShowAllData

 

[ÖmerBey]

"On Error Resume Next" kodunu kullanır isem tüm hataları iptal edeceği için kullanmak istemiyorum.

Merhaba,
Sorunuzun cevabı olmamakla birlikte bir gün işinize yarayabilir.

Sub kod()
On Error Resume Next
Sheets("Olmayan Sayfa").Select

On Error GoTo 0
Sheets("Olmayan Sayfa").Select
End Sub

İyi çalışmalar...

 

[mozdem]

Çok

Merhaba,
Sorunuzun cevabı olmamakla birlikte bir gün işinize yarayabilir.

Sub kod()
On Error Resume Next
Sheets("Olmayan Sayfa").Select

On Error GoTo 0
Sheets("Olmayan Sayfa").Select
End Sub

İyi çalışmalar...

teşekkür ederim.