Este fórum está sendo desativado

[AdrianoVdP]

Boa noite pessoal,

Depois de muitos teste e busca no papi Google, conseguir criar uma macro para quebrar as fórmulas de todas as planilhas da minha pasta de trabalho e após executar a macro, criar um arquivo de cópia com todos os dados em valores.

Agora preciso da ajuda dos amigo para melhorar essa macro, gostaria de abrir o arquivo (Executar Removedor de Fórmulas), e ao acionar o botão me da a opção de selecionar o arquivo que quero quebrar as fórmulas e a macro executar sem eu ter que estar sempre criando essa macro dentro de cada arquivo que preciso quebrar as fórmulas.

Outro detalhe que não consegui corrigir é que a copia fique com a extensão xlsx, ou seja, sem a extensão xlsxM.

Antecipo agradecimento dos amigos.

[alexandrevba]

Bom dia!!

Esse é um protótipo, faça sua adaptação!

Código: Selecionar todos

Sub OpenAllWorkbooks()
'Fonte: http://www.rondebruin.nl/win/s9/win015.htm
    Dim MyFiles As String

    MyFiles = Dir("C:\Users\alexandreVBA\ArquivosExcel\*.xlsx")
    Do While MyFiles <> ""
        Workbooks.Open "C:\Users\alexandre.goncalves\Downloads\Acson\" & MyFiles
        Call All_Cells_In_All_WorkSheets_2
        ActiveWorkbook.Close SaveChanges:=True
        MyFiles = Dir
    Loop
End Sub

Código: Selecionar todos

Sub All_Cells_In_All_WorkSheets_2()
    Dim sh As Worksheet
    For Each sh In ActiveWorkbook.Worksheets
        With sh.UsedRange
            .Value = .Value
        End With
    Next sh
End Sub

Att

[AdrianoVdP]

Boa tarde,

Muito obrigado pelo retorno Alexandre,
Estarei adaptando meu código.
Vou deixar o tópico aberto por enquanto, para posta o código adapta.

Abs