En caso de que desee copiar una celda con formato particular o celdas de colores de una columna a la siguiente, este artículo es para usted. En este artículo, aprenderemos cómo copiar celdas coloreadas usando código VBA.

A continuación se muestra la instantánea de los datos que tenemos, es decir, la columna A contiene datos con pocas celdas de color amarillo.

Para extraer los datos que están resaltados solo en color amarillo; necesitamos crear una UDF para mostrar las celdas coloreadas solo en la columna B

img1

  • Para crear una función definida por el usuario, seguiremos los pasos a continuación:

Haga clic en la pestaña Desarrollador Desde el grupo Código, seleccione Visual Basic

img2

  • Debemos copiar el siguiente código en el módulo estándar

Función IsYellow (ByRef r como rango)

Si r.Interior.ColorIndex = 6 Entonces

IsYellow = r.Value

Else

IsYellow = vbNullString

Finalizar si

Finalizar función

img3

===

En la celda B1, la fórmula será * = IsYellow (A1)

img4

El código anterior coincide específicamente con el color n. ° 6, que está destinado solo al color amarillo. Por lo tanto, el udf extraerá solo los valores que contengan el color n. ° 6.

En caso de que queramos extraer las celdas de color rojo, debemos verificar el número de color designado y simplemente reemplazarlo con el número de color amarillo.

De esta manera, podemos recuperar las celdas de color de fuente amarilla usando el código vba.

image 4