Simplemente os quería consultar una cosilla,¿existe la posibilidad de depurar el siguiente código aun más?
(He utilizado la grabadora de macros, y casi siempre suele ser bastante enreversada en ese sentido. Por eso lo pregunto...)
...
With Range(Cells(5, 20), Cells(5, 20).End(xlDown))
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=0"
.FormatConditions(Range(Cells(5, 20), Cells(5, 20).End(xlDown)).FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Font
' Fuente de las celdas:
.Bold = True
.Color = -16776961
End With
.FormatConditions(1).StopIfTrue = False
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=1"
.FormatConditions(Range(Cells(5, 20), Cells(5, 20).End(xlDown)).FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Font
' Fuente de las celdas:
.Bold = True
.Color = -11489280
End With
.FormatConditions(1).StopIfTrue = False
End With
...
Gracias de antemano por vuestro tiempo.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola a todxs,
Simplemente os quería consultar una cosilla, ¿existe la posibilidad de depurar el siguiente código aun más?
(He utilizado la grabadora de macros, y casi siempre suele ser bastante enreversada en ese sentido. Por eso lo pregunto...)
... With Range(Cells(5, 20), Cells(5, 20).End(xlDown)) .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=0" .FormatConditions(Range(Cells(5, 20), Cells(5, 20).End(xlDown)).FormatConditions.Count).SetFirstPriority With .FormatConditions(1).Font ' Fuente de las celdas: .Bold = True .Color = -16776961 End With .FormatConditions(1).StopIfTrue = False .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=1" .FormatConditions(Range(Cells(5, 20), Cells(5, 20).End(xlDown)).FormatConditions.Count).SetFirstPriority With .FormatConditions(1).Font ' Fuente de las celdas: .Bold = True .Color = -11489280 End With .FormatConditions(1).StopIfTrue = False End With ...
Gracias de antemano por vuestro tiempo.