Llenado de combobox

Hola a Todos, mi caso es el siguiente
Tengo una hoja de cálculo "Hoja1" con varios combo box insertados desde el cuadro de controles de excel.
Tengo otra hoja llamada "Tablas", la idea es que cuando marque la barra de desplazamiento del combo me llene los datos contenidos en la "tablas". Ejemplo
en la hoja1
combobox1: al desenrollar se llene con los datos que tengo en la hoja "Tablas" columna C (hasta que encuentre fila vacía)
combobox2: igual que el anterior pero debe llenar el contenido de la columna E
Combobox3: igual pero debe llenar el contenido de la columna F
y así sucesivamente hasta con todos los combobox
gracias por la ayuda
Jforero
Aplique este código:
Private Sub ComboBox1_DropButtonClick()
Call ComboBox1Carga
ComboBox1.DropDown
End Sub
(Repetir para cada combo ajustando su nombre)
Ahora insertá un módulo y allí copiá esta rutina para el combobox1 (repetir ajustando los nombres de los otros controles y sus rangos)
Sub ComboBox1Carga()
Application.ScreenUpdating = False
Sheets("Tablas").Select
ActiveSheet.Range("C2", Range("C2").End(xlDown)).Select
rgo = Selection.Address
Sheets("Hoja1").ComboBox1.ListFillRange = "Tablas!" & rgo
Sheets("Hoja1").Select
End Sub
Sin embargo en el modulo no me reconoce :Sheets("Hoja1").ComboBox1.ListFillRange = "Tablas!" & rgo
¿Por favor a que se debe este error?

1 Respuesta

Respuesta
1
En ppio no hay nada que me indique que hay un error; sin embargo a mi me gusta más esta otra forma (que si bien puede ser más lenta, no te deja el combo "atado")
Sub Combobox1Carga()
dim fila as Long
application.ScreenUpdating = False
fila = 2
Do While Sheets("Tablas").Cells(fila,3) <> ""
 Sheets("Hoja1").ComboBox1.Add Sheets("Tablas").Cells(fila,3)
 fila = fila +1
Loop
Application.ScreenUpdating = True
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Llenado de Combo Box

Tengo una hoja de cálculo "Hoja1" con varios combo box insertados desde el cuadro de controles de excel. Tengo otra hoja llamada "Tablas", la idea es que cuando marque la barra de desplazamiento del combo me llene los datos contenidos en la "tablas"....
1 respuesta

Cargar datos de hoja a combo sin repetir

Estoy usando Excel 2010 tengo en Hoja1 como 200 nombres desde A1 hacia abajo (columna) la mayoría repetidos y en Hoja 2 un combobox con esta lista almacenada en prop. ListFillRange; pero creo que sería mejor hacer la codificacion en el combo ya que...
1 respuesta

Limpiar ComboBox con VBA

Tengo un proyecto en excel 2010 con algo de VBA donde en determinada hoja lleno celdas con datos simulando un formulario, un dato especifico de esa serie se debe seleccionar de un ComboBox, una vez llenas todas las celdas ejecuto una macro que copia...
1 respuesta

Cargar Combobox con datos de 2 columnas

A ver si me resolvéis esto. Tengo un combobox y quisiera carga en este los datos de 2 columnas. La rutina que tengo es esta, pero solo consigo cargar la 1º columna ¿Como seria la rutina para que ponga los datos de la columna1 y la columna2 en la...
1 respuesta

Copiar datos a hojas desde formulario con 2 paginas

Tengo un UserForm que quiero utilizar como formulario, para introducir datos a dos hojas distintas (Hoja1 y Hoja2); de tal manera que los datos que introduzca en los distintos TextBox y ComboBox, de la "Page1" del UserForm se copien en la Hoja1; y...
1 respuesta

Combobox sin repetir dato y con celdas vacías

Espero logres ayudarme si te es posible con esta duda, veras tengo un userform con 2 combobox uno para mostrarme las hojas de calculo y otro para mostrarme lo valores de las celdas de la columna "B" a partir del B3 sin repetir los valores..: ....
1 respuesta

Llamar con un combobox datos de la cell B y en un textbox arrojar el código que esta en la cell a

Ya tengo los tres combobox funcionando, el ultimo combobox como por ejemplo selecciona un material y ese material le coloque un código como por ejemplo tabla 1" tiene el código TE-001. En el caso de la selección de algún material con el combobox de...
1 respuesta

Macro para eliminar columnas

Tengo un archivo con muchas columnas, quisiera hacer una macro que me permita eligir las columnas a eliminar, por ahora solo tengo esta macro, que solo me deja eliminar una columna a la vez. Sub eliminarcolumna() Dim operacion As String Dim fila As...
1 respuesta

Llenar comboboxs sin espacios en blanco

He intentado arreglar el siguiente problema. Tengo valores en la Hoja2 desde la columna A. Dichos valores solo cubren algunas celdas de la columna. Además tengo un Combobox en la misma hoja, en el cual quiero que tome los valores de la columna A,...
1 respuesta

Llenar combobox con valores de una columna y el valor pegarlo en una celda de una hoja diferente.

Necesito de su siempre muy buena ayuda. Estoy haciendo un formulario en donde tengo un combobox el cual quiero que se llene con los valores de una columna de una hoja "Datos" y que el valor que yo escoja en el combobox sea pegado automáticamente en...
1 respuesta