none
Incluir Dados da Plan1 para a Plan2 utilizando comando vba RRS feed

  • Pergunta

  • Boa tarde!


    Estou criando um banco de dados no excel vba, onde preciso inserir os dados da Plan1 na Plan2, porém o comando que estou utilizando substitui os dados da plan2. Gostaria de um comando que buscasse a próxima linha vazia e inserisse os dados copiados da plan1.

    Sub Gravarlançamento()


    Sheets("Bancodados1").Range("A1:M200").Copy
    Sheets("Dadosgravados").Activate
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False



        Sheets("Bancodados1").Range("A2:M5000").ClearContents

    End Sub

    Agradeço

    terça-feira, 22 de março de 2016 18:57

Respostas

  • Sub Gravarlançamento()
    
    Dim lngLastRow As Long
    
    
    Sheets("Bancodados1").Range("A1:M200").Copy
    Sheets("Dadosgravados").Activate
    
    Range("A1").Select
    
    lngLastRow = Sheets("Dadosgravados").Range("A1").End(xlDown).Row
    
    Cells(lngLastRow + 1, 1).Select
    
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    
    Application.CutCopyMode = False
    
    Sheets("Bancodados1").Range("A2:M5000").ClearContents
    
    End Sub
    


    André Santo | basevba.wordpress.com

    • Sugerido como Resposta André Santo terça-feira, 22 de março de 2016 19:11
    • Marcado como Resposta Jannaina Silva terça-feira, 22 de março de 2016 19:57
    terça-feira, 22 de março de 2016 19:11

Todas as Respostas

  • Sub Gravarlançamento()
    
    Dim lngLastRow As Long
    
    
    Sheets("Bancodados1").Range("A1:M200").Copy
    Sheets("Dadosgravados").Activate
    
    Range("A1").Select
    
    lngLastRow = Sheets("Dadosgravados").Range("A1").End(xlDown).Row
    
    Cells(lngLastRow + 1, 1).Select
    
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    
    Application.CutCopyMode = False
    
    Sheets("Bancodados1").Range("A2:M5000").ClearContents
    
    End Sub
    


    André Santo | basevba.wordpress.com

    • Sugerido como Resposta André Santo terça-feira, 22 de março de 2016 19:11
    • Marcado como Resposta Jannaina Silva terça-feira, 22 de março de 2016 19:57
    terça-feira, 22 de março de 2016 19:11
  • Ficou Perfeito André... !

    Muito Obrigada!

    Att Janaina 

    terça-feira, 22 de março de 2016 20:00
  • Ok Janaina, 

    Volte sempre que precisar ! =D


    André Santo | basevba.wordpress.com

    quarta-feira, 23 de março de 2016 02:05