FİLTRELEME MAKROSU HATA VERMESİ

[MOZCELİK53]

MERHABA AŞAĞIDAKİ MAKROM DÜZGÜN ÇALIŞIYOR FAKAT ALAN DIŞINDA BİR YERE TIKLADIMDA TEMİZLEME MAKROSU 400 HATASI VERİYOR NASIL ÇÖZEBİLİRİM BUNU ?

Sub FİLTRELE()

Range("Tablo2[#All]").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange _
:=Range("Tablo1[#All]"), Unique:=False
End Sub

Sub FTEMİZLE()

ActiveSheet.ShowAllData
Range("Tablo1[AD SOYAD]").Select
ActiveCell.FormulaR1C1 = "İSİM GİRİNİZ..!"
Range("Tablo1[[#Headers],[NO]]").Select
Range("B6").Select
End Sub

 

[Korhan Ayhan]

Merhaba,

Büyük harfle yazmanız konusunda Forum kurallarını okumanızı tavsiye ederim. Bu şekilde açtığınız konular ve yazdığınız mesajlar geri dönüşüm bölümüne taşınabilir.

Ek olarak hata veriyor demişsiniz. Ama hata veren satırı belirtmemişsiniz.

ShowAllData konutu sayfada filtre olmadığında hata verir. Bunun için bu satırın başına On Error Resume Next eklemelisiniz. Aynı zamanda ilgili satırın altına da On Error GoTo 0 yazarak işlem adımını tamamlamalısınız.

 

[MOZCELİK53]

Merhaba,

Büyük harfle yazmanız konusunda Forum kurallarını okumanızı tavsiye ederim. Bu şekilde açtığınız konular ve yazdığınız mesajlar geri dönüşüm bölümüne taşınabilir.

Ek olarak hata veriyor demişsiniz. Ama hata veren satırı belirtmemişsiniz.

ShowAllData konutu sayfada filtre olmadığında hata verir. Bunun için bu satırın başına On Error Resume Next eklemelisiniz. Aynı zamanda ilgili satırın altına da On Error GoTo 0 yazarak işlem adımını tamamlamalısınız.

Teşekkür ederim kurallar için özür dilerim bilmiyordum dikkat edeceğim bundan sonra