Macros excel Función edición/buscar

[espiritu64]

Saludos a todos
Soy nuevo en esto de las macros en excel y estoy tratando de hacer que con un boton de comando "Buscar" excel me de una lista de todos los nombres de una columna que coincidad con el textbox1, he intentado de todo, pero solo me da un solo registro (el primero segun orden):


Estos son los codigos que puse primero:
Private Sub CommandButton1_Click()
Dim n As Range
Set n = Cells.Find(What:=TextBox1)
If n Is Nothing Then
MsgBox "No hay"
Else
Range(n.Address).Select
Selection.Copy
Range("D6").Select
ActiveSheet.Paste
End If



Estos son otros codigos que probe:
Set n = Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

If n Is Nothing Then
MsgBox "No hay"
Else
ActiveCell.Offset(1, 0).Select
Range("D7") = ActiveCell
ActiveCell.Offset(1, 0).Select
Range("D8") = ActiveCell
ActiveCell.Offset(1, 0).Select
Range("D9") = ActiveCell
ActiveCell.Offset(1, 0).Select
Range("D10") = ActiveCell
ActiveCell.Offset(1, 0).Select
Range("D11") = ActiveCell
ActiveCell.Offset(1, 0).Selectt
Range("D12") = ActiveCell
ActiveCell.Offset(1, 0).Select
Range("D13") = ActiveCell
ActiveCell.Offset(1, 0).Select
Range("D14") = ActiveCell
Range("D15") = ActiveCell
ActiveCell.Offset(1, 0).Select
Range("D16") = ActiveCell
ActiveCell.Offset(1, 0).Select
Range("D17") = ActiveCell
ActiveCell.Offset(1, 0).Select
Range("D18") = ActiveCell
ActiveCell.Offset(1, 0).Select
Range("D19") = ActiveCell
ActiveCell.Offset(1, 0).Select
Range("D20") = ActiveCell
End If
End Sub


Ninguno me ha funcionada, solo busca el primer registro que coincida y lo copia en la celda que indico (C6)

[David]

De hecho el método Find siempre te devolverá un solo elemento, para buscar otras coincidencias usa sucesivas llamadas al método FindNext hasta que devuelva Nothing.

[espiritu64]

Gracias por tu aporte David, pero aun no me sale nada :S , algo le falta a mis codigos, estoy que trato de diferentes formas, lo ultimo:
Columns("A:A").Select
Dim n As Range
Set n = Selection.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.FindNext(After:=ActiveCell).Activate
If n Is Nothing Then
MsgBox "No hay"
Else
Range(n.Address).Select
Selection.Copy
Range("D6").Select
ActiveSheet.Paste
End If

End Sub

No me da resultado, y si utilizo FindNext sale que no se admite esta propiedad. Trate de separar los procesos con diferentes botones de comando y no entiendo mucho eso de findnext
Lo que trato es que copie todos los valores posibles y los pegue en una celda

[mrocf]

Hola! espiritu64. Intenta con:

Código:

Private Sub CommandButton1_Click()
Dim Celda As Range, Primera As String
Set Celda = [A:A].Find(What:=TextBox1, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
If Celda Is Nothing Then
  MsgBox "No hay": Exit Sub
End If
Primera = Celda.Address: [D6] = Celda
Set Celda = [A:A].FindNext(Celda)
Do Until Celda.Address = Primera
  [D65536].End(xlUp).Offset(1, 0) = Celda: Set Celda = [A:A].FindNext(Celda)
Loop
End Sub 

Aunque no lo hayas comentado, estoy interpretando que el valor de las celdas que contienen al texto especificado por TextBox1, deseas copiarlas a partir de la celda [D6] y hacia abajo.

Saludos, Cacho.

[espiritu64]

Gracias por el aporte, me ayudo mucho

[mrocf]

Me alegra que te haya sido útil. Hasta la próxima.

Saludos, Cacho.