If sætning
Hej eksperterJeg har et problem med if sætninge.
Jeg er lige begyndt at programer i vba.
mit problem er,jeg har lavet en kode der ser sådan ud.
Public Sub Sodavand_mvh()
Dim iResultat As Integer
iResultat = InputBox("Skriv venligst Pris:")
MsgBox iResultat & " Kr Modtaget"
Range("C5").Value = Range("C5").Value + iResultat
End Sub
Jeg vil godt have en msgbox der kommer frem hvis brugeren ikke indtaster et beløb ("Du skal indtaste et beløb")
Og hvis brugeren trykker på cancel skal den lukke inputboxen
uden at melde fejl
Jeg har prøvet med men det virker ikke,jeg ved godt at der mangler noget
Public Sub Sodavand_mvh()
Dim iResultat As Integer
iResultat = InputBox("Skriv venligst Pris:")
If iResultat = "" Then
MsgBox = ("Du skal indtaste et beløb")
Else
MsgBox iResultat & " Kr Modtaget"
Range("C5").Value = Range("C5").Value + iResultat
End If
End Sub
mvh
mvhansen
