makroya ekleme

[asi_kral]

Bu şekilde deneyin.

 Sheets("YILLIK GELİR").ShowAllData

 

[gedavet]

Sheets("YILLIK GELİR").ShowAllData
ActiveSheet.ShowAllData

iki koduda örnek dosyada baştaki satırın altına ekledim ikiside hata verneden çalışıyor

ancak kendi dosyamda hata veriyor sarı dolgu oluyor

 

[gedavet]

Sheets("YILLIK GELİR").ShowAllData
ActiveSheet.ShowAllData

bu iki koduda örnek verdiğim dosyada filtrelerde filitreleme varsa doğru çalışıyor ancak filitreleme yoksa onlarda hata veriyor

hocalarım bu konuyu bana bir çözüverebilirmisiniz

 

[gedavet]

hocalarım iyi günler bu konuda yardımcı olabilirmisiniz

kod filitrerlemelerde filitreleme yoksa hata veriyor yani seçili işlem yoksa

seçili işlem varsa çalışıyor

 

[asi_kral]

Merhaba

   Sheets("YILLIK GELİR").Range("B4:I4").AutoFilter field:=1
   Sheets("YILLIK GELİR").Range("B4:I4").AutoFilter field:=2
   Sheets("YILLIK GELİR").Range("B4:I4").AutoFilter field:=3
   Sheets("YILLIK GELİR").Range("B4:I4").AutoFilter field:=4
   Sheets("YILLIK GELİR").Range("B4:I4").AutoFilter field:=5
   Sheets("YILLIK GELİR").Range("B4:I4").AutoFilter field:=6
   Sheets("YILLIK GELİR").Range("B4:I4").AutoFilter field:=7
   Sheets("YILLIK GELİR").Range("B4:I4").AutoFilter field:=8

Bu kodu ekleyerek dener misiniz_?