mas na planilha que irei salvar "filhodamãe", terei outras macros. Entendi. Nesse caso podemos remover o Módulo6, considerando que nesse mó...

Veja se ajuda. Este comando salva na versão sem macro. Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="C�...

Experimente: Sub SeparaEContaPalavras() Dim Dic As Object, r As Range, c As Range, w As Variant Set Dic = CreateObject("Scripting.Dictiona...

dentro da pasta estara arquivos em PDF, Doc, xls Ao acessar a pasta via macro você abrirá somente arquivos em Excel?

Experimente: Sub AbreCaixaAbrirArquivo() With Application.FileDialog(msoFileDialogOpen) .InitialFileName = "P:LABORATÓRIOrelat...

Sub InsereFórmula() Range("V1:V" & Cells(Rows.Count, 1).End(3).Row).FormulaR1C1 = _ "=IF(RC[-13 ...

Utilize o código abaixo no lugar do anterior. Private Sub Worksheet_Calculate() If [A1] = "PORTAL" Then Rows("20:26&quo...

Experimente: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Address <> "$A...

Private Sub CommandButton1_Click() Dim oForm As Object For Each oForm In VBA.UserForms If oForm.Name = TextBox1.Text Then Unload ...

Estranho o que você comentou, pois o código "PasteValues" roda em todas, menos na planilha "PAINEL GERENCIAL". Adicionei uma caixa...

Sub FiltrarV2() Range("$A$1:$D$" & Cells(Cells.Rows.Count, 1).End(3).Row).AutoFilter Field:=2, Crite...

de uma forma mais detalhada, segue minha contribuição If ws.Name <> wsheet.Name Then

If sht.Name <> "Plan1" Then

Só uma dúvida, porque quando eu executo dentro do visual basic utilizando F8 não fica como matricial, e utilizando o play dá um erro? Ao executar a p...

Só um detalhe, a fórmula não fica como uma matricial. Sim, insere a fórmula como matricial. Veja o arquivo anexado (é cópia do seu), está com o códi...