Makro1'deki koşul sağlanmadığında Makro2 çalışmasın

[dumanibo]

Sub Makro1()

hucrekontrol:
   Sheets("Sayfa1").Select
   For Each hucre In Range("C4:F34")
      If hucre = "" Then
         MsgBox "Tablo yedeklenecek. Ama" _
                & Chr(13) & hucre.Address(False, False) & _
                " hücresi boş. Hücreyi doldur!", vbCritical, _
                "Boş Hücreler Var!"
         hucre.Select
         Cancel = True
         Exit Sub
      End If
   Next

End Sub

Sub Makro2()
   Application.Run Makro1
   ...................
   ...................
   ... Diğer kodlar...	
End Sub

Yukarıdaki Makro1 makrosunda gerekli koşul sağlanmayınca makrodan çıkılıyor. Ancak ben Makro1'i Makro2'den çalıştırıyorum. Sorum şu:

Makro1'deki koşul sağlanmadığında Makro2 de çalışmasın. Bunun için kodu nasıl düzenlemeliyim?

 

[zafer]

Merhaba

Makro2 nin başına makro1 i çalıştır koymuşsunuz.
zaten başlarken makro 1'e gidiyor.

O satırı silip makro1'in sonuna makro2 yazın
koşul sağlanmazsa Exit sub var . kodlarınız orada kesilir Makro2 'de çalışmaz