How can I allow a user to correct excel data once VBA identifies an error?

[Chopper50]

I have a message box pop up when VBA encounters an error, however once the user clicks OK the error handler skips the line and moves on. I want to give the user the opportunity to correct what is causing the error and give the program the chance to rerun that portion of the program.

ErrorHandler:
ActiveSheet.Cells(i, Z1).Select
MsgBox ("Issue is in row " & i)

 

[Rick Rothstein]

I have a message box pop up when VBA encounters an error, however once the user clicks OK the error handler skips the line and moves on. I want to give the user the opportunity to correct what is causing the error and give the program the chance to rerun that portion of the program.

ErrorHandler:
ActiveSheet.Cells(i, Z1).Select
MsgBox ("Issue is in row " & i)

Look up the "Resume Statement" in the VB help files... I think it is what you are looking for.

 

[Chopper50]

I missed the Resume Next in my code. So it is actually

ErrorHandler:
ActiveSheet.Cells(i, Z1).Select
MsgBox ("Issue is in row " & i)
Resume Next

But as soon as i click ok on the message box, the code continues on without any user adjustments

 

[mikerickson]

Something like

ErrorHandler:
    Dim userEntry as Variant
    With Cells(i, Z1)
        .Select
        Do 
            userEntry = InputBox("Fix this number", Default:=.Value, type:=7)
            If TypeName(userEntry) = "Boolean" And userEntry = False then Beep
        Loop Until TypeName(userEntry) <> "Boolean" Or userEntry <> False
        .Value = userEntry
    End With
    Resume Next

 

[Chopper50]

I'm giving this a try. I get a Compile error "Named argument not found" on the userEntry line at the --- type:=7 ---- portion.

 

[mikerickson]

I should probably have spelt default correctly.

 

[Chopper50]

I don't see where you spellled it incorrectly.

 

[mikerickson]

Try this

userEntry = [U]Application[/U].InputBox("Fix this number", Default:=.Value, type:=7)