Usuário com melhor resposta
Incluir Dados da Plan1 para a Plan2 utilizando comando vba

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
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
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
-
-