Llenar listbox/combobox

[Antoni]

____________________________________________________________________________

Os dejo una función para llenar un control Listbox/Combobox desde cualquier hoja con cualquier número de filas y columnas (Máximo 10).

El resultado de la función es una variable tipo Long con el número de filas del combobox/listbox.

LlenarListaCombo(Control listbox/combobox, Hoja [, Nº columnas=1, Fila inicio=1, Columna inicio=1])

Function LlenarListaCombo(ListaCombo As Object, _

                          Hoja As Worksheet, _

                          Optional Columnas As Long = 1, _

                          Optional Fila As Long = 1, _

                          Optional Columna As Long = 1) As Long

ListaCombo.ColumnCount = Columnas

For x = Fila To Hoja.Cells(Rows.Count, Columna).End(xlUp).Row

  ListaCombo.AddItem

  n = 0

  For y = Columna To Columna + Columnas - 1

      ListaCombo.List(ListaCombo.ListCount - 1, n) = Hoja.Cells(x, y)

      n = n + 1

  Next

Next

CargarListaCombo = ListaCombo.ListCount

End Function

[/CODE]

Ejemplo:

. Llenar un combobox [b]ComboBox1 [/b]de 3 columnas desde la hoja [b]Listas[/b], Fila 2, Columna 5

[CODE]
Sub LlamarFunción()
LlenarListaCombo ComboBox1, Sheets("Listas"), 3, 2, 5
End Sub
[/CODE]

_____________________________________________________________________

.

[yordin]

hola amigo una ocnsulta tengo una base de datos de 7mil registros, en la hoja 1 tengo una macro de busqueda en la cual coloco el numero de cedula del empleado "X" pero cuando este tiene mas de una repeticion solo m,e trae su primer ingreso como hago para cuando se repite este numero siga al proximo si el primero no me interesa

[Antoni]

Este lugar es solo para Aportes e Ideas, tal como su nombre indica.

Por mas que te empeñes, no vas a obtener respuesta.

Revisa las normas de publicación de consultas.

[pajuma]

Saludos y excelente function maestro Macro Antonio.