Comodín para contenido de celdas
Hola mushashos(as): tengo un problem. Resulta que quiero que ciertas casillas se pinten de un color determinado, dependiendo de si en el texto de la casilla en cuestión esta incluida cierta palabra X. Esta palabra puede estar acompañada por otro texto, por ejemplo:
Saldo X P80
Presup. X P80
Avance X P80
¿Cómo debo escribir la condición para que la pinte?
Intenté con el consabido asterisco, de la siguiente manera:
If activecell.value= * & "X" & * Then
Selection.Interior.ColorIndex=6
End If
Pero no me pesca :(
¿Alguna sugerencia?... Desde ya.. Muchas gracias.
Fernando.
Saldo X P80
Presup. X P80
Avance X P80
¿Cómo debo escribir la condición para que la pinte?
Intenté con el consabido asterisco, de la siguiente manera:
If activecell.value= * & "X" & * Then
Selection.Interior.ColorIndex=6
End If
Pero no me pesca :(
¿Alguna sugerencia?... Desde ya.. Muchas gracias.
Fernando.
1 Respuesta
Respuesta de pardojch
1
Con los formatos condicionales el problema es que solo maneja 3 opciones pero se puede... te envío el código de una macro que pinta la celda dependiendo el contenido.
Sub formatos()
'esta macro recorre desde la a1: G7 y pintalas celdas segun los contenidos
'definidos en las variables dim y lo coloca en la hoja resumen
Dim valor As Variant
For columnas = 1 To 7
For fila = 1 To 7
valor = Cells(fila, columnas).Value
If valor = "SALDO TRANSF P10" Then 'pregunta por contenido
Cells(fila, columnas).Select
Selection.Interior.ColorIndex = 3 'pinta de rojo
End If
If valor = "SALDO TRANSF P11" Then 'pregunta por contenido
Cells(fila, columnas).Select
Selection.Interior.ColorIndex = 5 'pinta de azul
End If
If valor = "SALDO TRANSF P12" Then 'pregunta por contenido
Cells(fila, columnas).Select
Selection.Interior.ColorIndex = 10 'pinta verde
End If
If valor = "SALDO TRANSF P13" Then 'pregunta por contenido
Cells(fila, columnas).Select
Selection.Interior.ColorIndex = 6 'pinta de amarillo
End If
If valor = "SALDO BBYSS P10" Then 'pregunta por contenido
Cells(fila, columnas).Select
Selection.Interior.ColorIndex = 9 'pinta de marroncito
End If
If valor = "SALDO BBYSS P11" Then 'pregunta por contenido
Cells(fila, columnas).Select
Selection.Interior.ColorIndex = 46 'pinta de naranja
End If
If valor = "SALDO BBYSS P12" Then 'pregunta por contenido
Cells(fila, columnas).Select
Selection.Interior.ColorIndex = 4 'pinta de verde claro
End If
If valor = "SALDO BBYSS P13" Then 'pregunta por contenido
Cells(fila, columnas).Select
Selection.Interior.ColorIndex = 7 'pinta de fucia
End If
Next fila
Next columnas
End Sub
P.D. No olvide calificar...
Sub formatos()
'esta macro recorre desde la a1: G7 y pintalas celdas segun los contenidos
'definidos en las variables dim y lo coloca en la hoja resumen
Dim valor As Variant
For columnas = 1 To 7
For fila = 1 To 7
valor = Cells(fila, columnas).Value
If valor = "SALDO TRANSF P10" Then 'pregunta por contenido
Cells(fila, columnas).Select
Selection.Interior.ColorIndex = 3 'pinta de rojo
End If
If valor = "SALDO TRANSF P11" Then 'pregunta por contenido
Cells(fila, columnas).Select
Selection.Interior.ColorIndex = 5 'pinta de azul
End If
If valor = "SALDO TRANSF P12" Then 'pregunta por contenido
Cells(fila, columnas).Select
Selection.Interior.ColorIndex = 10 'pinta verde
End If
If valor = "SALDO TRANSF P13" Then 'pregunta por contenido
Cells(fila, columnas).Select
Selection.Interior.ColorIndex = 6 'pinta de amarillo
End If
If valor = "SALDO BBYSS P10" Then 'pregunta por contenido
Cells(fila, columnas).Select
Selection.Interior.ColorIndex = 9 'pinta de marroncito
End If
If valor = "SALDO BBYSS P11" Then 'pregunta por contenido
Cells(fila, columnas).Select
Selection.Interior.ColorIndex = 46 'pinta de naranja
End If
If valor = "SALDO BBYSS P12" Then 'pregunta por contenido
Cells(fila, columnas).Select
Selection.Interior.ColorIndex = 4 'pinta de verde claro
End If
If valor = "SALDO BBYSS P13" Then 'pregunta por contenido
Cells(fila, columnas).Select
Selection.Interior.ColorIndex = 7 'pinta de fucia
End If
Next fila
Next columnas
End Sub
P.D. No olvide calificar...
Esto se resulenve con formatos condicionales es bien fácil y el procedimiento es el siguiente.
Seleccione el rango donde quieres pintar, luego de clic en formato/formatos condicionales luego selecciona selecciona la condición y en el cuadro de dialogo debes escribir ="lo que quieras" luego de clic en la misma ventana en formato y eleges el color aceptar y si desea más opciones de cli en agregar y repite el mismo procedimiento... cualquier duda contácteme
Seleccione el rango donde quieres pintar, luego de clic en formato/formatos condicionales luego selecciona selecciona la condición y en el cuadro de dialogo debes escribir ="lo que quieras" luego de clic en la misma ventana en formato y eleges el color aceptar y si desea más opciones de cli en agregar y repite el mismo procedimiento... cualquier duda contácteme
