Macro ReEnter

Postado por Luís Fernando Marcadores: ,

Outro dia estava caçando uma macro do Excel para fazer o seguinte procedimento para cada célula de um Range:

1) Entrar na célula
2) Abri-la para edição
3) Fechá-la para edição

Esse processo faz o Excel recalcular fórmulas e aplicar os formatos nas células. Isto é muito útil quando se cola muito texto no excel e ele não aplica os formatos pré-definidos nas células e acha que tudo é texto.

Segue abaixo a macro. Você pode encontrar essa e outras macros nessa página.

Sub ReEnter()
 Application.ScreenUpdating = False
 Application.Calculation = xlCalculationManual 'pre XL97 xlManual
 Dim cell As Range
 Dim ix as Long
 tCells = Selection.Count

 For ix = 1 To tCells
   Selection.Item(ix).Formula = Trim(Selection.Item(ix).Formula)
 Next ix

 Application.Calculation = xlCalculationAutomatic 'pre XL97 xlAutomatic
 Application.ScreenUpdating = True
End Sub