https://drive.google.com/file/d/1buX6dG5Mcpbh9CMItZLz2Zah5dXX2St4/view?usp=sharing

Sub teste() 'Desativa a atualização de tela Application.ScreenUpdating = False 'Abrir pasta 2 Workbooks.Open Filename:="C:Use...

O número 10 refere-se à coluna 10, ou seja, coluna J. Ao deslocar da coluna A para a coluna J, houve o deslocamento de 9 colunas, por isso, escrevi j ...

Sub teste() Worksheets(1).ChartObjects(1).Activate MsgBox ActiveChart.Name End Sub Sub teste2() Sheets(1).Select MsgBox Active...

Sub teste() Dim sd As String Dim dt As Date dt = CDate(InputBox("Informe a data")) Dim mes As Integer Dim ano As Integer mes = Month(dt)...

Sub teste() Dim dt As Date dt = InputBox("Informe a data") dt = Format(dt, "dd/mm") End Sub

Sub CriarTabelaFuros() Dim NomeArquivo As String Caminho = ThisWorkbook.Path & Application.PathSeparator NomeArquivo = ...

i = 0 Esse i seria o número da linha que está percorrendo no momento. Para começar na linha 6, você deve mudar para i = 5. emptyRow = WorksheetFu...

Private Sub CommandButton1_Click() Dim i As Integer Dim linha As Long linha = 2 For i = 1 To ThisWorkbook.Sheets.Count For linha = 2 To Shee...

Private Sub ConfBase() Application.ScreenUpdating = False Application.DisplayStatusBar = False Application.EnableEvents = False Applic...

Private Sub bt_arquivo_Click() Dim X, Y Dim strPath As Variant Dim NomeArquivo As String Dim Posição As Variant X = 2 For Contad...

Private Sub bt_arquivo_Click() Dim X, Y Dim strPath As Variant Dim NomeArquivo As String Dim Posição As Variant X = 2 For Contad...

Private Sub bt_arquivo_Click() Dim X, Y Dim strPath As Variant Dim NomeArquivo As String Dim Posição As Variant X = 2 For Contad...

Se quiser que seu tópico seja respondido. Envie o arquivo com todos os controles e formulários que serão usados. Esses controles e formulários já deve...

No VBA, uma função deve ser nomeada como Function, quando aparece Sub, não é uma função. É um procedimento ou macro. Exemplo a ser estudado e modific...