Entra en esturctura de error sin que exista un error
Hola, buenos dias, tardes o noche(dependiendo de su uso horario) tengo el siguiente codigo
Sub diasmez()
On Error GoTo ErrorHandler
Dim m3, totm3 As Integer
'Ubicacion de m3 trasladados los lunes
If dia = 1 Then
With Sheets("Dias_Bombas").Select
With Selection
Range("B4:D4").Select
m3 = ActiveCell.Value
totm3 = m3 + CInt(TextCubi.Text)
ActiveCell.FormulaR1C1 = totm3
End With
End With
End If 'fin ubicacion de m3 trasladados los lunes
ErrorHandler:
MsgBox "Se ha producido un error, no se ha podido agregar los m3 trasladados al formato" & Err.Description, vbSystemModal + vbCritical, "ERROR"
End SubY siempre entra en el msj del error handler, no existe error alguno e igual lo muestra, alguno sabe el porque? Omiti algo ? Sin mas que agregar muchas gracias.
2 Respuestas
Respuesta
3
Deberías hacer que salga del procedimiento antes del final mediante la instrucción Exit Sub. Tu código modificado sería
Sub diasmez()
On Error GoTo ErrorHandler
Dim m3, totm3 As Integer
'Ubicacion de m3 trasladados los lunes
If dia = 1 Then
With Sheets("Dias_Bombas").Select
With Selection
Range("B4:D4").Select
m3 = ActiveCell.Value
totm3 = m3 + CInt(TextCubi.Text)
ActiveCell.FormulaR1C1 = totm3
End With
End With
End If 'fin ubicacion de m3 trasladados los lunes
Exit Sub
ErrorHandler:
MsgBox "Se ha producido un error, no se ha podido agregar los m3 trasladados al formato" & Err.Description, vbSystemModal + vbCritical, "ERROR"
End Sub
