Macro para copiar solo filas coloreadas a otra hoja
---------------
----------
Hola de nuevo
Espero no molestar
Necesito copiar filas de una hoja a otra, estas filas estan de color rojo
Utilizo esta macro pero solo me copia una fila y las demas no las copia
Set h = Sheets("Entradas")
For i = 3 To h.Range("A" & Rows.Count).End(xlUp).Row
If h.Range("A" & i & ":H" & i).Interior.ColorIndex = 3 Then
h.Range("A" & i & ":H" & i).Select
Selection.Copy
End If
Next
Sheets("extraer").Select
Range("A2").Select
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Wend
ActiveSheet. Paste
Application.CutCopyMode = False
La idea es que despues de que hago el filtro y me muestre las filas ya coloreadas estas sean copiadas a otra hoja.
Corrijanme el codigo porfa, se los agradecere
-------
------
1 respuesta
Te anexo la macro actualizada
Sub copiar_Filas_Color()
'Act Por Dante Amor
Set h1 = Sheets("Entradas") 'origen
Set h2 = Sheets("extraer") 'destino
If h1.AutoFilterMode Then h1.AutoFilterMode = False
u = h1.Range("A" & Rows.Count).End(xlUp).Row
h1.Range("A2:H" & u).AutoFilter Field:=1, _
Criteria1:=RGB(255, 0, 0), Operator:=xlFilterCellColor
u = h1.Range("A" & Rows.Count).End(xlUp).Row
h1.Rows("3:" & u).Copy
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
h2.Range("A" & u2).PasteSpecial xlValues
If h1.AutoFilterMode Then h1.AutoFilterMode = False
Application.CutCopyMode = False
End SubEl color Rojo en colorIndex es el 3, en RGB es (255, 0, 0)
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
