Macro para Buscar y Mostrar Datos obtenidos
Hola necesito esta macro que busque el dato que le de y al encontarlo me lo muestre en la misma hoja o un furmulario toda la informacion separarada ya que el nombre puede aparacer en mas de tres parte de la mismama hoja ya busque varios ejemplos pero no encuentro lo que busco soy novato asi que no es tan facil para mi espero su ayuda saludos...
Respuesta de Tor Cheer
1
Con esta macro puede buscar los datos le mando una imagen de la hoja para que interprete el ejemplo y pueda adaptarlo a su archivo, y la macro la puede agregar al botón buscar, cualquier cosa no dude en comentarlo. Saludos
Sub Buscar1()
'Busca datos
Dim datobuscar As String
Range("H6:K100").ClearContents
ultimaFila1 = Sheets("Hoja2").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("Hoja2").Select
Range("A6:B6").CurrentRegion.Select
datobuscar = Sheets("Hoja2").Range("H3").Value
For cont = 6 To ultimaFila1
If Sheets("Hoja2").Cells(cont, 1) Like datobuscar Then
dato1 = Sheets("Hoja2").Cells(cont, 1)
dato2 = Sheets("Hoja2").Cells(cont, 2)
ufilaResultado1 = Sheets("Hoja2").Range("H" & Rows.Count).End(xlUp).Row
Sheets("Hoja2").Cells(ufilaResultado1 + 1, 8) = dato1
Sheets("Hoja2").Cells(ufilaResultado1 + 1, 9) = dato2
End If
Next cont
ultimaFila2 = Sheets("Hoja2").Range("E" & Rows.Count).End(xlUp).Row
Range("E6:F6").CurrentRegion.Select
datobuscar = Sheets("Hoja2").Range("H3").Value
For cont = 6 To ultimaFila2
If Sheets("Hoja2").Cells(cont, 5) Like datobuscar Then
dato3 = Sheets("Hoja2").Cells(cont, 5)
dato4 = Sheets("Hoja2").Cells(cont, 6)
ufilaResultado2 = Sheets("Hoja2").Range("J" & Rows.Count).End(xlUp).Row
Sheets("Hoja2").Cells(ufilaResultado2 + 1, 10) = dato3
Sheets("Hoja2").Cells(ufilaResultado2 + 1, 11) = dato4
End If
Next cont
Range("H3").Select
End Sub
