Çözüldü filtreleme makrosu hatası (Kod Bölümnde nerede güncelleme yapmalıyım?)

[Sebahattinnn]

Private Sub Worksheet_Activate()

BANKALISTESISUZ
BANKALISTESISUZKAL

End Sub


Sayfa 2 de(görev çizelgesi sekmem) bu kodum mevcut. Bir modül içindede filtreleme ve filtre kaldırma makrom var(aşağıda yazıyor oda) filtreleme makrom sorunsuz çalışıyor. Excel dosyamda birden fazla sekmem var. sekmeler arası gezdiğimde görev çizelgesi sekmesine geldiğimde direk visual basic i açıp bu kodda hata var diyor. Bu kodun neresini düzeltmeliyim ki sekmeler arası geçişte bana uyarı gelmesin. filtrelemede kullandığım kodumda aşağıdadır.

Sub BANKALISTESISUZ()

ActiveSheet.Unprotect

Sayfa2.Select

Selection.AutoFilter Field:=1, Criteria1:="koraydamla"

ActiveSheet.Shapes("Gizle").Visible = False
ActiveSheet.Shapes("Goster").Visible = True

ActiveSheet.Protect AllowFiltering:=True

End Sub

Sub BANKALISTESISUZKAL()

ActiveSheet.Unprotect

Sayfa2.Select

Selection.AutoFilter Field:=1

ActiveSheet.Shapes("Gizle").Visible = True
ActiveSheet.Shapes("Goster").Visible = False

ActiveSheet.Protect AllowFiltering:=True

End Sub

 

[necati]

Merhaba,
Muhtemelen sayfa2 kod bölümünde otomatik çalışan bir kod var ve eşleşmeyen bir şey var ki hata veriyor. O koda bakmak gerek.

 

[Sebahattinnn]

Az önceki konuya cevap vermiştiniz. Oda iş görür. Teşekkür ederim. Konum aynı çizelge üzerinden, farklı kodlar ile ilgiliydi. Çok teşekkür ederim cevaplarınız için, sağolun.