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

por exemplo: plan1.range("A1").value = CDate(TextBox1.Text)

Marque como resolvido na parte que te ajudou.

Confesso que não entendi a finalidade desta linha e me pergunto se não seria sCodigo em vez de Codigo. Mesmo fazendo a correção, esta linha é mesmo ne...