Buscarv

hola, Jorge !

En un txtbox tengo un valor que debo buscar en la hoja de caclulo
en una hoja vacia debo pegar la informacion de las celdas que me arroje el resultado ejemplo: txtbox = aaa125
en la Hoja 1, se encuentra este valor en b2, b8 y b10. en la hoja no. 2 me debe pegar:
fila1 = b2,a2,c2
fila2 = b8,a8,c8
fila3 = b10,a10,c10

suponiendo que en la hoja1, la fila1 contiene titulos, y que las acciones las realizas por un commandbutton1 en un formulario... -?-
copia las siguientes lineas -> en el modulo de codigo del userform...

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim Fila As Byte, Col As Integer, Celda As Range
With Worksheets("hoja1")
If .AutoFilterMode Then .Cells.AutoFilter
.[a1].AutoFilter Field:=2, Criteria1:=TextBox1
With .AutoFilter.Range
For Each Celda In .Offset(1, 1).Resize(.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible)
For Col = 0 To 2
Worksheets("hoja2").Range("a1").Offset(Fila, Col) = Celda.Offset(, -Col Mod -2 - (Col = 2))
Next: Fila = Fila + 1
Next
End With
.[a1].AutoFilter
End With
End Sub

OJO: el codigo no contempla alguna prevencion/correccion de -posibles- errores [como p.e. que no existan datos 'filtrados'] :((
y puede ser que mis supuestos anden 'equivocados' -?-

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