Makro çalıştığında resimler ve düğmeler anlık kayboluyor

[Mdemir63]

Selamlar
Arkadaşlar,
Ekteki dosyamda Tüm Kayıtlar düğmesine atanan makro çalıştığında diğer düğmeler ve sayfadaki resimler anlık olarak kayboluyor geri geliyor. Bunu nasıl düzeltebilirim?

Saygılar

 

[Murat OSMA]

[FONT="Trebuchet MS"][SIZE="2"]Sub DENEME()
    [COLOR="Red"]Application.ScreenUpdating[/COLOR] = [COLOR="Blue"]False[/COLOR]    
    ''' 
    ' Mevcut kodlarınız
    '''
    [COLOR="Red"]Application.ScreenUpdating =[/COLOR] [COLOR="Blue"]True[/COLOR]
End Sub[/SIZE][/FONT]

 

[Mdemir63]

[FONT="Trebuchet MS"][SIZE="2"]Sub DENEME()
    [COLOR="Red"]Application.ScreenUpdating[/COLOR] = [COLOR="Blue"]False[/COLOR]    
    ''' 
    ' Mevcut kodlarınız
    '''
    [COLOR="Red"]Application.ScreenUpdating =[/COLOR] [COLOR="Blue"]True[/COLOR]
End Sub[/SIZE][/FONT]

Murat hocam çok teşekkür ederim.
Saygılar

 

[Mdemir63]

Selamlar
Hocam aşağıdaki iki adet makroya dediğiniz gibi uyguladım fakat yine aynı şeyi yapıyor.

Sub LİSTELE()
'
' LİSTELE Makro
'
' Klavye Kısayolu: Ctrl+Shift+L
Application.ScreenUpdatind = False
Range("A8").Select
Selection.CurrentRegion.Select
Selection.Clear
Range("A8").Select
Range("LİSTE").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"KRİTER"), CopyToRange:=Range("A8"), Unique:=False
Range("A6").Select
Application.ScreenUpdatind = True
End Sub


Sub TÜMKAYITLAR()
'
' TÜMKAYITLAR Makro
'

Application.ScreenUpdatind = False
Range("A6:I6").Select
Selection.ClearContents
Range("A6").Select
Application.Run "SERVİS.xlsm!LİSTELE"
Application.ScreenUpdatind = True
End Sub

 

[kemal turan]

merhaba,

Application.ScreenUpdatind yanlış
Application.ScreenUpdating doğru
Kolay gelsin

 

[Mdemir63]

merhaba,

Application.ScreenUpdatind yanlış
Application.ScreenUpdating doğru
Kolay gelsin

Selamlar
Dediğiniz gibi de yaptım yine olmadı

 

[kemal turan]

Merhaba,
Dosyanızı Murat hocamın verdiği kodlar olmadan çalıştırdım.
Butonlarda bir titreme var.
Kodları eklediğimde titreme geçti.
Problem görünmüyor.
Dosyayı bir deneyin

 

[Mdemir63]

Merhaba,
Dosyanızı Murat hocamın verdiği kodlar olmadan çalıştırdım.
Butonlarda bir titreme var.
Kodları eklediğimde titreme geçti.
Problem görünmüyor.
Dosyayı bir deneyin

Selamlar
Kemal bey o örnek dosyada evet dediğiniz gibi yapmıyor . Ancak benim asıl dosyamda Murat hocanın verdiği kodlar hiçbir işe yaramıyor. Asıl dosyamın Makro içeren excel dosyası olduğu için olabilir mi bilmiyorum.



Saygılar

 

[Mdemir63]

Asıl dosyamı gönderiyorum .

 

[kemal turan]

merhaba,
Gelişmiş filtre kodundan kaynaklanıyor herhalde.
Ustalarımızın farklı bir kod yazarak sorunu çözebileceklerini umuyorum.
Kolay gelsin

 

[Mdemir63]

Selamlar
Teşekkür ederim Kemal bey. Umarım üstadlar bir çözüm üretirler.
Kolay gelsin

 

[Korhan Ayhan]

Dosyanızda gerekli düzeltmeyi yaptım. Deneyiniz.

 

[Mdemir63]

Dosyanızda gerekli düzeltmeyi yaptım. Deneyiniz.

Selamlar,

Hocam sorunun çözümünü yapmışsınız ellerinize sağlık ancak diğer butonlar görevlerini yapmıyor .

Saygılar

 

[Korhan Ayhan]

Dosyanızı güncelledim. Tekrar deneyiniz.

 

[Mdemir63]

Dosyanızı güncelledim. Tekrar deneyiniz.

Selamlar,

Korhan hocam ellerine sağlık, Çok teşekkür ederim.
Peki hocam gelişmiş filtreden mi kaynaklanmış yoksa başka bir nedenden mi?

Saygılar

 

[Korhan Ayhan]

Size önerilen kodlarda kullanılan ekran hareketlerini pasifleme deyimleri bazı durumlarda maalesef sonuç vermemektedir.

Gelişmiş filtrede bunlardan biridir. Bazı durumlarda dosya açtırıp veri alma kodlarında da bu tarz ekran hareketleri yada titremeler söz konusu olmaktadır.

 

[Mdemir63]

Size önerilen kodlarda kullanılan ekran hareketlerini pasifleme deyimleri bazı durumlarda maalesef sonuç vermemektedir.

Gelişmiş filtrede bunlardan biridir. Bazı durumlarda dosya açtırıp veri alma kodlarında da bu tarz ekran hareketleri yada titremeler söz konusu olmaktadır.

Selamlar,
Siz benim gelişmiş filtre ile yaptığım LİSTELE makrosunu değiştirmek suretiyle düzeltiniz değil mi?

Saygılar

 

[Korhan Ayhan]

Kodları incelemediniz mi?

Aradaki farkı çoktan görmeniz gerekiyordu...

 

[Mdemir63]

Selamlar,

Hocam gördüm onları ama kod bilgim olmadığı için emin olmak istedim. Teşekkür ederim.


Saygılar