Programar en Excel – Creando un UserForm paso a paso 3

Comencemos con el articulo Programar en Excel - Creando un Userform paso a paso 3:

Programar en Excel - Códigos para programar el botón "Agregar"

Vamos a comenzar con el tema de hoy, pero antes te invito a que repases el tema anterior pulsando clic aquí.

Y si ya lo leíste y aplicaste todos los pasos del tema anterior, entonces continua con este tema. Hoy vamos a escribir los códigos correspondiente al botón "Agregar" del Formulario (UserForm).

Agregamos el código al botón "Agregar"

Seleccionamos el botón "Agregar": Desde el menú superior elegimos la opción "Ver" > "Código". Esto abrirá una ventana donde podremos escribir "Código Macro" para dicho objeto.

Donde titila el cursor escribimos lo siguiente:

‘definimos las variables
Dim iFila As Long
Dim ws As Worksheet
Set ws = Worksheets(1)
‘ Encuentra la siguiente fila vacía
iFila = ws.Cells(Rows.Count, 1) .End(xlUp).Offset(1, 0).Row
‘ Verifica que se ingrese un nombre
If Trim(Me.UFNombre.Value) = «» Then
Me.UFNombre.SetFocus
MsgBox «Debe ingresar un nombre»
Exit Sub
End If
‘ Copia los datos a la tabla Excel
ws.Cells(iFila, 1).Value = Me.UFNombre.Value
ws.Cells(iFila, 2).Value = Me.UFEdad.Value
ws.Cells(iFila, 3).Value = Me.UFFecha.Value
‘ Limpia el formulario
Me.UFNombre.Value = «»
Me.UFEdad.Value = «»
Me.UFFecha.Value = «»
Me.UFNombre.SetFocus
End Sub

En el menú superior elegimos "Ver" > "Objeto" para regresar al Userform.

No te preocupes si no comprendes el código. Hay muchos Objetos, Propiedades y Métodos nuevos. Todos ellos se explican mejor en los siguientes temas.

Y en el próximo tema, vamos a agregar el código correspondiente para el botón "Cerrar", tal a como lo hicimos hoy con el código "Agregar".

Además, si te ha gustado el tema de hoy, te invito a que lo compartas con tus amigos de Facebook pulsando clic en el botón compartir:

Compartir0

Para finalizar, me gustaría saber que piensas de este articulo "Programar en Excel - Creando un UserForm paso a paso 3".

Por lo tanto:

Déjame tu comentario con dudas, críticas constructivas y sugerencia en la sección de comentarios o bien en el Chat. Al mismo tiempo te invito a que visites nuestra pagina de Facebook, pulsando clic aquí.

Te saluda,

Roger Perez - Aplica Excel Contable