Navegación

Inicio de sesión

En línea

En este momento hay 1 usuario y 17 invitados en línea.

relleno de celdas

Ha llegado hasta mis manos un libro que tengo que retocar, en el que se han coloreado algunas celdas y otras no.
Tengo que poner una imagen de fondo a la hoja, pero resulta que no se ve bien, porque por lo que podido averiguar algunas celdas no tienen ningún relleno, éstas dejan ver la imagen de fondo, pero otras celdas sí tienen un relleno de color blanco, que no se diferenciaba del otro hasta que he insertado la imagen de fondo; este relleno de color blanco no deja ver la imagen que hay detrás.

No puedo seleccionar todo el rango y quitarle el relleno, porque entre medias hay celdas con rellenos de otros colores que no quiero perder.

¿alguien tiene alguna idea sobre cómo quitar el relleno de color blanco de una manera sencilla? supongo que con una macro debe ser fácil, pero no sé cómo grabarla para hacer esto.

¡ añadir comentario !
5731 lecturas

VBA Macros y funciones

Enviado por juanmanuel el 1 Agosto, 2007 - 23:10.

Re: relleno de celdas

Enviado por pacomegia el 1 Agosto, 2007 - 23:21.

Bueno, se me ocurre una macro que recorra todas las celdas seleccionadas, compruebe si el color de relleno es blanco (número de color 2) y si es así, le quite el relleno (relleno color -4142)

Sub SinrellenoPorBlanco()
' Para cambiar las celdas con color blanco por celdas sin relleno
   Dim celda As Range
   For Each celda In Selection
    If celda.Interior.ColorIndex = 2 Then ' el 2 es el código del color blanco
     celda.Interior.ColorIndex = -4142 ' -4142 es el código del color de relleno de las celdas sin relleno
    End If
   Next
End Sub

no sé si esto resuelve tu problema

------

La potencia sin control no sirve de nada.

Power is nothing without control.

contestar

¿cómo sé qué número es cada color?

Enviado por juanmanuel el 2 Agosto, 2007 - 21:42.

Esto es lo que necesitaba.
gracias.

Pero qué ocurre si no es blanco, sino otro color, ¿cómo sé qué número ColorIndex le corresponde a un determinado color en Excel?
¿dónde lo miro?

----
Sólo sé que no sé nada. :)

contestar

macro para conocer el color de las celdas

Enviado por pacomegia el 2 Agosto, 2007 - 23:46.

Prueba con esta macro, que te muestra un mensaje diciéndote el color de la celda activa.

Public Sub DimeTuColor()
' Sirve para conocer el código de color de la celda Activa
Dim Color As Integer
Dim Mensaje As String
Color = ActiveCell.Interior.ColorIndex
Mensaje = "El código del color de la celda activa es: " & Color
MsgBox Mensaje, vbOKOnly
End Sub

------

La potencia sin control no sirve de nada.

Power is nothing without control.