Llenar un LIstbox segun Letra

hoja, José Antonio !

Tengo una hoja en donde almaceno en columna A un Nombre y en columna B un numero de serie
todos estos datos los almaceno mediante textbox de un userform.
Tengo otro userform con un textbox que llamo letra en el tecleo la letra digamos "A"
y deseo llenar un listbox con todos los nombres que comienzen con la letra "A"...
Se puede hacer esto ?.. Los datos los tengo en A5:B100

si suponemos que la hoja es 'hoja1', y que en 'el otro' userform se trata del TextBox1 y del ListBox1
y que SOLO necesitas los datos de la columna 'A'
y que tienes libre en la hoja1 a partir de la columna 'C' -?-

1) copia el titulo de la columna 'A' en la cela 'D1'
2) copia/pega las siguientes lineas en el modulo de codigo del 'otro' formulario
hara filtros avanzados 'en tiempo real' sobre la columna 'F' de la hoja1 y rellenara el ListBox1...
-> segun los caracteres que vayas introduciendo en el TextBox1

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Private Sub TextBox1_Change()
With Worksheets("hoja1")
.Range("d2") = TextBox1
.Range(.Range("a1"), .Range("a65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=.Range("d1:d2"), _
CopyToRange:=.Range("f1"), _
Unique:=False
Select Case Application.CountA(.Range("f:f"))
Case 1: ListBox1.Clear
Case 2: ListBox1.Clear: ListBox1.AddItem .Range("f2")
Case Else: ListBox1.List = .Range(.Range("f2"), .Range("f65536").End(xlUp)).Value
End Select
End With
End Sub

Como siempre funciono muy bien !

Gracias !

Saludos

José Antonio Castrejñon

"Héctor Miguel" wrote:

hoja, José Antonio !

> Tengo una hoja en donde almaceno en columna A un Nombre y en columna B un numero de serie
> todos estos datos los almaceno mediante textbox de un userform.
> Tengo otro userform con un textbox que llamo letra en el tecleo la letra digamos "A"
> y deseo llenar un listbox con todos los nombres que comienzen con la letra "A"...
> Se puede hacer esto ?.. Los datos los tengo en A5:B100

si suponemos que la hoja es 'hoja1', y que en 'el otro' userform se trata del TextBox1 y del ListBox1
y que SOLO necesitas los datos de la columna 'A'
y que tienes libre en la hoja1 a partir de la columna 'C' -?-

1) copia el titulo de la columna 'A' en la cela 'D1'
2) copia/pega las siguientes lineas en el modulo de codigo del 'otro' formulario
hara filtros avanzados 'en tiempo real' sobre la columna 'F' de la hoja1 y rellenara el ListBox1...
-> segun los caracteres que vayas introduciendo en el TextBox1

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Private Sub TextBox1_Change()
With Worksheets("hoja1")
.Range("d2") = TextBox1
.Range(.Range("a1"), .Range("a65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=.Range("d1:d2"), _
CopyToRange:=.Range("f1"), _
Unique:=False
Select Case Application.CountA(.Range("f:f"))
Case 1: ListBox1.Clear
Case 2: ListBox1.Clear: ListBox1.AddItem .Range("f2")
Case Else: ListBox1.List = .Range(.Range("f2"), .Range("f65536").End(xlUp)).Value
End Select
End With
End Sub