Saltar al contenido
PROGRAMAR EN VBA MACROS DE EXCEL

Llenar combobox y copiar datos en celda de hoja de Excel


.

En combobox incrustado en hoja de Excel se muestra como incrustar un combobox  en la hoja de Excel y seleccionar ítems desde el mismo, en este ejemplo la Macro realizada en VBA ejecuta un procedimiento sencillo, pero útil para comprender como copiar los datos del combo box a una celda de la hoja de Excel.

Al descargar el archivo, se podrá observar dos hojas, haciendo click en la imagen se  podrá ver su aspecto; una llamada Factura y otra llamada Clientes, la primer hoja tiene un espacio para cargar datos de productos, es una forma muy simplificada de una factura, en su parte superior se encuentra un botón el cual llama a un formulario, este formulario consta de un combobox y dos CommandButton o botones de comando, con un botón se cierra el formulario y con el otro se acepta el dato seleccionado en el combobox, el cual se copia automáticamente en la celda destinada a ingresar el nombre del cliente, luego de ello el formulario se oculta, en caso que se acepte y el combobox esté vacío, sale un msgbox indicando que se debe cargar un dato previamente.

En este Blog hay varios post relacionados  con la búsqueda de datos a través de Macros de Excel o Procedimientos de VBA en el post buscar datos en tres columnas; si  quieres más ejemplos sobre como buscar datos deberías ver  como buscar datos en todas las filas  en base  a criterios. Si visitas el mapsite de este sitio,  podrás buscar en el índice del blog y descargar el ejemplo que necesites. 

Antes de seguir recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.
  

En el post anterior combobox incrustado en hoja de Excel se explicaba en detalle como incrustar un combobox  en la hoja de Excel y seleccionar ítems desde el mismo, en este otro ejemplo la Macro realizada en VBA ejecuta un procedimiento muy similar, con la variante que en vez de estar incrustado en la hoja de Excel, el combobox está en un formulario, a lo que se agrega que se puede seleccionar el archivo donde buscar. Si bien hacen diferentes procedimientos en ambos se trabaja con combo box, lo cual sugiero que veas para comprender en forma más acabada  su uso.

El vídeo que sigue muestra una explicación más detallada y gráfica de la macro presentada, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo Las 1000 mejores macros de Excelbuscar en listbox mientras escribes en textbox, como copiar tablas vinculadas de Excel a Wordconectar Excel con Access y muchos ejemplos más.

Código que se inserta en un formulario, haz click para descargar el archivo de ejemplo

 

Private Sub CommandButton1_Click()
If ComboBox1 = Empty Then
MsgBox («Se requiere que seleccione un nombre»), vbCritical, «AVISO»
ComboBox1.SetFocus
Exit Sub
End If
Sheets(«Factura»).Cells(2, 2) = ComboBox1
Unload Me
Sheets(«Factura»).Select
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
ComboBox1.Clear
Sheets(«Clientes»).Select
Range(«A2»).Select
While ActiveCell <> Empty
ComboBox1.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend
End Sub

Código que se inserta en un módulo

Sub muestraform()
UserForm1.Show
End Sub


Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.

If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.

Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends