ghuto_lima, Teste o código que postei acima e diga se funcionou.

Procure no código onde está: ActiveSheet.Range("A1").CurrentRegion.Select Creio que essa linha é que deve ser alterada. Seri...

Creio que ficou fácil para você adaptar.

Sub formatacao_completa() ' ' formatacao completa Macro ' ' Application.ScreenUpdating = False Range("AM1").Select ...

Se você anexar o arquivo e conseguir explicar com, no máximo, cinquenta palavras, vai agilizar para você. Se você tiver vontade de estudar o assunto, ...

Como você não enviou a fórmula completa, fiz um exemplo com outra fórmula.

Para colocar a fórmula: Private Sub CommandButton1_Click() sheets("Plan1").Range("A1").FormulaLocal = "=SOMASES('...

Option Explicit Sub BOTAODIREIRO() Dim VARR As Variant Dim I As Integer Dim OMENU As CommandBar Dim OITEM As CommandBarControl Set OMENU = Command...

Você pode deixar ocultas as planilhas que você não quer o usuário veja. ou Private Sub Worksheet_Activate() 'Se alguém ativar esta planilha, a pasta ...

Altere a propriedade ShowModal do formulário para False.

bred_zika

Qual é a senha? Tente inserir outro formulário e colocar o mesmo código.

Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Cancel As Boolean Dim DateFormats, DF DateFormats = Arra...

ANEXO

Application.DisplayAlerts = False Workbooks.Open Filename:= _ "\LocalBrasil.xls" ActiveWindow.Close Workbooks....