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.
[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
1 respuesta más de otro experto
