se ha producido un error 13 en tiempo de ejecucion: no coincide los tipos

Question

Sub guardarinformacion()

Rem Declaracion de variables

Dim contfila As Long

Dim hoja As Worksheets

Set hoja = Worksheets(1)

'validamos que los campos de texto correspondan a los datos de clientes estén diligenciados totalmente´

If Trim$(TxtNombre.Text) = Empty Or Trim$(TxtApellido.Text) = Empty Or Trim$(TxtCorreo.Text) = Empty Or Trim$(TxtTelefono.Text) = Empty Or Trim$(TxtDireccion.Text) = Empty Or Trim$(TxtCumpleaños) = Empty Then

End If

MsgBox "por favor ingresar todos los datos", vbCritical, "Datos Incompletos"

Exit Sub

'validamos la fila siguiente en la hoja donde se deben ingresar los datos´

confila = hoja.Cells(Rows.Count, 1).End(xlUp).Offset(1, o).Row

hoja.Cells(contfila, 1).Value = Me.TxtNombre.Value

hoja.Cells(contfila, 2).Value = Me.TxtApellido.Value

hoja.Cells(contfila, 3).Value = Me.TxtCorreo.Value

hoja.Cells(contfila, 4).Value = Me.TxtTelefono.Value

hoja.Cells(contfila, 5).Value = Me.TxtDireccion.Value

hoja.Cells(contfila, 6).Value = Me.TxtCumpleaños.Value

'se limpia o borra los datos de los campos de texto del formulario´

Me.TxtNombre.Value = ""

Me.TxtApellido.Value = ""

Me.TxtCorreo.Value = ""

Me.TxtTelefono.Value = ""

Me.TxtDireccion.Value = ""

Me.TxtCumpleaños.Value = ""

End Sub

Private Sub ImgCerrar_Click()

Unload Me

End Sub

Private Sub ImgGuardar_Click()

guardarinformacion

End Sub

Answer 1

esta línea está mal:

confila = hoja.Cells(Rows.Count, 1).End(xlUp).Offset(1, o).Row

en lugar de "o" (O minúscula)

debe ser un 0 (cero)

Answer 2

Gracias..