Algo parecido com isto, não manjo de Word. 'Set doc = appWord.Documents.Open("C:Tema.doc") Set doc = ThisDocument ...

Quando cliquei no botão copiar para abas, não deu erro. Você fez alguma alteração no arquivo? Em caso positivo, anexo como está agora.

Sub teste() Dim caminho As String caminho = Application.GetOpenFilename MsgBox caminho End Sub No código acima, vai ser aberta uma janela para v...

1ª Alternativa) Sugiro acabar com vínculos. Isso é um desastre. Faça uma macro para pegar (ou levar) os dados, assim como você faz naquela macro que c...

Sub NomeDaMacro ( ) On Error Resume Next 'Faça isso 'Faça aquilo 'Faça aquilo outro End Sub Sub NomeDaMacro ( ) On Error Goto Fim 'Faça isso 'F...

O preenchimento será feito quando mudar de célula na aba Vendas.

Sub fff() Application.ScreenUpdating = False Workbooks.Open ("Y:_EMPRESAS1_empresa2_PDE1_Projetos_Ativos1# Pasta de trabalhoIncent...

Quando for fazer uma pergunta, use ponto de interrogação. https://social.msdn.microsoft.com/Forums/pt-BR/8fdc0441-19f6-418e-8626-...

https://www.youtube.com/results?search_query=vba+exportar+txt

Dá para fazer com um único formulário

Sheets("AllianzAutoMoto").Cells(linha, "b") = CDate(FORM_CADASTRA.TextBox1.Text)

[code]sub teste ( ) dim dt as date dt = cdate(sheets("Consulta").range("B5").value)'Não sei qual é a data da...

Código abaixo

Código parcial abaixo

Vídeos relacionados: https://www.youtube.com/results?search_query=vba+busca https://www.youtube.com/results?search_quer...