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
Featured Replies
Archived
This topic is now archived and is closed to further replies.
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