Mover filas de una hoja a otra dependiendo del valor

Adriel, ¿me puedes ayudar?

Necesito mover las filas que se seleccione como "venta" o como "error" a sus respectivas hojas.

2

2 Respuestas

192.975 pts. Los hombres aprenden mientras enseñan.

[Hola 

Te paso la macro


Valora para finalizar saludos!

Sub copiar()
'//TodoExpertos
'
Application.ScreenUpdating = False
    Set h1 = Sheets("Registros")
    u = h1.Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To u
        hoja = h1.Cells(i, "A")
        Select Case hoja
            Case "VENTA":    Set h24 = Sheets("Ventas")
            Case "ERROR":    Set h24 = Sheets("Error")
        End Select
        '
        u2 = h24.Range("A" & Rows.Count).End(xlUp).Row + 1
        h1.Rows(i).Copy
        h24.Rows(u2).PasteSpecial xlValues
    Next i
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    MsgBox "Fin"
End Sub

Muchas Gracias Adriel, lo he copiado abajo del otro y no me funciona, ¿tengo qué hacer algo más?

Tienes que copiar en un modulo y ejecutarlo

Lo tengo así, No me hace nada...

¿Ma falta algo?

Manda una captura de la hoja

Necesito ver las columnas y filas

La macro del módulo tienes que ejecutar cada vez que necesites

¿Te sirve así?

Lo que necesito es que cada vez que se seleccione venta o error se vaya la fila a la hoja venta o a la hoja error y se elimine de la hoja registros

Qué raro envíame tu archivo [email protected]

ok, Gracias!!!

Pero has revisado si copia en las hojas respectivas

Claro... no copia nada

La macro funciona cada vez que ejecutes la macro no cuando seleccionas una opción

275.350 pts. https://youtube.com/programarexcel...

Estos ejemplos te pueden ser de utilidad

https://www.youtube.com/watch?v=Jw8fmqTyUDk

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas