Soru Sayfa Yok İse Makro Çalışmasın

[tuvons]

Arkadaşlar Merhaba,

Hazırlamak istediğim bi dosyada istediğim 3 adet (stok, alıcı, satıcı) sayfa yok ise makronun çalışmasını istemiyorum. Bu sayfaların yerleri karışık olabiliyor. Bunu nasıl yapabiliriz?

 

[ÖmerFaruk]

Sub MakroÇalışmasın()
Dim Sh As Worksheet
Dim a As Byte
    For Each Sh In Worksheets
        If Sh.Name = "Stok" Or Sh.Name = "Alıcı" Or Sh.Name = "Satıcı" Then a = a + 1
    Next Sh
    If Not a = 3 Then Exit Sub
    
    ' Çalışmasını istediğiniz kendi kodlarınız
    '.....................

End Sub

 

[tuvons]

Teşekkür ederim @NextLevel

Kodlar işe yaradı.