¿CÓMO REGISTRAR EN MICROSOFT EXCEL DE UNA FORMA FÁCIL Y DINÁMICA? – USO DE FORMULARIO 

Los formularios en VBA nos permiten colocar controles que nos ayudarán a solicitar información de forma ordenada. Podremos colocar cajas de texto, etiquetas, cuadros combinados, botones de comando, etc. De esta manera la recolección de información se hace más accesible y se reducen las tareas repetitivas.

CASO REGISTRO DE PRODUCTO POR MARCA

En esta ocasión se requiere un simple registro de productos por tipo y de acuerdo a esa selección mostrar los productos según lo señalado anteriormente, al final con el botón mostrar listará la aplicación y el programa seleccionado.

Los formularios de Excel son creados desde el Editor de Visual Basic donde debemos seleccionar la opción de menú Insertar y posteriormente la opción UserForm. También se puede insertar un userform haciendo click derecho en “ThisWorkbook”, insertar y userform.

Luego se diseña un formulario que pueda permitir el ingreso de todos los datos necesarios para el registro. En este caso sólo uno.

Con el cuadro de herramientas insertamos 3 Label, 2 Combobox, dos CommandButton, y un listbox.

A continuación, vamos a mostrar las propiedades de los 8 objetos insertados en el formulario:

Finalizado el ejercicio se va a crear el botón REGISTRO DE PRODUCTO que va a ejecutar el formulario.

Es el momento de realizar el código del formulario:

CÓDIGO USERFORM – EVENTO INITIALIZE

Private Sub UserForm_Initialize()

‘calcular la última fila de la hoja «BD»

ultfila = Sheets(«BD»).Range(«A» & Rows.Count).End(xlUp).Row

‘bucle para cargar los datos detallados en la hoja «BD» al ComboBox

For i = 2 To ultfila

cboMarca.AddItem Sheets(«BD»).Cells(i, «A»).Text

cboProducto.AddItem Sheets(«BD»).Cells(i, «C»).Text

Next i

End Sub

CÓDIGO BOTÓN MOSTRAR

Private Sub btnMostrar_Click()

‘mostrar el resumen de la marca y el producto elegido

lstR.Clear

lstR.AddItem «** RESUMEN DE SELECCION **»

lstR.AddItem » El tipo de producto seleccionado es: » & cboMarca.Text

lstR.AddItem » El producto seleccionado es: » & cboProducto.Text

End Sub

CÓDIGO BOTÓN ENVIAR

Private Sub btnEnviar_Click()

‘calcular la última fila de la hoja REGISTROS

ultfila = Sheets(«REGISTRO»).Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

‘ahora copiamos la información elegida en el ComboBox a la hoja de trabajo

Sheets(«REGISTRO»).Cells(ultfila, 2).Value = ultfila – 5

Sheets(«REGISTRO»).Cells(ultfila, 3).Value = cboMarca.Text

Sheets(«REGISTRO»).Cells(ultfila, 4).Value = cboProducto.Text

‘código para centrar y enmarcar el contenido de las celdas

Sheets(«REGISTRO»).Cells(ultfila).HorizontalAlignment = xlCenter

Range(Cells(ultfila, 2), Cells(ultfila, 4)).Select

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.Weight = xlThin

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

End With

With Selection.Borders(xlInsideVertical)

.LineStyle = xlContinuous

End With

With Selection.Borders(xlInsideHorizontal)

.LineStyle = xlContinuous

End With

End Sub

MACRO PARA INICIAR EL FORMULARIO

Sub ABRIR_FORM()

‘mostrar el formulario en pantalla

frmformulario.Show

End Sub

Luego de ingresar todo este código, vamos a crear en la hoja de excel un botón que ejecute el formulario:

Hemos logrado crear una herramienta que logre facilitar la tarea de registrar con ayuda de este userform.