Como seleccionar un rango de celdas por color
Sres. T.E.
Favor facilitarme una Macro que seleccione un rango de celdas en una Columna con un único color para luego, en este caso de color Gris para luego ser copiada.
2 respuestas
Respuesta de Llister Duran
2
Sub SeleccionarYCopiarCeldasGrises()
Dim ws As Worksheet
Dim celda As Range
Dim rangoGris As Range
Dim colorGris As Long
' Establecer la hoja de trabajo
Set ws = ThisWorkbook.Sheets("NombreDeTuHoja")
' Establecer el color Gris (RGB: 128, 128, 128)
colorGris = RGB(128, 128, 128)
' Recorrer cada celda en la columna A
For Each celda In ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
If celda.Interior.Color = colorGris Then
' Si la celda es Gris, añadirla al rango
If rangoGris Is Nothing Then
Set rangoGris = celda
Else
Set rangoGris = Union(rangoGris, celda)
End If
End If
Next celda
' Copiar el rango de celdas Grises si no está vacío
If Not rangoGris Is Nothing Then
rangoGris.Copy
' Pega las celdas copiadas donde necesites
' Por ejemplo, para pegar en B1:
' ws.Range("B1").PasteSpecial Paste:=xlPasteAll
Else
MsgBox "No se encontraron celdas grises en la columna A."
End If
End SubInstrucciones para usar la macro:
- Abre Excel y presiona Alt + F11 para abrir el Editor de VBA.
- En el Editor de VBA, ve a Insertar > Módulo para crear un nuevo módulo.
- Copia y pega el código anterior en el módulo.
- Cambia "NombreDeTuHoja" por el nombre de la hoja en la que deseas trabajar.
- Cierra el Editor de VBA y vuelve a Excel.
- Para ejecutar la macro, presiona Alt + F8, selecciona SeleccionarYCopiarCeldasGrises y haz clic en Ejecutar.
Respuesta de david ..
I. Hola Ender, por mi parte sólo deseaba trasladarle la información que vi en una primera búsqueda porque pienso que podrían serle de utilidad y ofrecerme para citar a un experto en caso de que no llegasen respuestas. Le ruego me disculpe las molestias de lectura y tanta imprecisión, ánimo.
https://www.mrexcel.com/board/threads/vba-to-select-all-cells-of-a-certain-color.648814/
https://www.mrexcel.com/board/threads/selecting-cells-by-color-in-vba.1115407/