Saltar para: Post [1], Pesquisa e Arquivos [2]

Code Snippets Blog

Pequenas rotinas em vba, vbscript e outras linguagens. Noticias sobre informática, workshops, e outras coisas relacionadas com novas tecnologias.

Code Snippets Blog

Pequenas rotinas em vba, vbscript e outras linguagens. Noticias sobre informática, workshops, e outras coisas relacionadas com novas tecnologias.

11
Jan08

VBA - Excel - Remover todas formulas de um workbook

Macro que elimina as formulas existentes em todas as worksheets deixando no seu lugar os respectivos valores.

Sub Remover_Todas_as_Formulas_do_Workbook()
  Dim sSheet As Worksheet
  Dim s As String, c As String
  s = ActiveSheet.Name
  c = ActiveCell.Address
  With Application
    .ScreenUpdating = False
    For Each sSheet In Worksheets
      sSheet.Activate
      With Selection
        .Copy
        .PasteSpecial Paste:=xlValues, _
                     Operation:=xlNone, _
                     SkipBlanks:=False, _
                     Transpose:=False
      End With
      .CutCopyMode = False
    Next
    .Goto reference:=Sheets(s).Range(c)
    .ScreenUpdating = True
  End With
End Sub