Quando você se comunica por texto, é importante colocar ponto de interrogação quando é uma pergunta, caso contrário, vira uma afirmação: "klarc2...

Private Sub cmd_Salvar1_Click() Call CriaArquivo(Sheets("Setor Alfa"), ThisWorkbook.Path) End Sub Private Sub cmd_Salvar2_Click() ...

Ao iniciar o formulário Private Sub UserForm_Initialize() Dim INTERVALO As Range Set INTERVALO = ThisWorkbook.Sheets("Pla...

O código foi corrigido abaixo

https://www.google.com.br/search?q=vba+imagem&oq=vba+imagem&aqs=chrome..69i57j69i60l3.4880j0j7&sourceid...

https://youtu.be/_E2oajqHD5g Option Explicit 'COMO A VARIÁVEL LINHA 'VALERÁ PARA TODOS OS PROCEDIMENTOS 'VOU COLOCÁ-LA AQUI FORA Dim LINHA ...

Private Sub CommandButtonSALVAR_Click() Sheets("DADOS2").Select '1 Range("F1").Select Range("F1048576")....

Clique em editar e depois clique em code. Coloque o código no meio dos colchetes: [ ] coloque o código aqui, mas não apague as palavras ...

Anexe o arquivo

https://www.youtube.com/results?search_query=vba+importar+txt https://social.msdn.microsoft.com/Forums/pt-BR/e9237...

Dim A, B, C, D As String A = cstr(Cells(2, "j").Value) B = cstr(Cells(7, "m").Value) C = cstr(Cells(8, "m")�...

Tente formatar a célula para texto: Range("C48").Select Selection.NumberFormat = "@" OU: Cells(48, "c") =...

Quando for iniciar algum tópico, seja específico no título, por exemplo: Passar data de um formulário para outro. https://www.youtube....

Private Sub save_click() Dim ws As Worksheet Dim LastRow As Long If namebox.Text = Empty Then MsgBox "Insira todos os dados necessários par...

Favor editar o título do tópico para algo mais específico. Por exemplo: Carregar 50 primeiros registros em ListView dim contador as integer contado...