Copiar ciertas filas a otra hoja

(Hoy respondí aquí a una consulta similar) Prueba con:

Sub PasaDatos()
Dim celda As Range
Dim fila As Long
Range("P1:P" & Cells(65535, 1).End(xlUp).Row).Select
For Each celda In Selection
If celda >= 45 Then
fila = fila + 1
celda.EntireRow.Copy Destination:=Worksheets("Hoja2").Cells(fila, 1)
End If
Next celda
End Sub

Saludos desde Tenerife: Antonio.
***************************************
"arca" escribió en el mensaje
news:

Buen dia.
Por favor si alguien me puede ayudar.
En la Hoja1 tengo varias filas con datos, en la columna P de la misma hoja
esta un valor numerico que se obtiene de varios calculos, el tema es que
quiero que todas los datos de la filas se copien a la Hoja2 siempre y cuando
el valor en la columna P sea 45 o mayor.

Saludos
Angelc.

Hola de nuevo.

Por si en la columna A no tienes datos, cambia el código...

Range("P1:P" & Cells(65535, 1).End(xlUp).Row).Select

... por este otro...

Range("P1:P" & Cells(65535, 16).End(xlUp).Row).Select

Saludos: Antonio.
***************************
"arca" escribió en el mensaje
news:

Buen dia.
Por favor si alguien me puede ayudar.
En la Hoja1 tengo varias filas con datos, en la columna P de la misma hoja
esta un valor numerico que se obtiene de varios calculos, el tema es que
quiero que todas los datos de la filas se copien a la Hoja2 siempre y cuando
el valor en la columna P sea 45 o mayor.

Saludos
Angelc.

Gracias, AnSanVal.
Es lo que necesitaba.

Solo un dato adicional, me gustaría que primero borre el contenido de la
hoja2 apartir de la fila 2.
Saludos
aneglc.


"AnSanVal" wrote:

Hola de nuevo.

Por si en la columna A no tienes datos, cambia el código...

Range("P1:P" & Cells(65535, 1).End(xlUp).Row).Select

por este otro...

Range("P1:P" & Cells(65535, 16).End(xlUp).Row).Select

Saludos: Antonio.
***************************
"arca" escribió en el mensaje
news:
> Buen dia.
> Por favor si alguien me puede ayudar.
> En la Hoja1 tengo varias filas con datos, en la columna P de la misma hoja
> esta un valor numerico que se obtiene de varios calculos, el tema es que
> quiero que todas los datos de la filas se copien a la Hoja2 siempre y cuando
> el valor en la columna P sea 45 o mayor.
>
> Saludos
> Angelc.

Después de las declaraciones:

Sheets(2).Range("A2:P" & Sheets(2).Cells(65535, 16).End(xlUp).Row).ClearContents

Saludos: Antonio.
*********************************
"arca" escribió en el mensaje
news:

Gracias, AnSanVal.
Es lo que necesitaba.

Solo un dato adicional, me gustaría que primero borre el contenido de la
hoja2 apartir de la fila 2.
Saludos
aneglc.


"AnSanVal" wrote:

Hola de nuevo.

Por si en la columna A no tienes datos, cambia el código...

Range("P1:P" & Cells(65535, 1).End(xlUp).Row).Select

por este otro...

Range("P1:P" & Cells(65535, 16).End(xlUp).Row).Select

Saludos: Antonio.
***************************
"arca" escribió en el mensaje
news:
> Buen dia.
> Por favor si alguien me puede ayudar.
> En la Hoja1 tengo varias filas con datos, en la columna P de la misma hoja
> esta un valor numerico que se obtiene de varios calculos, el tema es que
> quiero que todas los datos de la filas se copien a la Hoja2 siempre y cuando
> el valor en la columna P sea 45 o mayor.
>
> Saludos
> Angelc.

Gracias, AnSanVal.
Es lo que necesitaba..

Saludos
Aneglc. -ECU


"AnSanVal" wrote:

Después de las declaraciones:

Sheets(2).Range("A2:P" & Sheets(2).Cells(65535, 16).End(xlUp).Row).ClearContents

Saludos: Antonio.
*********************************
"arca" escribió en el mensaje
news:
> Gracias, AnSanVal.
> Es lo que necesitaba.
>
> Solo un dato adicional, me gustaría que primero borre el contenido de la
> hoja2 apartir de la fila 2.
> Saludos
> aneglc.
>
>
> "AnSanVal" wrote:
>
>> Hola de nuevo.
>>
>> Por si en la columna A no tienes datos, cambia el código...
>>
>> Range("P1:P" & Cells(65535, 1).End(xlUp).Row).Select
>>
>> por este otro...
>>
>> Range("P1:P" & Cells(65535, 16).End(xlUp).Row).Select
>>
>> Saludos: Antonio.
>> ***************************
>> "arca" escribió en el mensaje
>> news:
>> > Buen dia.
>> > Por favor si alguien me puede ayudar.
>> > En la Hoja1 tengo varias filas con datos, en la columna P de la misma hoja
>> > esta un valor numerico que se obtiene de varios calculos, el tema es que
>> > quiero que todas los datos de la filas se copien a la Hoja2 siempre y cuando
>> > el valor en la columna P sea 45 o mayor.
>> >
>> > Saludos
>> > Angelc.
>>
>>
>>