Error al compilar, creo que son muchos datos para el combobox

Tengo aproximadamente como 2.000 datos para el combobox como puedes ver, ¿cómo arreglo que no tenga limite? ¿Y me deje compilar y correr el formulario sin ningún problema?

1 Respuesta

Respuesta
1

Tienes que poner todos los datos en una hoja.

Puedes cambiar la forma de agregar datos al combo cbodescripcionequipo:

 Cbodescripcionequipo. AddItem "31-24180-->ACCIONAMIENTO #1 MESA RECEP"
     Cbodescripcionequipo. AddItem "031-24-180 --> MOTOR. REDUCTOR MESA N°1"
      Cbodescripcionequipo.AddItem "031-26-324 --> MOTOR. REDUCTOR"
       Cbodescripcionequipo. AddItem "031-26-325 --> MOTOR. REDUCTOR"

Puedes poner en una hoja "Catalogos", en la la columna A toda la lista de equipos:

Y reemplazas el código por este:

 'Carga equipos
    Set hc = Sheets("Catalogos")
    rango = hc.Range("A2:A" & hc.Range("A" & Rows.Count).End(xlUp).Row).Address
    cbodescripcionequipo.RowSource = hc.Name & "!" & rango
    Set h = Sheets("BaseDeDatos")

Sal u dos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Buscar valor dentro de un rango inicio y fin Excel

Tengo que obtener el valor en función al nombre y rango. Tengo que buscar primero por nombre, si coincide, ahora tengo que validar si el importe esta dentro de uno de esos rangos, y si lo encuentra me debe traer el VALOR.
2 respuestas

Obtener el ancho de una columna Excel

Tengo varias columnas, y lo que quiero es obtener el valor del ancho de cada columna. Ejemplo: COL A - CELDA A1 = 15.5 COLB - CELDA B2 = 14.5 ETC
1 respuesta

Función left en un Rango Variable Macros Excel

Estoy intentando hacer una macro que me permite obtener las primeras 20 letras de una columna en otra. Esto lo hago simplemente con un izquierda(B2, 20) en excel pero ahora quiero hacerlo en Macros. Tengo 2 columnas A Y B.La columna A esta vacía y en...
3 respuestas

Convertir Texto a Número con Decimales

Tengo mis TextBox donde guardo información pero esta la guarda como texto y deseo convertirlos a Números con Decimales ya utilice Val pero me los convierte en Enteros es al momento de guardar el dato y al momento de modificar el dato. Abocándome a...
3 respuestas

Botón siguiente en formulario Excel

Estoy creando un formulario en Excel con varios ejemplos que me he encontrado en varias páginas. La idea es que al momento de hacer doble click en alguna celda de la columna "A", se abra el formulario y se carguen los datos de esa fila en el...
3 respuestas

Modificar macro para que también copie las fórmulas de las celdas

Quisiera que la macro que adjuntare también copie las fórmulas, ya no solo los valores de las celdas, he intentando agregando según lo que investigue en internet: "ws2.Range(celda.Address).Fórmula = celda.Fórmula", pero me da error 1004 Sub...
2 respuestas

Filtrar en Listbox por varios Criterios desde un Combobox.

Expertos, Aclaro, antes que nada, No tengo la experiencia de un experto en vba, fui armando macros según la necesidad de mi trabajo día a día y cada vez gusta mas!. Bien, les comento mi situación: En un formulario al iniciarlo llenamos un Listbox1...
1 respuesta

¿Es posible correr una macro teniendo otro archivo Excel abierto?

Trabajo en Excel con Macros y Formularios, les comento un poco esta situación. Desde un formulario (astyl) genero un (reporte), este lo hace en formato .xlsx hasta ahí todo corre perfecto, el tema esta cuando abro este nuevo archivo (reporte) y...
1 respuesta

Macro que eliminé el color

Necesito una macro que eliminé el color de fondo por columnas excepto la columna que tenga en el encabezado Texto1.
2 respuestas

Macros > Error 1004 al agregar comentarios a celdas

Tengo un archivo de excel en el cual contiene botones para ocultar y aparecer filas; sin embargo si agrego comentarios a alguna de las celdas me aparece el siguiente error: "Run-Time error '1004': unable to set the hidden property of the ranges...
2 respuestas