Macro para copiar los valores de celdas con color en otra hoja
Digamos que tengo datos en la columna D a partir de la fila 9 de la hoja activa y tengo valores con condicional de color amarillo, quisiera saber si por ejemplo la celda D122 cumple la condicional y se pone amarilla, al apretar un botón se copie B122:D122 en la hoja summary, al final de una lista de datos.
Gracias y disculpen soy nuevo en esto de las macros
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro.
Cambia en la macro por los nombres de tus hojas
Set h1 = Sheets("Hoja6") 'origen
Set h2 = Sheets("summary") 'destinoSi el color del formato condicional es el amarillo, entonces esto es correcto RGB(255, 255, 0)
La macro copia el resultado en la hoja "summary" en la columna A
Sub Copiar_Filas_Color()
'Act Por Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja6") 'origen
Set h2 = Sheets("summary") 'destino
If h1.AutoFilterMode Then h1.AutoFilterMode = False
u = h1.Range("D" & Rows.Count).End(xlUp).Row
h1.Range("D8:D" & u).AutoFilter Field:=1, _
Criteria1:=RGB(255, 255, 0), Operator:=xlFilterCellColor
u = h1.Range("D" & Rows.Count).End(xlUp).Row
h1.Range("B9:D" & 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
Application.ScreenUpdating = True
MsgBox "Registros copiados"
End Sub
Avísame cualquier duda
.
.
