Mover rango a otra hoja según condición de una celda

[vitixmix79]

Hola a todos, bueno necesito ayuda para una pequeña macro, lo que haría ésta macro es lo siguiente:

-En la hoja Stock Almacén se encuentra el listado de productos en stock, cuando no queda stock de un producto, en la celda correspondiente al producto en la columna de Stock se pone a cero, lo que necesito es que cuando esto ocurra inmediatamente ( ó usando algún botón para la macro) el rango de celdas desde la columna A a la J de ese producto cuyo Stock se ponga a cero se corte y pegue en la hoja Stock Finalizado en la primera fila, y por tanto en la hoja de Stock Almacén el rango de esas celdas cortadas se elimine y se desplacen las celdas hacia arriba. Sólo necesito copiar los valores de una hoja a otra, no es necesario las fórmulas. Gracias de antemano por vuestra ayuda y un saludo.

Aquí el archivo:

Dropbox - Ejemplo1.xlsm

[vitixmix79]

En el libro, ya tiene una macro que realiza lo que pretendo, pero quiero que lo haga para cualquier fila cuyo producto tenga stock cero, pero sólo lo consigo con la primera fila.....

[vitixmix79]

No pueden ayudarme?....

[Armando Montes]

Hola, intenta con esto:

Sub FilterCopyDel()

Application.ScreenUpdating = False

LR = Hoja7.Cells(Rows.Count, 1).End(xlUp).Row + 1

    With Hoja4

        .[A1].CurrentRegion.AutoFilter Field:=6, Criteria1:="="

        .AutoFilter.Range.Offset(1).Copy Hoja7.Range("A" & LR)

        .AutoFilter.Range.Offset(1).EntireRow.Delete

        .AutoFilterMode = False

    End With

Application.ScreenUpdating = True

End Sub[/CODE]

[vitixmix79]

Gracias por la respuesta Armando, sin embargo he probado la macro y me funciona, pero no exactamente como yo quiero, es decir en tu macro se corta y pega la fila en la otra hoja, pero yo quiero que sólo sea el rango A:J, pues en esa misma hoja a partir de la columna BA tengo más información y al aplicar la macro pierdo la información de esa parte de la hoja. No sé si me he explicado bien, cómo podría hacer para aplicar la macro sólo en ese rango sin afectar al resto de la hoja en el proceso de copiar, pegar y eliminar las filas?. Gracias de antemano y un saludo