sayfa gizlendiğinde makro çalışmıyor

[torik52]

aşşağıdaki makroyla sayfa hesaplatıyorum ancak data sayfasını gizlediğimde mecburen kod çalışmıyor bir fikir verirseniz memnun olurum.
not:önce veri alıyor intten sonra sayfayı hesaplatıyor ve tekrar veri alıyor.

Sub Makro3()
'
' Makro3 Makro
'

'
Application.Run "'VERİ ALICI GÜNLÜK.xlsm'!GetData"
Sheets("Data").Select
ActiveSheet.Calculate
ActiveSheet.Calculate
Sheets("SAYFA1").Select
Application.Run "'VERİ ALICI GÜNLÜK.xlsm'!GetData"
End Sub

 

[Orion1]

Bu satırı iptal edin.

Sheets("Data").Select

 

[torik52]

sn Orion onu kaldırdığımda işeme yaramıyor bana lazım olan esas o sayfanın hesaplanması
o sayfa hesaplandıktan sonra ana sayfaya dönüyor.teşekkür ederim.

 

[Orion1]

sn Orion onu kaldırdığımda işeme yaramıyor bana lazım olan esas o sayfanın hesaplanması
o sayfa hesaplandıktan sonra ana sayfaya dönüyor.teşekkür ederim.

activesheet.calculate yarine aşağıdakini kullanın.

Application.Calculate

 

[torik52]

SN Orion Application.Calculation = xlAutomatic bu şekil başarılı oldu teşekkür ederim.
ancak bunu yukardaki gibi ayrı bir makro yapmadım ana makronun altına yazdım denemek için iyi denk geldi hayırlı günler.

 

[Orion1]

SN Orion Application.Calculation = xlAutomatic bu şekil başarılı oldu teşekkür ederim.
ancak bunu yukardaki gibi ayrı bir makro yapmadım ana makronun altına yazdım denemek için iyi denk geldi hayırlı günler.

Rica ederim.
İyi çalışmalar.