Botão para completar tabela com novos dados

[Visitante]

Boa noite,

Tenho uma  planilha Plan1 onde digito dados de A2 até C100, podendo ser uma ou mais linhas por vez.

A partir de um botão de macro devo transferir estes dados para Plan2 de A2 até C100, e apagar os dados  em Plan1.

 

Condição : Caso em Plan2 ja tenha dados de A2 até C5, os novos dados de Plan1 devem entrar em Plan2

a partir da proxima linha vazia (A6).

 

Grato

Kurt

[Visitante]

considerei que as colunas A:C em plan1 são preenchidas até a mesma linha
 

Sub TransfereDados() Dim LRo As Long, LRd As Long  LRo = Sheets("Plan1").Cells(Rows.Count, 1).End(xlUp).Row  LRd = Sheets("Plan2").Cells(Rows.Count, 1).End(xlUp).Row   Sheets("Plan2").Cells(LRd + 1, 1).Resize(LRo - 1, 3).Value = _    Sheets("Plan1").Cells(2, 1).Resize(LRo - 1, 3).Value   Sheets("Plan1").Cells(2, 1).Resize(LRo - 1, 3).ClearContentsEnd Sub

[Visitante]

Amigo,

Onde consigo alterar o código para buscar e colar  em outras colunas?

Quero copiar de plan1 BT2:CC100 e colar em CF2.

grato

[Visitante]

Quero copiar de plan1 BT2:CC100 e colar em CF2.

 

Sub TransfereDados() Dim LRo As Long, LRd As Long  LRo = Sheets("Plan1").Cells(Rows.Count, "BT").End(xlUp).Row  LRd = Sheets("Plan2").Cells(Rows.Count, "CF").End(xlUp).Row   Sheets("Plan2").Cells(LRd + 1, "CF").Resize(LRo - 1, 10).Value = _    Sheets("Plan1").Cells(2, "BT").Resize(LRo - 1, 10).Value   Sheets("Plan1").Cells(2, "BT").Resize(LRo - 1, 10).ClearContentsEnd Sub

 

[Visitante]

Olá.

Assim que a macro é acionada aparece a mensagem:

ERRO DE COMPILAÇÃO

ERA ESPERADO: =

 

?????

grato

Kurt

[Visitante]

Disponibilize uma amostra do seu arquivo, com o código instalado, para facilitar a correção do erro.

[Visitante]

Encontrei o problema, esqueci uma linha, agora esta ok.Obrigado.