Buscar datos de listbox mientras se escribe en un text box

Te preparo un ejemplo y te lo envío

Saludos. Dam

Te anexo el código, cópialo en tu userform. Comenta tu línea rowsource

Public columnas As Integer
Private Sub TextBox1_Change()
cargalist
End Sub
Private Sub UserForm_activate()
columnas = 3
ListBox1.ColumnCount = columnas
cargalist
End Sub
Sub cargalist()
'por.dam
ActiveSheet.AutoFilterMode = False
    Sheets("LISTBOX").Cells.Clear
    ListBox1 = ""
With Range("ALMACEN")
    .AutoFilter Field:=1, Criteria1:="=" & TextBox1 & "*"
    .Copy Sheets("LISTBOX").Range("A1")
End With
uf = Sheets("LISTBOX").Range("A" & Rows.Count).End(xlUp).Row
num = InStr(1, Cells(1, columnas).Address(, False), "$") - 1
wletra = Left(Cells(1, columnas).Address(, False), num)
With Me.ListBox1
    .RowSource = "LISTBOX!A1:" & wletra & uf
End With
TextBox1.SetFocus
End Sub

Indicaciones:
1. Crea una hoja que se llame “LISTBOX”
2. En esta línea de la macro, escribe el número de columnas que tiene tu rango “ALMACEN”
columnas = 3

gracias por contestar y tomarte tu tiempo

funciono perfecto eres muy bueno

pero se me ocurrió algo mas espero y puedas ayudarme

como podría pasar los datos de un listbox a otro listbox dando doble click sobre el producto que seleccione ? es esto posible ?

saludos

gracias por tu ayuda