eğer değilse sıradakine geç

[CILEKESH]

Sub Tahakkuk()
If Sheets("KONTROL").Range("C14") = 0 Then   'sorun yok
        
        UserForm1.Show

    
    ElseIf Sheets("KONTROL").Range("C2") = 1 Then  ' 0 olduğunda C3'e baksın
    
    UserForm11.Show

    ElseIf Sheets("KONTROL").Range("C3") = 1 Then ' 0 olduğunda C4'e baksın
   
    UserForm12.Show

    ElseIf Sheets("KONTROL").Range("C4") = 1 Then ' 0 olduğunda C5'e baksın
  
    UserForm13.Show

    ElseIf Sheets("KONTROL").Range("C5") = 1 Then ' 0 olduğunda C6'e baksın
    
    UserForm14.Show

....
....
...
...
End If
End Sub

Yukarıdaki koda ekleme yapmam gerekiyor.

Değişkenlerin (C2,C3,C4,C5,...) "1" olması durumunda başlatılacak formları yukarıdaki kodlar çalıştırıyor.

Ancak,
Değişkenlerin (C2,C3,C4,C5,...) "0" olması durumunun döngüsünü ekleyemedim.

C2 = 0 ise C3'ü kontrol etsin istiyorum C3 = 0 ise C4 ü kontrol etsin istiyorum
C4=0 ise C5'i kontrol etsin istiyorum.

 

[Mustafa MUTLU]

Şu an senin kod normal
1 değeri varsa formu açar.
0 ise açmaz.
0 olması durumunda ne olmasını istiyorsun..
aynı kodda 1 yerine 0 yazarak işlemi 0 iken gibi dönüştürebilirsin.

 

[CILEKESH]

Şu an senin kod normal
1 değeri varsa formu açar.
0 ise açmaz.
0 olması durumunda ne olmasını istiyorsun..
aynı kodda 1 yerine 0 yazarak işlemi 0 iken gibi dönüştürebilirsin.

Ama ben 0 ise sıradaki koda baksın istiyorum o koddaki değişken "0" da olabilir "1" de olabilir.

 

[Mustafa MUTLU]

Zaten koların 1 değilse sonraki koda geçiyor.
1 değilse ne demek (0 da olabilir 1 den büyükde olabilir veya Harf a.b.c. de olabilir.)

Ya ben anlayamadım yada senin açıklaman yetersiz
Kodlarında hata mı alıyorsun

 

[CILEKESH]

Mustafa bey geç geri dönüş yaptım özür dilerim.
Kodda sizinde belirttiğiniz gibi sorun yokmuş, Formun birisi aktif hale geldiğinde Hesaplama seçeneklerini manuel konuma getiren kod bir sonraki koda geçmeyi engelliyormuş.