Type mismatch error in this specific case

[davquak]

Hi all,
I've been following a youtube tutorial on how to create an invoice system in excel, and by following I mean almost exactly replicating every step he does (this video:

).
I have a basic understanding on what he's doing but at the 46 minute mark he's making a line which is:

InvItemRow = .Range("I" & ItemRow).Value

, both InvItemRow and ItemRow are Long Dims.
It's working for the guy in the video but I get the Run-time error '13': type mismatch error on that particular line.

Below the code and the highlighted part that gave me the error:

Anyone knows why this is happening? Thanks for helping out!

 

[dmt32]

Hi welcome to forum

try changing that part of code with this

If Val(.Range("I" & ItemRow).Value) > 0 Then
    
        InvItemRow = .Range("I" & ItemRow).Value
    Else
    
        'rest of code
    
    End If

Future tip, post all your code using VBA code tags from menu bar, makes it much easier for helpers to adjust code.

Hope Helpful

Dave

 

[davquak]

Thank you! I will try this tonight