Filtre kaldırmak

[ckayaz]

Ana Sayfada filtre uygulandığı zaman a veya b sayfası ana sayfadaki verileri alamıyor.Sayfadan çıkarken filtreyi kaldırmak için kod eklediğim zaman yani makroya şu kodu


Private Sub Worksheet_Deactivate()
ActiveSheet.ShowAllData
End Sub


eklediğimde filtreyi kaldırıyor ama sayfalarda gezdiğimde hata kodu alıyorum bunu nasıl çözebilirim

Örnek dosya ve hata kodu görüntüsünü ekledim. Yardımcı olacak arkadaşlara teşekkür ederim

 

[ZorBey_]

Merhaba İyi Çalışmalar Denermisiniz

Private Sub Worksheet_Deactivate()
On Error Resume Next
ActiveSheet.ShowAllData
End Sub

 

[ckayaz]

Merhaba İyi Çalışmalar Denermisiniz

Private Sub Worksheet_Deactivate()
On Error Resume Next
ActiveSheet.ShowAllData
End Sub

Sayın asr35 filtreyi kaldırmadığı gibi verileri sayfaya aktarmıyor. Bu şekilde olduğu zaman a veya b sayfası boş çıkıyor

 

[Emir Hüseyin Çoban]

. . .

Kodu neden B sayfasının kod bölümüne eklediniz.

Filitre kaldırmak için bu kodları kullanabilirsiniz.

If ActiveSheet.AutoFilterMode = True Then
ActiveSheet.AutoFilterMode = False
Else: End If

. . .

 

[ckayaz]

. . .

Kodu neden B sayfasının kod bölümüne eklediniz.

Filitre kaldırmak için bu kodları kullanabilirsiniz.

If ActiveSheet.AutoFilterMode = True Then
ActiveSheet.AutoFilterMode = False
Else: End If

. . .

İlginiz için teşekkür ederim Sayın Hüseyin Çoban
B sayfası AnaSayfadan veri aldığı için kodları oraya eklemiştim. sizin eklemiş olduğunuz kodlarla filtreyi tamamen kaldırıyor o yüzden bu forumda bulduğum aşağıdaki kodları kullandım

On Error Resume Next
If S.AutoFilterMode = True Then S.ShowAllData
Son_Satır = S.[A65536].End(3).Row + 1