Hola, favor ayudame a solucionar un error 13 en excel, vb.
Para ElsaMatilde: hola, por favor me podría ayudar a solucionar un error que me aparece en excel al momento que elimino un registros. Tengo una macro que me permite agregar registros, también puedo eliminarlos a través de un botón que tengo en el Userform, pero cuando elimino cualquier registro, siempre me sale este mensaje:
Error 13 en tiempo de ejecución:
No coinciden los tipos.
tengo 10 userform en mi aplicación y cuando le doy depurara, el error me selecciona el Userform4 señalando que allí esta el problema, también me desconfigura las formulas que tengo en las hojas.
A continuación le dejo el código para ver si es posible me dice donde esta el error. Muchas gracias por su ayuda
Private Sub CommandButton4_Click()
Application.ScreenUpdating = False
If ListBox1.ListIndex < 0 Then
MsgBox "Selecciona una Fecha para borrar", vbCritical, "FECHAS"
Exit Sub
End If
'fila de registro
b = ListBox1.ListIndex + 2
'valor del registro
placa = ListBox1.List(ListBox1.ListIndex, 0)
'borra fila
If Sheets("Hoja6").Range("A" & b) = "" Then
MsgBox "NO hay datos en esta fila para eliminar"
Else
Sheets("Hoja6").Range("A" & b).EntireRow.Delete
'aquí siguen tus instrucciones
'Sheets("Hoja6").Select 'para qué la seleccinas??
Sheets("Hoja6").Cells.Replace "=", "="
Application.ScreenUpdating = True
MsgBox "Registro borrado con éxito", vbInformation, "Fin del Recordatorio"
End If
End Sub