elseif çalışmıyor

[Mdemir63]

Selamlar
Arkadaşlar if then end if yapısında elseif çalışmıyor
nedeni ne olabilir?

Saygılar

 

[Mdemir63]

 

[turist]

Sub hesap()
If Range("A1") = "" Then
MsgBox ("Seçim Yap")
ElseIf Range("A1") = "1" Then
MsgBox "Burada 1 yazılı"
End If
End Sub
gibi deneyin.
(ElseIf den sonra boşluk bırakılırsa hata verecektir)

 

[Ömer BARAN]

Sayın @turist gereken açıklamayı yapmış ama aynı şeyi ben de şöyle ifade edeyim:
If veya Elseif diye başlayan satırlar KOŞUL içermeli ve Then ibaresiyle son bulmalıdır.

Yapmak istediğiniz;
-- "A1 boşsa mesaj göster", "DEĞİLSE bir şey yapma" şeklinde ise Elseif satırını silmeniz yeterli olur,.
-- "A1 boşsa mesaj göster, "DEĞİLSE .... şu işlemleri yap" ise; Elseif yerine ELSE yazıp bir alt satırdan başlayarak o işleme ait kodları yazın,
eklenecek End If satırıyla da işlemi sonlandırın.

 

[Mdemir63]

Teşekkür ederim sayın hocalarım.
ELSE gibi düşünmüştüm . Sayenizde doğruyu öğrenmiş oldum.
Saygılar

 

[turist]

Sağ olun, iyi çalışmalar.