Güncelleme Uyarısı Hk.

[petsiye]

Merhaba ,

Hazırlamış olduğum Excel dosyamda dış veri bağlantısı ile dosyamı istediğim zamanlarda güncelleme ihtiyacı duyuyorum. Güncelleme süresi yaklaşık 3 dakika kadar sürüyor. Biraz fantastik bir istek olacak belki ama , güncelleme sırasında hazırladığım bir userform'un ekranda kalarak " Güncelleme Yapılırken 3 dakika kadar beklemeniz gerekecek " gibi bir cümle yazarak , güncelleme sırasında bu userformun ekranda yazılı kalmasını istiyorum. Güncelleme yapmak için kullandığım kod aşağıdaki gibidir.

Yardım ve desteğiniz için şimdiden teşekkür ederim.

Private Sub CommandButton35_Click()
UserForm5.Hide
Sayfa1.Visible = xlSheetVisible
  Sayfa1.Select
  Sayfa1.Activate
  Call DATAYENILE
Sayfa1.Visible = xlSheetVisible
  Sayfa1.Select
  Sayfa1.Activate
Call ISIMDUZELTME
Sayfa4.Visible = xlSheetVisible
Sayfa4.Select
Sayfa4.Activate
Call Makro51111
Sayfa4.Visible = xlSheetVisible
Sayfa4.Select
Sayfa4.Activate
Call TARIHYENILE
    ActiveSheet.Shapes.Range(Array("ARANMA TARİHİ 1")).Select
    ActiveWorkbook.SlicerCaches("Dilimleyici_Arandığı_Tarih1").PivotTables(1). _
        PivotCache.Refresh
Sayfa1.Visible = xlVeryHiden
Sayfa2.Visible = xlVeryHiden
Sayfa3.Visible = xlVeryHiden
Sayfa4.Visible = xlVeryHiden
Sayfa5.Visible = xlVeryHiden
Sayfa6.Visible = xlVeryHiden
Sayfa7.Visible = xlVeryHiden
Sayfa8.Visible = xlVeryHiden
Sayfa9.Visible = xlVeryHiden
Sayfa10.Visible = xlVeryHiden
Sayfa11.Visible = xlVeryHiden
Sayfa12.Visible = xlVeryHiden
Sayfa13.Visible = xlVeryHiden
Sayfa14.Visible = xlSheetVisible
Sayfa15.Visible = xlVeryHiden
Sayfa16.Visible = xlVeryHiden
Sayfa17.Visible = xlVeryHiden
Sayfa18.Visible = xlVeryHiden
Sayfa19.Visible = xlVeryHiden
Sayfa21.Visible = xlVeryHiden
Sayfa22.Visible = xlVeryHiden
Sayfa27.Visible = xlVeryHiden
Sayfa28.Visible = xlVeryHiden
Sayfa32.Visible = xlVeryHiden
Sayfa33.Visible = xlVeryHiden
Sayfa35.Visible = xlVeryHiden
Sayfa36.Visible = xlVeryHiden
Sayfa37.Visible = xlVeryHiden
Sayfa38.Visible = xlVeryHiden
Sayfa39.Visible = xlVeryHiden
Sayfa40.Visible = xlVeryHiden
Sayfa41.Visible = xlVeryHiden
Sayfa42.Visible = xlVeryHiden
Sayfa43.Visible = xlVeryHiden
Sayfa44.Visible = xlVeryHiden
Grafik1.Visible = xlVeryHiden
Grafik2.Visible = xlVeryHiden
Grafik3.Visible = xlVeryHiden
Grafik4.Visible = xlVeryHiden
Grafik5.Visible = xlVeryHiden
Grafik6.Visible = xlVeryHiden
Grafik7.Visible = xlVeryHiden
Grafik8.Visible = xlVeryHiden
Grafik9.Visible = xlVeryHiden
Grafik10.Visible = xlVeryHiden
Grafik11.Visible = xlVeryHiden
Grafik12.Visible = xlVeryHiden
Grafik13.Visible = xlVeryHiden
Grafik14.Visible = xlVeryHiden
Grafik15.Visible = xlVeryHiden
        UserForm5.Show
End Sub

 

[ÖmerBey]

Merhaba,
İşlem yaptırdığınız kısmın başına oluşturduğunuz userformu ifade edecek şekilde UserForm2.Show 0 satırını ilave ederek gözükmesini sağlar sonunda da UserForm2.Hide satırıyla gizlenmesini sağlarsınız.

 

[petsiye]

Merhaba Ömer Bey,
Dediğiniz gibi bir kodun aynısını ben yapmıştım. Fakat Userform penceresini manuel kapatmadan güncelleme yapmıyor maalesef.

 

[ÖmerBey]

Yazdığım koda bakarsanız sonunda bir 0 değeri görürsünüz. Aynısını diye bahsetiğiniz kodu yazarken o sıfırı yazdınız mı?

 

[petsiye]

Merhaba Ömer Bey,

Gerçekten oldu Dikkatsizliğim için özür , ve çözümünüz için de çok Teşekkür Ederim

 

[Affan34]

Arkadaşlar ekranda UserFormum Açıkken Userformumun 00:00:01 saniyede bir otorefresh etmesini istiyorum yardımcı olursanız sevinirim