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

1 Respuesta

3.938.225 pts. Sancho, si los perros ladran ...

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 Sub

El 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

.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas