Visualizar/No visualizar celdas con fórmulas

Hola:

Esta macro rellena/quita relleno, a las celdas con fórmula.

También es un ejemplo de como aplicar SpecialCells.

Sub AlternarResaltarFormulas(Kolor)

On Error Resume Next

If ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Interior.ColorIndex = Kolor Then

   ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Interior.ColorIndex = xlNone

Else

   ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Interior.ColorIndex = Kolor

End If

MsgBox "Total celdas con fórmula: " & ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas).Cells.Count

End Sub

[/CODE]

Podeis variar Kolor entre 0 y 55.

Saludos.

PD: Como he leído por ahí, a mi también se me están alineando los coágulos en el cerebro.

Cada día que pasa, tengo menos ideas para confeccionar aportes.