soy nuevo por acá en el foro... mi inquietud es la siguiente, tengo una macro en un formulario que funciona mediante un botón de buscar. Los campos "cargo" y "nombre" se encargan de buscar en la hoja3 la similitud que haya con lo que se escriba en el campo "masCedula". Cuando se produce el "Error 1004" es porque la cédula que se busca no existe en la hoja3 ¿Cómo hago para que en vez de que me aparezca este mensaje de error 1004 que me interrumpe mi aplicación, me aparezca un mensaje personalizado?
Dim fila As Long
Dim i As Integer
Dim cargo, nombre As String
fila = Hoja3.Range("A" & Rows.Count).End(xlUp).Row
cargo = WorksheetFunction.VLookup(Val(masCedula), Hoja3.Range("A2:H" & fila), 2, 0) 'busca el cargo de cedula
nombre = WorksheetFunction.VLookup(Val(masCedula), Hoja3.Range("A2:H" & fila), 3, 0) 'busca el nombre de la cedula
If Err.Number = 1004 Then
MsgBox "Esta cédula no existe", vbExclamation, "DATAPAD 3.3 - Error"
masCedula = ""
Exit Sub
End If