Modüle ikinci koşul

[CILEKESH]

Modülde kayıtlı şu koda;

Sub Kapat()
Unload UserForm5
Sheets("Gelirler").Select
If Sheets("Şifre").Range("D1") = 0 Then
UserForm1.Show
Else
UserForm6.Show
End If
End Sub

aşağıdaki koşulu eklemek istiyorum.

If Sheets("Şifre").Range("G1") = 0 Then
UserForm1.Show
Else
UserForm8.Show

Yani Userorm1'in açılması için Şifre sayfasındaki D1 ve G1 hücreleri "0" olacak D1 sıfırdan farklı ise Userform6 açılacak G1 sıfırdan farklı ise userform8 açılacak

iki kodu birleştirmeyi başaramadım.

 

[ynmcan]

Syn. Çilekesh;
Aşağıdaki deneyin.

Sub Kapat()
Unload UserForm5
Sheets("Gelirler").Select
If Sheets("Şifre").Range("D1") = 0 And Sheets("Şifre").Range("G1") = 0 Then
UserForm1.Show
Else
UserForm6.Show
End If
End Sub

 

[CILEKESH]

G1 sıfırdan farklı ise userform8 açılacak

Userform8'in çalışabilmesi için gerekli kodu atlamışsınız sanırım.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki şekilde denermisiniz.

Sub Kapat()
    Unload UserForm5
    Sheets("Gelirler").Select
    If Sheets("Şifre").Range("D1") = 0 And Sheets("Şifre").Range("G1") = 0 Then
        UserForm1.Show
    ElseIf Sheets("Şifre").Range("D1") > 0 Then
        UserForm6.Show
    ElseIf Sheets("Şifre").Range("G1") > 0 Then
        UserForm8.Show
    End If
End Sub

 

[CILEKESH]

Merhaba,

Aşağıdaki şekilde denermisiniz.

Sub Kapat()
    Unload UserForm5
    Sheets("Gelirler").Select
    If Sheets("Şifre").Range("D1") = 0 And Sheets("Şifre").Range("G1") = 0 Then
        UserForm1.Show
    ElseIf Sheets("Şifre").Range("D1") > 0 Then
        UserForm6.Show
    ElseIf Sheets("Şifre").Range("G1") > 0 Then
        UserForm8.Show
    End If
End Sub

Teşekür ederim Bu kod tam istediğim gibi.

 

[CILEKESH]

Range("G1") > 0 Then

Yalnız, bu değer 0 dan küçük de olabilir ?

Her iki durumuda yazmak istersek? sıfırdan farklı olacak yani

 

[Korhan Ayhan]

Merhaba,

<> 0 olarak kullanın.

 

[CILEKESH]

Merhaba,

<> 0 olarak kullanın.

Çok Teşekkür Ederim.