Cambiar color en celdas de distinta columna

30/06/2005 - 18:54 por Tom | Informe spam

Hola.

Hace unos días consulte como cambiar el color de un grupo de celdas de una
columna sin utilizar el formato condicional y obtuve un codigo que es el
siguiente:

Private Sub Worksheet_Change(ByVal Target1 As Range)
If Intersect(Target1, [f7:f186]) Is Nothing Then Exit Sub
Select Case Target1
Case "Casi Certeza"
Target1.Interior.ColorIndex = 3
Case "Probable"
Target1.Interior.ColorIndex = 44
Case "Moderado"
Target1.Interior.ColorIndex = 6
Case "Improbable"
Target1.Interior.ColorIndex = 4
Case "Muy improbable"
Target1.Interior.ColorIndex = 2
Case Else
Target1.Interior.ColorIndex = xlColorIndexNone
End Select
End Sub

Pues todo funciona muy bien excepto porque sólo la puedo aplicar a la
columna F7:F186, y necesito que funcione en otras 4 columnas con distintos
colores en cada una de ellas.

Es posible que me ayuden a solucionar el problemas.

Saludos.

Tomás Martínez
Talca
Chile

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

cambiar color de celdas de una columna según valor de celdas de otra column

Leer las respuestas

#1 Oscar

30/06/2005 - 19:15 | Informe spam

Hola Tom:

Como no mencionas que columnas, te comento lo que puedes hacer...

Segun entiendo, quieres que la misma macro, este te sirva para las cuatro
columnas

Una opcion seria que crearas un modulo por cada columna que necesites, y
unicamente cambiarias esta parte [f7:f186] por el rango que quieres que
cambie "[A7:A186]" "[B7:B186]" o cambiando la letra f por la de la columna a
modificar

If Intersect(Target1, [f7:f186]) Is Nothing Then Exit Sub

Espero te sirva.
Saludos

"Tom" escribió:

Hola.

Hace unos días consulte como cambiar el color de un grupo de celdas de una
columna sin utilizar el formato condicional y obtuve un codigo que es el
siguiente:

Private Sub Worksheet_Change(ByVal Target1 As Range)
If Intersect(Target1, [f7:f186]) Is Nothing Then Exit Sub
Select Case Target1
Case "Casi Certeza"
Target1.Interior.ColorIndex = 3
Case "Probable"
Target1.Interior.ColorIndex = 44
Case "Moderado"
Target1.Interior.ColorIndex = 6
Case "Improbable"
Target1.Interior.ColorIndex = 4
Case "Muy improbable"
Target1.Interior.ColorIndex = 2
Case Else
Target1.Interior.ColorIndex = xlColorIndexNone
End Select
End Sub

Pues todo funciona muy bien excepto porque sólo la puedo aplicar a la
columna F7:F186, y necesito que funcione en otras 4 columnas con distintos
colores en cada una de ellas.

Es posible que me ayuden a solucionar el problemas.

Saludos.

Tomás Martínez
Talca
Chile

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida