Buen día Mi pregunta es porque me sale un error de compilación en excel cuando ingreso el sig. Codig

El siguiente código se supone que es para en mi hoja de excel me aparezca un User Form para ingresar unos datos a una base la cual estoy ejecutando con una imagen

pero no se porque me aparece el error de compilación me podrían ayudar, anexo los códigos.

Private Sub Agregar_click()  ( esta parte aparecen en amarillo)
Dim iFila As Long
Dim ws As Worksheet
Set ws = Worksheets(2)
End Sub
'Encuentra la siguiente fila vacía
iFila = ws.Cells(Row.Count, 1).End(xlUp).Offset(1, 0).Row  ( El numero 1 esta en azul)
'Verifica que se ingrese un Nombre
If Trim(Me.Registration.Value) = "" Then
Me.Registration.SetFocus
MsgBox "debo ingresar el nombre del cliente"
Exit Sub
End If
'Ingresa los Datos a la Base de Datos
ws.Cells(iFila, 1).Value = Me.Registration.Value
ws.Cells(iFils, 2).Value = Me.Aircraft.Value
ws.Cells(iFila, 3).Value = Me.Client.Value
ws.Cells(iFila, 4).Value = Me.Address.Value
ws.Cells(iFila, 5).Value = Me.Estado.Value
ws.Cells(iFila, 6).Value = Me.Ciudad.Value
ws.Cells(iFila, 7).Value = Me.CP.Value
ws.Cells(iFila, 8).Value = Me.RFC.Value
'Limpia el Formulario para ingresar el siguiente dato
Me.Registration.Value = ""
Me.Aircraft.Value = ""
Me.Client.Value = ""
Me.Address.Value = ""
Me.Estado.Value = ""
Me.Ciudad.Value = ""
Me.CP.Value = ""
Me.RFC.Value = ""
Me.Registration.SetFocus
End Sub

1 respuesta

Respuesta
1

Hay dos instrucciones End Sub (filas 5 y la última)...

tenias razón solo que ahora me aparece un Msgbox que dice Se a producido un error el error '424' en tiempo de ejecución:

Se requiere un objeto. Y al depurar aparece la siguiente linea en amarillo.

iFila = ws.Cells(Row.Count, 1).End(xlUp).Offset(1, 0).Row (esta linea en amarillo)

Row es una propiedad del objeto Range, y hasta donde yo sé no tiene a su vez una propiedad Count.

¿Quizás habría que sustituir Row por Rows?

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas