Pregunta para Luis Mondelo: Macro para buscar y agrupar desde otra hoja del mismo libro excel.

La pregunta es: ¿En qué hoja quieres buscarlo? ¿En todas? ¿En alguna en particular?

Hola. gracias por responder. Si tengo una hoja llamada Basedatos desde donde quiero obtener los datos de búsqueda. y llevarlos a Hoja1.Osea c11 de Hoja1( valor buscado) buscar todos los datos que coincidan en la hoja Basedatos(en este caso rangos E1000) y arrojar los datos en j11 Hoja1.

Esta macro esta hecha, pero en el supuesto de que todo los datos están en la misma hoja.

espero dejar mas clara mi pregunta y puedas ayudarme.

Prueba ahora con esta y me cuentas:

Sub busca_y_copia_VALORBUSCADO()
Sheets("hoja1").Select
Application.ScreenUpdating = False
Range("J11:L700").Clear
Sheets("basedatos").Select
Range("E1000").CurrentRegion.Sort key1:=Range("E1000"), order1:=xlAscending, Header:=xlYes,ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
valor =Sheets("hoja1").Range("C11").Value
Set busca =ActiveSheet.Range("E1000:E" & Range("E10000").End(xlUp).Row).Find(valor, LookIn:=xlValues,lookat:=xlWhole)
If Not busca Is Nothing Then
ubica = busca.Address
Range(ubica).Select
fila = Range(ubica).Row
contarsi =Application.WorksheetFunction.CountIf(Range("E1000:E" & Range("E10000").End(xlUp).Row), valor)
Range(Cells(fila, 5), Cells(fila + contarsi - 1, 7)).Copy
Sheets("hoja1").Select
Range("J11").PasteSpecial xlPasteAll
End If
Application.ScreenUpdating = True
End Sub

Luis. Me arroja un error 400, acepto y me lleva a la hoja basedatos. =/

????

Acabo de probar la macro y funciona perfectamente. Solo queda que me envíes tu archivo y lo pruebo yo.

[email protected]

Luis toda la razón. me faltaba colocar el código en Thisworbook. lo tenia en la hoja 1.

Funciona a la perfección era lo que quería.. Muchas gracias..

enseguida finalizo y puntúo. =)