Mi caso es el siguiente, dentro de excel tengo una tabla con datos y he insertado un boton y una caja de texto para que me busque lo que hay escrito en la caja de texto y me escriba todos los que encuentre en otra hoja, el problema es que solo me encuentra el primero y cuando busque los siguientes sigue devolviendome el primer resultado. El codigo que uso en el "Editor de Visual 6.3 en Excel" es el siguiente aunque ya le he hecho un monton de modificaciones y ninguna me vale. Espero que alguien me pueda decir el fallo que estoy cometiendo. Gracias
Public Sub CommandButton1_Click()
Dim Texto As String
Dim Contador As Integer
Texto = TextBox1.Text
Contador = 1
If Worksheets("hoja1").Cells.Find(Texto) Is Nothing Then
Worksheets("hoja2").Range("a1") = "NO ENCONTRADO"
TextBox1.Activate
Else
Worksheets("hoja1").Cells.Find(Texto).Copy
ActiveSheet.Paste Destination:=Worksheets("hoja2").Cells(Contador, 1)
While Contador <= 10
Sheets("Hoja1").Select
Worksheets("hoja1").Cells.FindNext.Copy
ActiveSheet.Paste Destination:=Worksheets("hoja2").Cells(Contador, 1)
Contador = Contador + 1
Wend
End If
End Sub
