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

Respuesta
1

[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

Respuesta

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