Makro Yardımı

[Mehmet Sait]

Merhaba,

Veriler sayfasını gizlemek istiyorum. Sayfa gizli olduğunda makronun çalışması için ekli kodu nasıl düzenlemeliyim ?

Sub auto_open()

Application.ScreenUpdating = False

Sheets("Veriler").Select
    Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
    
Sheets("Tablo").Select
    
 Call Aktar

Application.ScreenUpdating = True
      MsgBox " Logo verileri güncellendi, Tablolar hazırlandı..! ", vbInformation, " "

     
End Sub

Yardımlarınız için teşekkür ederim.

 

[YUSUF44]

Sheets("Veriler").Select
Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False

Yerine

Sheets("Veriler").ListObject.QueryTable.Refresh BackgroundQuery:=False

Deneyin.

Aktar makrosunda Veriler Sayfasını seçmeyle ilgili kısım varsa onun da değiştirilmesi gerekir.

 

[Mehmet Sait]

Sheets("Veriler").ListObject.QueryTable.Refresh BackgroundQuery:=False

Merhaba Hocam, satırı dediğiniz gibi değiştirdim ancak sayfa gizli olunca hata verdi.

 

[YUSUF44]

Bahsettiğiniz kodu dosyanızda göremedim.

 

[Mehmet Sait]

Bahsettiğiniz kodu dosyanızda göremedim.

Kusura bakmayın yanlış dosya eklemişim.

 

[YUSUF44]

Gönderdiğiniz dosyada Veriler sayfası gizli olmadığı halde hata veriyor. Uygulamanın bu özelliği desteklemediği şeklinde hata oluşuyor. Sorun sayfanın gizli olmasından değil de yazılan koddan kaynaklanıyor muhtemelen. Kodun söz diziminde hata olabilir. Makro kaydet yöntemiyle kod oluşturup kullanmayı deneyin.

 

[Mehmet Sait]

Gönderdiğiniz dosyada Veriler sayfası gizli olmadığı halde hata veriyor. Uygulamanın bu özelliği desteklemediği şeklinde hata oluşuyor. Sorun sayfanın gizli olmasından değil de yazılan koddan kaynaklanıyor muhtemelen. Kodun söz diziminde hata olabilir. Makro kaydet yöntemiyle kod oluşturup kullanmayı deneyin.

Teşkkür ederim.