Problema con formatos de celdas.
Tengo una duda y no doy con la tecla.
Necesitaría más de 3 formatos condicionales, pero el máximo es 3.
Tengo esta tabla por ejemplo:
11 12 13 14 15 16
0 0 0 4 0 0
2 0 0 0 0 0
0 5 0 0 0 0
0 0 3 0 0 0
0 0 0 0 5 0
0 0 0 0 0 9
Y en otra casilla (A1) escribo 11, pues quiero que el formato trama de la celda del número mayor de 0 de la columna del 11 se ponga del color X.
Si escribo en A1 un 12 pues que el formato trama de la celda del número mayor que 0 de la columna del 12 se ponga del color Y.
Y así podrían ser las 6 columnas, por lo que pueden ser 6 colores. Y solo quiero que se ponga de color la columna escrita en A1, no todas.
¿Necesito macro o se puede hacer sin ella?
Espero haberme explicado bien. Muchas gracias.
Necesitaría más de 3 formatos condicionales, pero el máximo es 3.
Tengo esta tabla por ejemplo:
11 12 13 14 15 16
0 0 0 4 0 0
2 0 0 0 0 0
0 5 0 0 0 0
0 0 3 0 0 0
0 0 0 0 5 0
0 0 0 0 0 9
Y en otra casilla (A1) escribo 11, pues quiero que el formato trama de la celda del número mayor de 0 de la columna del 11 se ponga del color X.
Si escribo en A1 un 12 pues que el formato trama de la celda del número mayor que 0 de la columna del 12 se ponga del color Y.
Y así podrían ser las 6 columnas, por lo que pueden ser 6 colores. Y solo quiero que se ponga de color la columna escrita en A1, no todas.
¿Necesito macro o se puede hacer sin ella?
Espero haberme explicado bien. Muchas gracias.
1 Respuesta
Respuesta de excelinomano
1
En excel hasta la versión 2003 únicamente aceptaba hasta 3 condiciones en formato condicional, a partir de 2007 ya acepta más de 3 (no tengo bien el dato exacto de hasta cuántas puede aceptar), así que si estas trabajando en excel 2007 no hay problema puedes meter tus seis condiciones, pero en caso de trabajar en una versión anterior entonces lo que necesitas se puede hacer solamente con una macro, y con gusto te puedo ayudar solo especifícame la ubicación exacta de las columnas, por ejemplo la columna 11 está a partir de la columna C, la columna 12 a partir de la columna DE, la columna 13 a partir de la columna C... y así sucesivamente para definir en el código de la macro dónde buscar.
La columna 11 en la D. Y correlativas las 12, 13, 14, 15 y 16 hasta la i.
La versión es la 2003.
Si me pasas una macro mucho mejor ;)
Gracias.
La versión es la 2003.
Si me pasas una macro mucho mejor ;)
Gracias.
Aquí tienes el código solo cópialo y pégalo en tu editor VBA y ejecutalo, hará exactamente lo que quieres.
Sub colores()
Range("A1").Select
valor = ActiveCell.Value
If valor = 11 Then
Range("D2").Select
While ActiveCell.Value <> ""
If ActiveCell.Value > 0 Then
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
ActiveCell.Offset(1, 0).Select
Wend
End If
If valor = 12 Then
Range("E2").Select
While ActiveCell.Value <> ""
If ActiveCell.Value > 0 Then
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
End If
ActiveCell.Offset(1, 0).Select
Wend
End If
If valor = 13 Then
Range("F2").Select
While ActiveCell.Value <> ""
If ActiveCell.Value > 0 Then
With Selection.Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
ActiveCell.Offset(1, 0).Select
Wend
End If
If valor = 14 Then
Range("G2").Select
While ActiveCell.Value <> ""
If ActiveCell.Value > 0 Then
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
ActiveCell.Offset(1, 0).Select
Wend
End If
If valor = 15 Then
Range("H2").Select
While ActiveCell.Value <> ""
If ActiveCell.Value > 0 Then
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
ActiveCell.Offset(1, 0).Select
Wend
End If
If valor = 16 Then
Range("I2").Select
While ActiveCell.Value <> ""
If ActiveCell.Value > 0 Then
With Selection.Interior
.ColorIndex = 37
.Pattern = xlSolid
End With
End If
ActiveCell.Offset(1, 0).Select
Wend
End If
End Sub
Por favor no olvides calificar y cerrar la pregunta.
Sub colores()
Range("A1").Select
valor = ActiveCell.Value
If valor = 11 Then
Range("D2").Select
While ActiveCell.Value <> ""
If ActiveCell.Value > 0 Then
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
ActiveCell.Offset(1, 0).Select
Wend
End If
If valor = 12 Then
Range("E2").Select
While ActiveCell.Value <> ""
If ActiveCell.Value > 0 Then
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
End If
ActiveCell.Offset(1, 0).Select
Wend
End If
If valor = 13 Then
Range("F2").Select
While ActiveCell.Value <> ""
If ActiveCell.Value > 0 Then
With Selection.Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
ActiveCell.Offset(1, 0).Select
Wend
End If
If valor = 14 Then
Range("G2").Select
While ActiveCell.Value <> ""
If ActiveCell.Value > 0 Then
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
ActiveCell.Offset(1, 0).Select
Wend
End If
If valor = 15 Then
Range("H2").Select
While ActiveCell.Value <> ""
If ActiveCell.Value > 0 Then
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With
End If
ActiveCell.Offset(1, 0).Select
Wend
End If
If valor = 16 Then
Range("I2").Select
While ActiveCell.Value <> ""
If ActiveCell.Value > 0 Then
With Selection.Interior
.ColorIndex = 37
.Pattern = xlSolid
End With
End If
ActiveCell.Offset(1, 0).Select
Wend
End If
End Sub
Por favor no olvides calificar y cerrar la pregunta.
