Süzme tuşu unutulursa

[igultekin2000]

iyi günler: ithalat takibi yaptığım çalışma dosyasında ITHALAT_KYT sayfasından ITHALAT sayfasına kayıt aktarıyorum. bazen ITHALAT sayfasında K1 hücresinde süzme tuşunu kullanarak yıl bazında bakıyorum. bu halde unuttuğum oluyor. farkında olmadın kayıt sayfasından kayıt giriyorum, süzme tuşu aktif olduğu için kayıt yapılmıyor. bunu önlemenin çözümü (unutmama dışında) nedir acaba. Teşekkürler.

 

[derisa963]

sayın @igultekin2000 kodunuzun başına yapıştırabilirsiniz

Dim s1 As Worksheet: Set s1 = Sheets("ITHALAT")
s1.AutoFilterMode = False

'yada

Worksheets("ITHALAT").AutoFilterMode = False

' veya

Activesheet.AutoFilterMode = False

 

[derisa963]

@igultekin2000 bu arada modül 1 deki "kapa" adlı makronuzun adını "AUTO CLOSE" olarak değiştirirseniz kod dosya kapanmadan önce otomatik çalışır

 

[igultekin2000]

sayın @igultekin2000 kodunuzun başına yapıştırabilirsiniz

Dim s1 As Worksheet: Set s1 = Sheets("ITHALAT")
s1.AutoFilterMode = False

'yada

Worksheets("ITHALAT").AutoFilterMode = False

' veya

Activesheet.AutoFilterMode = False

Makro1 deki kodun sub ile başlayanın üzerine yapıştırdım, set hatası verdi, Sub ' in altına yapıştırdım hata da vermedi filtreyi de kaldırmadı. Yani kodu çalıştıramadım.

 

[derisa963]

@igultekin2000 merhabalar.
yanlış kod satırına kaydetmişsiniz.
kayıt yaptığınız kodlar makro1 değil sanırsam
dosyanız ekte çalışır durumda

 

[igultekin2000]

@igultekin2000 merhabalar.
yanlış kod satırına kaydetmişsiniz.
kayıt yaptığınız kodlar makro1 değil sanırsam
dosyanız ekte çalışır durumda

evet teşekkür ederim, sorunsuz çalışıyor. iyi çalışmalar

 

[derisa963]

@igultekin2000 ben teşekkür ederim .d