Using IIf function instead of "If then" in Excel VBA

[NDMDRB]

Hi,

I have a peace of code below using "If Then" and wondering how can I make it smaller using IIf function

If Not Me.Plate_TXT = "" Then
        ws.Cells(nr, "D") = CDbl(Me.Plate_TXT)
End If

In TextBox "Plate_TXT" I'm using number, so I need to use CDbl() format
The above code is running correctly, but I tried the one below, but I got an error, also tried CDate for another textbox and got an error

ws.Cells(nr, "D") = IIf(Me.Plate_TXT = "", "", CDbl(Me.Plate_TXT))

Can you please help me fixing it?

Many thanks in advanced

 

[Joe4]

Note that you can make it a one line statement using IF, like this:

If Not Me.Plate_TXT = "" Then ws.Cells(nr, "D") = CDbl(Me.Plate_TXT)

You can do that anytime you only have one line of code between the IF and END IF statements.

 

[NDMDRB]

Note that you can make it a one line statement using IF, like this:

If Not Me.Plate_TXT = "" Then ws.Cells(nr, "D") = CDbl(Me.Plate_TXT)

You can do that anytime you only have one line of code between the IF and END IF statements.

Thank you Joe4
Yes you are right, but some situations I need to use If and Else,
Ex:
ws.Cells(nr, "E") = Iif(Me.Type_CMB = "", "Follow Up", Me.Type_CMB)
The above works correctly since there is no date or number format used, but if I need to use it as CDate(Me.Type_CMB) or CDbl(Me.Type_CMB) I got an error

I need a shortcut because I have a lot of textboxes and need to make it simple

 

[RoryA]

Shorter code does not necessarily mean better code. The problem with IIf is that it always evaluates both the True and False expressions. So if your textbox is empty, it still tries to evaluate CDbl("") and you get an error. Stick with If...Then.