Saltar al contenido
publicado

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.

Featured Replies