if, else, else if yapısı hakkında bilgi

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Aynı if - then yapısına bağlı üçten çok madde nasıl birbirine bağlanır?
Saygılarımla

 

[Saban Sertkaya]

if a = 1 then
Msgbox "BİR"
elseif a = 2 then
Msgbox "İKİ"
elseif a = 3 then
Msgbox "ÜÇ"
else
Msgbox "HİÇBİRİ"
End if

 

[Tevfik_Kursun]

Merhaba Şaban Hocam,

Private Sub CommandButton1_Click()

    aa = Range(Range("A1").Text)
        
    If aa = 1 Then Range(Range("C3").Text) = "BİR"
        ElseIf aa = 2 Then Range(Range("C3").Text) = "İKİ"
        ElseIf aa = 3 Then Range(Range("C3").Text) = "ÜÇ"
        
        Else
            Range(Range("C3").Text) = "HİÇBİRİ"
    End If
End Sub

ifadesi hep

else without if

hatası veriyor. Hata nerede?
Saygılarımla

 

[Orion1]

Buyurun.

Sub m()
 aa = Range("A1").Value
        
    If aa = 1 Then
        Range("C3").Value = "BİR"
    ElseIf aa = 2 Then
        Range("C3").Value = "İKİ"
    ElseIf aa = 3 Then
        Range("C3").Value = "ÜÇ"
    Else
        Range("C3").Value = "HİÇBİRİ"
    End If
End Sub

 

[Tevfik_Kursun]

Merhaba sayın Orion1 Hocam,
İlginize çok teşekkür ederim.

Sub mmm()
    Sheets("A-Ktp").Activate
    Call DosyayaYaz
 
    If Sheets("B-Ktp").Visible = True Then
    Sheets("B-Ktp").Activate
    Call DosyayaYazB
        ElseIf Sheets("C-Ktp").Visible = True Then
        Sheets("C-Ktp").Activate
        Call DosyayaYazB
    Else
        Call BasaDon
    End If
End Sub

Bu makroda hata nerede, hiç BasaDon'e gidemiyor?
Saygılarımla

 

[Saban Sertkaya]

Hata nerede ? 3 nolu mesaja cevaptir.

Hata, kodlamaya IF ile başlayıp THEN ile satırı bitirir ve alt satirda olması gerekeni yazarsaniz, END IF ile bitirmeniz gerekir.

Sizin yaptığınız gibi IF ile başlayıp THEN den sonra devam ederseniz ELSE ve END IF kullanamazsiniz.

2 nolu mesaji birkez daha dikkatlice inceleyiniz.

 

[Orion1]

Merhaba sayın Orion1 Hocam,
İlginize çok teşekkür ederim.

Sub mmm()
    Sheets("A-Ktp").Activate
    Call DosyayaYaz
 
    If Sheets("B-Ktp").Visible = True Then
    Sheets("B-Ktp").Activate
    Call DosyayaYazB
        ElseIf Sheets("C-Ktp").Visible = True Then
        Sheets("C-Ktp").Activate
        Call DosyayaYazB
    Else
        Call BasaDon
    End If
End Sub

Bu makroda hata nerede, hiç BasaDon'e gidemiyor?
Saygılarımla

B veya C-Ktp larından birisi görünürse BasaDon makrosuna gidemez.

 

[Tevfik_Kursun]

Merhaba Arkadaşlar,

B veya C-Ktp larından [COLOR="Red"]birisi[/COLOR] görünürse

Çok teşekkür ederim. Ben bunu atlamışım.
Saygılarımla

 

[Saban Sertkaya]

Kodda hata görünmüyor. Eğer şartlar doğruysa onlar çalışıyordur. Veya gidilen modullerde kodu durduran bir satir olabilir.