Incluir Dados da Plan1 para a Plan2 utilizando comando vba

Question

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

Answer 1

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

Answer 2

Ficou Perfeito André... !

Muito Obrigada!

Att Janaina 

Answer 3

Ok Janaina, 

Volte sempre que precisar ! =D

---

André Santo | basevba.wordpress.com