Experimente: Sub ReplicaSaída() Dim k As Long k = Sheets("Banco de Dados").Columns("G").Find([C2], lookat&#...

Experimente: Me.txtHoras.Text = Format(TimeValue(Me.txtSaida.Text) - (TimeValue(Me.txtEntrada.Text) > TimeValue(Me&#...

Considerei que ambos os arquivos (que você trata por planilha) estarão abertos ao rodar o código. Experimente: Sub ReplicaDados() Dim wsO As Workshee...

Experimente o código abaixo no lugar do existente. Coloquei até a coluna M (Range("B4:M"). altere se necessário. Public Sub CarregarComboBox...

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