Boa tarde. Veja se o anexo lhe ajuda.

Boa tarde. Veja se ajuda. Sub atualizar() Dim w As Worksheet, wmae As Worksheet, linha As Long linha = 13 Set wmae = Plan1 Application.Screen...

Veja: https://www.youtube.com/watch?v=XNJAkU6ig7Y

Na guia inserir, selecione tabela e depois renomei-a conforme desejar.

Bom dia. Veja no anexo se compreendi bem seu objetivo.

Clique onde está escrito : esta pasta de trabalho--- à esquerda na janela do VBA

Bom dia. Já experimentou trocar a instrução pastespecial por apenas: Sht2.Range("A" & x).Paste ?

Boa tarde. Veja se te ajuda:

Boa tarde. Veja o anexo. At

Bom dia. Veja se ajuda..

Boa tarde. Veja se entendi seu propósito. Na planilha em anexo. Deixei explicado o que eu fiz. Dê retorno.

Não estou vendo a planilha que o senhor anexou...

Boa tarde... Tente assim: Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.OnTime Now + TimeValue("00:00:01"), "AutoCalc...

Boa tarde Dimas. Sugiro postar sua planilha com uma demonstração manual do resultado pretendido. Mas fica a dica: Se vc já tem intimidade com macros, ...

Boa tarde. Sugiro postar sua planilha (com dados ficticios mas de estrutura identica) para que alguem possa tentar ajudá-lo.