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.
Hola:
Esta macro rellena/quita relleno, a las celdas con fórmula.
También es un ejemplo de como aplicar SpecialCells.
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.