Jump to content
jose lopez contreras

ComboBox carga muy lento

Recommended Posts

Hola amigos encontré la siguiente instrucción para cargar un ComboBox, funciona bien con una base de datos pequeñas, pero al tener una base de datos grande (mas de 3000 datos) tarda mas de 50 segundos en cargar. Pregunto abra otra forma de realizarlo en menor tiempo, alguien podrá darme un ejemplo.

Sub cargarcombo1()
For n = 2 To Hoja12.Range("E" & Rows.Count).End(xlUp).Row 
ComboBox1 = Hoja12.Range("E" & n)
   If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem ComboBox1
Next
ComboBox1 = ""
End Sub

 

Share this post


Link to post
Share on other sites
Hace 10 minutos , Haplox dijo:

@jose lopez contreras , me da que ta has liado mucho...😲
 


Sub cargacombo1()

n = Range("E" & Rows.Count).End(xlUp).Row
ComboBox1.RowSource = Range("E2:E" & n).Address

End Sub

 

@Haplox gracias por tu pronta respuesta, pero fijate que solo me carga E1 es decir el titulo de la columna, que estara pasando

Share this post


Link to post
Share on other sites
Hace 4 minutos , jose lopez contreras dijo:

que estara pasando

Pues el único problema puede ser la estructura de los datos en esa columna (?) ¿Es un combo en un userform o en una hoja?

Share this post


Link to post
Share on other sites
Hace 8 minutos , Dr Hyde dijo:

puedes usar una matriz de datos y la propiedad combobox1,list 

Sub cargar_combo()
filas = Range("e1").CurrentRegion.Rows.Count
matriz = Range("e1").Resize(filas, 1)
ComboBox1.List = matriz
End Sub
 

@Dr Hyde gracias por tu aportación , pero fíjate que me carga toda la columna después del encabezado es decir no filtra la palabras repetidas por ejemplo tengo la palabra "VENTA" 1000 veces  y en ComboBox aparecen las 1000 veces, con la instrucción que subí si filtra pero tarda demasiado

Share this post


Link to post
Share on other sites

Esta macro carga valores únicos ordenados:

Sub CargarCombo1()
With Hoja12
   Application.ScreenUpdating = False
   .Columns("E").Copy .Columns(Columns.Count)
   .Cells(1, Columns.Count).Delete
   .Columns(Columns.Count).RemoveDuplicates Array(1)
   .Columns(Columns.Count).Sort key1:=.Cells(1, Columns.Count)
   ComboBox1.List = Range(Cells(1, Columns.Count), Cells(Rows.Count, Columns.Count).End(xlUp)).Value
   .Columns(Columns.Count).Clear
End With

 

Share this post


Link to post
Share on other sites

Otra forma
 

Sub cargacombo1()
Dim datos As New Collection
Dim item

n = Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To n
    On Error Resume Next
    datos.Add Cells(i, "A"), CStr(Cells(i, "A"))
Next i

For Each item In datos
    ComboBox1.AddItem item
Next item

End Sub

 

Share this post


Link to post
Share on other sites
Hace 23 minutos , Antoni dijo:

Esta macro carga valores únicos ordenados:


Sub CargarCombo1()
With Hoja12
   Application.ScreenUpdating = False
   .Columns("E").Copy .Columns(Columns.Count)
   .Cells(1, Columns.Count).Delete
   .Columns(Columns.Count).RemoveDuplicates Array(1)
   .Columns(Columns.Count).Sort key1:=.Cells(1, Columns.Count)
   ComboBox1.List = Range(Cells(1, Columns.Count), Cells(Rows.Count, Columns.Count).End(xlUp)).Value
   .Columns(Columns.Count).Clear
End With

 

@Antoni muchas gracias por tu aportación, solo tuve que seleccionar la hoja12 y funciono quedando así.

Sub CargarCombo1()
Worksheets("Salidas").Select 'Seleccionar Hoja12
With Hoja12
   Application.ScreenUpdating = False
   .Columns("E").Copy .Columns(Columns.Count)
   .Cells(1, Columns.Count).Delete
   .Columns(Columns.Count).RemoveDuplicates Array(1)
   .Columns(Columns.Count).Sort key1:=.Cells(1, Columns.Count)
   ComboBox1.List = Range(Cells(1, Columns.Count), Cells(Rows.Count, Columns.Count).End(xlUp)).Value
   .Columns(Columns.Count).Clear
End With
End Sub

 

Share this post


Link to post
Share on other sites
Hace 22 minutos , Haplox dijo:

Otra forma
 


Sub cargacombo1()
Dim datos As New Collection
Dim item

n = Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To n
    On Error Resume Next
    datos.Add Cells(i, "A"), CStr(Cells(i, "A"))
Next i

For Each item In datos
    ComboBox1.AddItem item
