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
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 Sub

Instrucciones para usar la macro:

  1. Abre Excel y presiona Alt + F11 para abrir el Editor de VBA.
  2. En el Editor de VBA, ve a Insertar > Módulo para crear un nuevo módulo.
  3. Copia y pega el código anterior en el módulo.
  4. Cambia "NombreDeTuHoja" por el nombre de la hoja en la que deseas trabajar.
  5. Cierra el Editor de VBA y vuelve a Excel.
  6. Para ejecutar la macro, presiona Alt + F8, selecciona SeleccionarYCopiarCeldasGrises y haz clic en Ejecutar.
Respuesta

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://support-syncfusion-com.translate.goog/kb/article/1651/how-to-change-the-color-of-the-selected-range-of-cells-in-a-winforms-gridcontrol?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://stackoverflow-com.translate.goog/questions/72177151/script-to-find-all-colored-cells-in-a-range?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://stackoverflow-com.translate.goog/questions/73445965/selecting-cells-with-certain-colour-vba?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://www-ablebits-com.translate.goog/office-addins-blog/sort-by-color-excel/?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://www-ablebits-com.translate.goog/docs/excel-select-cells-by/?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://spreadsheeto-com.translate.goog/sum-by-color/?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://www.quora.com/How-can-I-get-the-range-of-cells-which-have-been-coloured-by-conditional-formatting

https://es.scribd.com/document/584454395/Como-disenar-Macro-para-colorear-filas-por-coincidencias-Visual-Basic-Todoexpertos-com 

https://www.mrexcel.com/board/threads/changing-color-of-a-selected-range-of-cells-using-a-macro.708936/ 

https://es.slideshare.net/slideshow/cuadro-combinado-filtrado-microsoft-access-todoexpertoscom/251377132 

https://excel-tips-net.translate.goog/T002396_Finding_Cells_Filled_with_a_Particular_Color.html?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

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/ 

https://www.youtube.com/watch?v=ZCmQeLhhuvM 

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas