buscar y copiar varias filas

hola, 'anonimo/a' !

... quisiera saber como buscar una palabra contenida en la hoja 1
y si la encuentra en la hoja 2 que copie varias filas en una hoja 3
les agradeceria mucho si me respondieran

habra algun detalle que se te hubiera quedado 'en el tintero' ?
hay 'cosas' que no se alcanzan a 'ver'... desde este lado del mensaje [como p.e.]
-> que, como, cuando, de donde, a donde, cuales, cuantas, etc. etc. etc. :))

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

On 20 feb, 11:30, "Héctor Miguel"
wrote:

hola, 'anonimo/a' !

> ... quisiera saber como buscar una palabra contenida en la hoja 1
> y si la encuentra en la hoja 2 que copie varias filas en una hoja 3
> les agradeceria mucho si me respondieran

habra algun detalle que se te hubiera quedado 'en el tintero' ?
hay 'cosas' que no se alcanzan a 'ver'... desde este lado del mensaje [como p.e.]
-> que, como, cuando, de donde, a donde, cuales, cuantas, etc. etc. etc. :))

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

va de nuevo mi duda
en la Hoja 1 esta contenida en la celda b2 la palabra "ARDIA5", EN LA
HOJA 2 SE ENCUENTRA UNA BASE DE DATOS QUE CONTIENE LAS
CARACTERISTICAS
DE DICHA PALABRA POR EJEMPLO:
EN LA HOJA 2; A1 ESTA "ARDIA5" EN LA CELDA A6 ESTA "ARDIA4" Y ASI
SUCESIVAMENTE Y EN LAS FILAS 2,3,4,5 CONTIENE INFORMACION DE ARDIA5 Y
EN LAS FILAS 7,8,9,10 ASI SUCESIVAMENTE.

AHORA ,LO QUE QUIERO ES QUE BUSQUE LA PALABRA "ARDIA5" CONTENIDA EN
LA
HOJA 1 Y LA BUSQUE EN LA BASE DE DATOS EN LA HOJA 2 Y SI LA
ENCUENTRA
LA PALABRA QUE COPIE LAS FILAS 2,3,4,5 PERO COMPLETAS(ES DECIR TODAS
LAS COLUMNAS DE LA FILA COMPLETA) EN LA HOJA 3 Y ASI QUE LUEGO BUSQUE
ARDIA4,ETC


ESPERO QUE SE ENTIENDA Y LES AGRADACERIA QUE ME AYUDARAN ES
URGENTISIMO

hola, 'anonimo/a' !

va de nuevo mi duda [...]

no se si habre entendido 'cabalmente' la 'mayuscula' explicacion que pusiste :)) [espero que si] ;)
[todavia] quedaron algunos 'detalles en el tintero' :-(( [confio en haberlos 'acertado'] :))

de todas formas... si cualquier duda [o informacion adiciona]... comentas ?
saludos,
hector.

-> de acuerdo con tu segunda consulta [la 'omito' porque las mayusculas se 'roban' DEMASIADO espacio] :))
copia/pega las siguientes lineas en un modulo de codigo 'estandar/normal/general/...' y ejecutas la macro:

Sub Copia_de_Ardias()
Dim Origen As Range
On Error Resume Next
With Worksheets("hoja1")
Set Origen = .Cells.Find( _
What:=Worksheets("hoja2").Range("b2"), _
After:=.Range("a1"), _
LookAt:=xlWhole)
End With
If Origen Is Nothing Then
MsgBox Worksheets("hoja2").Range("b2") & " NO se encuentra !!!"
Exit Sub
End If
With Worksheets("hoja3")
Origen.Resize(5).EntireRow.Copy _
Destination:=.Cells(Rows.Count, "a").End(xlUp).Offset(1)
End With
Set Origen = Nothing
End Sub