Veri çekerken bekleme ve otomatik çalışma sorunu

[bthn35]

Merhaba,
EK'teki excel'de "Yazdır" makrosunda ActiveWorkbook.RefreshAll komutunu kullanmak istediğimde daha veriyi dosyadan çekmeden altındaki komutlara geçiyor, bunu nasıl düzeltebilirim? Birde excel'i açar açmaz "Yazdır" makrosunun çalışmasını istiyorum ancak aşağıdaki bölümler var ve hangisi excel açılınca çalışsın bulamadım, bu konuda da yardımcı olursanız sevinirim.

 

[uzmanamele]

Merhaba

Excel açılınca kod çalışsın istiyorsanız
Sub Auto_ Open()
Prosedür
End Sub

Makronun veriler gelmeden işleme devam etmemesi için DoEvents kullanın.

 

[bthn35]

Merhaba

Excel açılınca kod çalışsın istiyorsanız
Sub Auto_ Open()
Prosedür
End Sub

Makronun veriler gelmeden işleme devam etmemesi için DoEvents kullanın.

Merhaba,
DoEvents halledemedim, nerede hata yaptım acaba?

Sub Auto_open()
    Application.DisplayAlerts = False
    ActiveWorkbook.RefreshAll
    DoEvents
    ActiveSheet.PageSetup.PrintArea = "$A$2:$A$3"
    Application.ActivePrinter = "Ne02: üzerindeki Microsoft Print to PDF "
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "Ne05: üzerindeki Argox OS-2140 PPLA ", Collate:=True
    Application.ActivePrinter = "Ne02: üzerindeki Microsoft Print to PDF "
    Kill "C:\ANYDESK\ANYDESK.txt"
End Sub

 

[bthn35]

Yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Walt (bekleme) komutunu deneyebilirsiniz. Belki işinize yarayabilir.

 

[Haluk]

Aşağıda resimde belirttiğim yerdeki onay işaretini kaldırın, Auto-Open makrosunu daha sonra çalıştırın.

İşe yarayabilir....



.

 

[bthn35]

Aşağıda resimde belirttiğim yerdeki onay işaretini kaldırın, Auto-Open makrosunu daha sonra çalıştırın.

İşe yarayabilir....



.Ekli dosyayı görüntüle 231106

Çok teşekkür ederim, bu şekilde oldu