Sustituir formatos condicionales por algo.

gortega · el 27 de mayo

Hola Amigos Excelianos.

Tengo un problema que quiero exponer por si alguno se le ocurre una solucionó.

El problema es que yo trabajo con Excel 2010 y el resto del equipo con Excel 2003.

La solución guay es cambiar a todos al 2010, pero esta solución no es valida, por si algún se lo ocurría ;-)

El documente adjunto tiene 4 formatos condicionales, en el 2010 no hay problema por que pinta todo, pero cuando se ve desde un 2003 hay uno que no se pinta.

Por favor, echar un vistazo e indicarme una solución, según esta echa el parte de vacaciones. La gente que tiene que utilizarlo no lo ve claro.

De antemano muchas gracias a todos.

Vacaciones y Bajas.rar

Smako · el 27 de mayo

Yo uso el 2007 y a mi me muestra bien todo

chkenshin · el 28 de mayo

El excel 2003 que ya casi nadie utiliza solo se pueden utilizar 3 condiciones para formato condicional, esto cambio con el excel 2007 en adelante. Te recomiendo que utilices una macro para realizar esta labor.

en esta pagina puedes encontrar un add-in que yo utilice mucho tiempo con el 2003, funciona muy bien, la desventaja es que todos los que necesiten ver el "formato condicional" que utiliza tienen que tener instalado el add-in

o puedes utilizar una macro explicada en esta pagina

un ejemplo que podrías adpatar

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Cell As Range
Dim Rng1 As Range

On Error Resume Next
Set Rng1 = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 1)
On Error Goto 0
If Rng1 Is Nothing Then
Set Rng1 = Range(Target.Address)
Else
Set Rng1 = Union(Range(Target.Address), Rng1)
End If
For Each Cell In Rng1
Select Case Cell.Value
Case vbNullString
Cell.Interior.ColorIndex = xlNone
Cell.Font.Bold = False
Case "Tom", "Joe", "Paul"
Cell.Interior.ColorIndex = 3
Cell.Font.Bold = True
Case "Smith", "Jones"
Cell.Interior.ColorIndex = 4
Cell.Font.Bold = True
Case 1, 3, 7, 9
Cell.Interior.ColorIndex = 5
Cell.Font.Bold = True
Case 10 To 25
Cell.Interior.ColorIndex = 6
Cell.Font.Bold = True
Case 26 To 99
Cell.Interior.ColorIndex = 7
Cell.Font.Bold = True
Case Else
Cell.Interior.ColorIndex = xlNone
Cell.Font.Bold = False
End Select
Next

End Sub[/PHP]