Next item

End Sub

 

@Haplox igualmente muchas gracias también funciono, solo tuve que seleccionar la Hoja 12 y cambiar la columna A por la E queda dando así 

Sub cargarcombo1()
Worksheets("Salidas").Select 'Seleccionar Hoja12
Dim datos As New Collection
Dim item

n = Range("E" & Rows.Count).End(xlUp).Row

For i = 2 To n
    On Error Resume Next
    datos.Add Cells(i, "E"), CStr(Cells(i, "E"))
Next i

For Each item In datos
    ComboBox1.AddItem item
Next item
End Sub

 

Share this post


Link to post
Share on other sites

una forma mas corta seria esta, como no mencionas si en tu hoja hay mas informacion hace una copia de tu informacion en la hoja2, elimina los duplicados y hace la carga al combobox

Sub cargar_combo()
Range("e2").CurrentRegion.Copy

With Sheets("hoja2").Range("a1")
    .PasteSpecial
    .CurrentRegion.RemoveDuplicates Columns:=1
    matriz = .CurrentRegion
End With

ComboBox1.List = matriz
Sheets("hoja2").Cells.Clear
End Sub
 

Share this post


Link to post
Share on other sites
Hace 9 minutos , Dr Hyde dijo:

una forma mas corta seria esta, como no mencionas si en tu hoja hay mas informacion hace una copia de tu informacion en la hoja2, elimina los duplicados y hace la carga al combobox

Sub cargar_combo()
Range("e2").CurrentRegion.Copy

With Sheets("hoja2").Range("a1")
    .PasteSpecial
    .CurrentRegion.RemoveDuplicates Columns:=1
    matriz = .CurrentRegion
End With

ComboBox1.List = matriz
Sheets("hoja2").Cells.Clear
End Sub
 

@Dr HydeIgualmente también funciono, como tengo 3 userform donde utilizo este código pondré uno en cada caso para tener los tres datos. Mil gracias a los tres maestros del VBA por su apoyo.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




  • Posts

    • Hola, como ya te han comentado, no se puede evitar ver la presentación propia de Excel,  no hay forma de evitarla así se usen macros o cualquier evento del archivo, claro, dependiendo del tamaño del  archivo y/o las características y/o lo que tengas en tu evento Open, se verá menos o más tiempo. Para terminar, por más que actives tu Userform a través del  evento Open y quites la visibilidad del Excel, igual se verá la dichosa presentación, y no,  tampoco hay forma de mostrar directamente el Userform ¿Por qué? Excel es una hoja de cálculo, no es un Entorno de Desarrollo Integrado (IDE) con el que se crea software propio, el VBA es parte de Excel, no se puede compilar aparte, si quieres algo propio,  necesariamente tienes que recurrir a Visual.Net, C++, C, C#,  etc. Saludos. 
    • Buen día estimados expertos, acudo a ustedes solicitando su valiosa colaboración con la finalidad de poder resolver esta tématica: tengo un formulario en el cual existen 3 combobox dependientes unos del otro, lo que pretendo hacer es que dependiendo el pais que se coloque en el textbox1 sea como ponga la nacionalidad en el textbox 2, es decir; en el formulario tenemos el btn_aceptar que es el que manda concatenadamento el contenido de los 3 comboboxs hacia el textbox1, pero lo que quiero hacer es que con el btn_nacionalizar ponga en el textbox2 la nacionalidad deacuerdo a lo que se escriba en el textbox1, por ejemplo si pusieron en el textbox1 "MÉXICO" (aunque existan otros caracteres pero que identifique la palabra "MÉXICO") entonces que ponga en el textbox2 "MEXICANA", si pusieron "JAPÓN" entonces que ponga "JAPONESA", y asi contiguamente; ojo no es necesario hacerlo con todos los paises, lo que necesito en sí es la lógica y obvio las sentencias para poder continuar yo con los demas paises. Ya que lo que debe hacer el programa en resumen es checar la "palabra" del pais dentro del textbox1 y dependiendo de eso poder poner la "palabra" de nacionalidad en el textbox2. De antemano mil gracias a quien pueda ayudarme. Dejo archivo muestra en dropbox   https://www.dropbox.com/s/4bzrng5yq8l9ewi/Nacionalizar.rar?dl=0
    • Que tal, a la planilla le han puesto espacios a los números ya sea adelante y atrás, por lo tanto no suma. ¿Cómo saco de una vez todos los espacios en blanco? Adjunto archivo. Muchas gracias! No suma por los espacios en blanco.xlsx
    • Visor He tenido un tiempito hoy, así que envío mi versión, revísalo y nos comentas   Saludos a ambos! Importar datos de otro libro_GP.zip
    • Tema solucionado!   Se agradece la ayuda.   Saludos JB
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy