Urgent! Error in "Else without If"

[aribfaishal]

anyone can help me to solve this code? it always stuck "Else Without If".
for my homework
this is the code (some code like MsgBox using indonesian language because i'm from indonesia :D ):

Private Sub CmbInput_Click()
Set info = Worksheets(CekHarga)
If info.Range("C3").Value = "" Then pesan = MsgBox("PERHATIAN!!!" & vbCrLf & "Kolom nama/kode barang masih kosong!", vbOKOnly + vbCritical, "INPUT GAGAL")
Call Range("C3").Select
Else info.Range("C3").Value <> "" Then pesan = MsgBox("Masukkan data sekarang?", vbYesNo + vbInformation, "Informasi Data")
If pesan = vbYes Then
Set dbs = Worksheets("Dafter Pesanan")
linenext = dbs.Cells(Rows.Count, “A”).End(xlUp).Offset(2, 0).Row
dbs.Cells(linenext, 1).Value = Range("C3").Value
End If
End Sub


The code Stuck at :
Else info.Range("C3").Value <> "" Then pesan = MsgBox("Masukkan data sekarang?", vbYesNo + vbInformation, "Informasi Data")


for everybody, thanks before

 

[taurean]

Welcome to MrExcel. Probably the way you have written code is causing error.

Untested:

Private Sub CmbInput_Click()

Set info = Worksheets(CekHarga)
If info.Range("C3").Value = "" Then
    pesan = MsgBox("PERHATIAN!!!" & vbCrLf & "Kolom nama/kode barang masih kosong!", vbOKOnly + vbCritical, "INPUT GAGAL")
    Call Range("C3").Select
Else
    pesan = MsgBox("Masukkan data sekarang?", vbYesNo + vbInformation, "Informasi Data")
End If

If pesan = vbYes Then
    Set dbs = Worksheets("Dafter Pesanan")
    linenext = dbs.Cells(Rows.Count, "A").End(xlUp).Offset(2, 0).Row
    dbs.Cells(linenext, 1).Value = Range("C3").Value
End If

End Sub

 

[hippiehacker]

Private Sub CmbInput_Click()
Set info = Worksheets(CekHarga)
If info.Range("C3").Value = "" Then
 pesan = MsgBox("PERHATIAN!!!" & vbCrLf & "Kolom nama/kode barang masih kosong!", vbOKOnly + vbCritical, "INPUT GAGAL")
 Call Range("C3").Select
ElseIf info.Range("C3").Value <> "" Then pesan = MsgBox("Masukkan data sekarang?", vbYesNo + vbInformation, "Informasi Data")
End If
If pesan = vbYes Then
Set dbs = Worksheets("Dafter Pesanan")
linenext = dbs.Cells(Rows.Count, “A”).End(xlUp).Offset(2, 0).Row
dbs.Cells(linenext, 1).Value = Range("C3").Value
End If

End Sub

 

[aribfaishal]

did it! with this code :

Private Sub CmbInput_Click()
Set info = Worksheets("CekHarga")
If info.Range("C4").Value = "" Then
pesan = MsgBox("WTF???" & vbCrLf & "Kolom nama/kode barang masih kosong!", vbOKOnly + vbCritical, "INPUT GAGAL")
Call Range("C4").Select
ElseIf info.Range("C4").Value <> "" Then pesan = MsgBox("Masukkan data sekarang?", vbYesNo + vbInformation, "Informasi Data")
End If
If pesan = vbYes Then
Set dbs = Worksheets("Dafter Pesanan")
linenext = dbs.Cells(Rows.Count, “A”).End(xlUp).Offset(1, 0).Row
dbs.Cells(linenext, 1).Value = Range("C4").Value
End If


End Sub

but i got error again, error message "Run time error '1004'", error from this code :
linenext = dbs.Cells(Rows.Count, “A”).End(xlUp).Offset(1, 0).Row

what must i do?

 

[FormR]

Your double quotes don't look right.
linenext = dbs.Cells(Rows.Count, “A”).End(xlUp).Offset(1, 0).Row

Try instead:
linenext = dbs.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row

 

[aribfaishal]

Your double quotes don't look right.
linenext = dbs.Cells(Rows.Count, “A”).End(xlUp).Offset(1, 0).Row

Try instead:
linenext = dbs.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row

Yeep that's works!! thanks!!