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...

Sub ExemploV2() Range("E5").Select Selection.Value = _ "=SUM(('[Controle de peças VW.xlsm]Plan1'!R3C1:...

... porém ainda faltou uma parte ... Não faltou parte alguma, respondi o que você pediu antes. ...como consigo pegar esse valor da combobox e coloca...