2 makroyu aynı anda çalıştırmak.

[sertkan42]

Arkadaşlar merhaba;
2 adet makro var ve biri çalışınca diğeri çalışmıyor. 2 sini aynı anda çalıştırmak mümkünmüdür?

Private Sub Workbook_Open()
For k = 1 To 100 '**** 100 kere yanıp sönecektir arttırıp azaltabilirsiniz.
Cells(5, 11).Interior.ColorIndex = 1
basla = Timer
bekle = 1 '****** yanıp sönme aralığı 1 saniye arttırıp azalta bilirsiniz.
While Timer < basla + bekle
DoEvents '1 saniye bekle
Wend
Cells(5, 11).Interior.ColorIndex = xlNone
basla = Timer
bekle = 1 '****** yanıp sönme aralığı 1 saniye arttırıp azalta bilirsiniz.
While Timer < basla + bekle
DoEvents '1 saniye bekle
Wend
Next k
End Sub

****

Sub auto_open()
MsgBox "Veriler aylık olarak güncellenmektedir. Bilgi ve soru için Serkan BUZCU > 6174"

End Sub


Yardımcı olursanız sevinirim.

 

[sertkan42]

Moderatör Ömer beyin eski konusu üzerinden çözdüm, tşlk ederim kendisine.

Örneğin;

Module1 deki makro: ozet_al
Module2 deki makro: listele
Module3 deki makro: yazdir

Gibi.

VBA ekranındaki Buçalışmakitabı sayfasına;
Kod:
Private Sub Workbook_Open()
Module1.ozet_al
Module2.listele
Module3.yazdir
End Sub