Sıralı Komut Çalıştırma

[Hsn55]

İyi günler;
Aşağıdaki 1.Makroyu çalıştırdıktan sonra 2. Makronun çalışması için koda nasıl bir ilave yapabiliriz.
1.Makro:

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
clasa_ekle1
End Sub

2.Makro:

Call Tazminat

 

[Cengiz Demir]

Call Tazminat kodunu ilk makronuzda end sub dan öncesine ekleyebilirsiniz.

 

[Hsn55]

O Şekilde yaptım fakat clasa_ekle1 takvim makrosu olduğu için hücresi tıkladığım zaman Call Tazminat hemen çalışıyor. Bunu clasa_ekle1 takvim makrosu işlemi bittikten sonra 1 saniye sonra çalışması için ne yapmamız gerekir.

 

[muratboz06]

1 saniye beklemek için kod:

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
clasa_ekle1
Application.Wait (Now + TimeValue("0:00:01"))
Call Tazminat
End Sub

 

[Hsn55]

Murat bey ilk önce clasa_ekle1 den takvimi seçmem gerekirken önce Call Tazminat kodu çalışıyor. Daha sonra açılır takvim geliyor