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
 

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



Preguntas similares