Ir ao conteúdo
  • Cadastre-se
Visitante

RESOLVIDO Botão para completar tabela com novos dados

Recommended Posts

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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
  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites
  • Autor do tópico
  •    0
    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

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites

    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

     

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites
  • Autor do tópico
  •    0
    Visitante

    Olá.

    Assim que a macro é acionada aparece a mensagem:

    ERRO DE COMPILAÇÃO

    ERA ESPERADO: =

     

    ?????

    grato

    Kurt

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites
    Visitante
    Este tópico está impedido de receber novos posts.





    Sobre o Clube do Hardware

    No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

    Direitos autorais

    Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

    ×