Sayfadan Kontrol Et Sırayla Form aç

[CILEKESH]

Sub Kapat()
Unload Userform13
    Sheets("KONTROL").Select
' BU BÖLÜME YAZILACAK KOD İÇİN KONTROL SAYFASININ C SÜTUNUNA BAKARMISINIZ

UserForm15.Show
End Sub

Sorumun Detayı Resimde anlaşılacaktır.

Hazırladığım örnekte auto sub ile ilk açılan form kontrolleri yapacak olan formdur 5-10 saniye içinde kapanıyor ve kontrollerin sonucuna göre yeni form açacak....

Yapılabilir bir şeyse çok iyi olacak benim için.

 

[CILEKESH]

Galiba Yaptım

Sub Kapat()
Unload Userform13

    
    If Sheets("KONTROL").Range("C14") = 0 Then
        UserForm15.Show
    
    End If
    If Sheets("KONTROL").Range("C2") = 1 Then
    UserForm1.Show
    
    End If
    If Sheets("KONTROL").Range("C3") = 1 Then
    UserForm2.Show
    
    End If
    If Sheets("KONTROL").Range("C4") = 1 Then
    UserForm3.Show
    
    End If
    If Sheets("KONTROL").Range("C5") = 1 Then
    UserForm4.Show

    End If
    If Sheets("KONTROL").Range("C6") = 1 Then
    UserForm5.Show
    
    End If
    If Sheets("KONTROL").Range("C7") = 1 Then
    UserForm6.Show
    
    End If
    If Sheets("KONTROL").Range("C8") = 1 Then
    UserForm7.Show
    
    End If
    If Sheets("KONTROL").Range("C9") = 1 Then
    UserForm8.Show

    End If
    If Sheets("KONTROL").Range("C10") = 1 Then
    UserForm9.Show

    End If
    If Sheets("KONTROL").Range("C11") = 1 Then
    UserForm10.Show
    
    End If
    If Sheets("KONTROL").Range("C12") = 1 Then
    UserForm11.Show
    
    End If
    If Sheets("KONTROL").Range("C13") = 1 Then
    UserForm12.Show


End If

UserForm15.Show
End Sub