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

Katılım
5 Nisan 2005
Mesajlar
185
Kod:
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

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
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
 
Üst