Paso a paso para cargar un combobox desde la hoja
La cuestión es que no se cargar un bendito combobox desde una hoja de excel los datos que quiero ingresar al combobox están en la hoja2 columna A2 hasta la ultima fila con datos y el combo lo requiero en la hoja1 pero quiero saber paso a paso como se carga y se actualiza dicho combobox de antemano agradezco el que me apoyen con esta solicitud que es algo muy básico para algunos
2 Respuestas
Esta macro carga los archivos de la hoja 2 al listbox a través de una matriz(filasxcolumnas) con esto tienes la ventaja sobre la opción additem y rowsource que no estas limitado a 10 columnas en el caso additem o a tener que cambiar el rango del rowsource cada que agregues un archivo, la macro actualiza el listbox cada que agregues un registro o lo borres.
Private Sub UserForm_Initialize()
matriz = Worksheets("Hoja2").Range("a2").CurrentRegion
With ListBox1
.List = matriz
.ColumnCount = Worksheets("Hoja2").Range("a2").CurrentRegion.Rows.Count
.ColumnWidths = "4;4;4;4;4"
End With
End Sub
Si es un combobox de Control ActiveX
Pon el siguiente código en los eventos de tu hoja
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Set h2 = Sheets("Hoja2")
ActiveSheet.ComboBox1.Clear
For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.ComboBox1.AddItem h2.Cells(i, "A").Value
Next
End SubSigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- En el panel del lado derecho copia la macro
'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda