Compile Error: Else Without İf

Kodla Büyü

girdab

Seçkin Üye
Seçkin Üye
Mesajlar
597
Private Sub Command1_Click()
a = InputBox("Bugünkü Hava Sıcaklığını Giriniz", "Sıcaklık")
If a <= 0 Then MsgBox "Hava Soğuk"
Else: If a > 0 And a <= 10 Then MsgBox "Hava Soğuk"
Else: If a > 10 And a < 25 Then MsgBox "Hava Sıcaklığı Normal"
Else
MsgBox "Hava Çok Sıcak"
End If

End Sub

şu kodlamada Compile Error: Else Without İf hatası veriyor. Hata nerede acaba? Yardımcı olabilirseniz sevinirim.
 
Private Sub Command1_Click()
a = InputBox("Bugünkü Hava Sıcaklığını Giriniz", "Sıcaklık")
If a <= 0 Then MsgBox "Hava Soğuk"
If a > 0 And a <= 10 Then MsgBox "Hava Soğuk"
If a > 10 And a < 25 Then MsgBox "Hava Sıcaklığı Normal"
if a>25 then msgbox "Hava Çok Sıcak"

End Sub

böyle düzeltirsen sanırım çalışır hocam
 
girdab' Alıntı:
Private Sub Command1_Click()
a = InputBox("Bugünkü Hava Sıcaklığını Giriniz", "Sıcaklık")
If a <= 0 Then MsgBox "Hava Soğuk"

Else
MsgBox "Hava Çok Sıcak"
End If

End Sub

şu kodlamada Compile Error: Else Without İf hatası veriyor. Hata nerede acaba? Yardımcı olabilirseniz sevinirim.
Kod:
ElseIf a > 0 And a <= 10 Then MsgBox "Hava Soğuk"
    ElseIf a > 10 And a < 25 Then MsgBox "Hava Sıcaklığı Normal"

şeklinde düzeltirsen çalışır hocam. Elseif de arada boşuk bulunmaz
 
Eksik Yazmışsın

Valla o Hata Mesajı Benim bildiğim end if kelimesini eksik yazdığında çıkar.
Ve Ben O hata ile çok Karşılaştım.Biyerlerde end if kelimesini muhakkak eksik yazmışsın
orda ara derim
 
Private Sub Form_Load()
a = InputBox("Bugünkü hava sıcaklığını giriniz")
If a <= 0 Then
MsgBox "Hava çok soğuk"
ElseIf a > 0 And a <= 10 Then
MsgBox "Hava soğuk"
ElseIf a > 10 And a < 25 Then
MsgBox "Hava sıcaklığı normal"
Else
MsgBox "sıcak"
End If
End Sub

Bu şekilde çalışıyor Then den sonra yeni satır olarak yazılmalı
 
Geri
Üst