Inquiridor
Macro

Pergunta
-
Senhores, sou novo aqui e preciso de auxilio com a criação de uma macro.
Estou desenvolvendo uma planilha, e criei uma macro para copiar os dados de uma planilha chamada "Impute" para outra chamada "Compilação".
A dificuldade é que os dados estão sendo gravados na mesma linha, preciso fazer com que toda vez que acionar o comando da macro, os dados sejam copiados em uma linha nova, ou seja linha vazia, automaticamente alimentando a planilha.
A macro ficou assim:
Range("I7:L7").Select
Selection.Copy
Sheets("Compilação").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Impute").Select
Range("I9:L9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Compilação").Select
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D4").Select
Sheets("Impute").Select
Range("I11:L11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Compilação").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E4").Select
Sheets("Impute").Select
Range("I13:L13").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Compilação").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F4").Select
Sheets("Impute").Select
Range("D17:G20,J17:O20").Select
Range("J17").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Compilação").Select
ActiveSheet.Pictures.Paste.Select
ActiveSheet.Shapes.Range(Array("Picture 20")).Select
ActiveWindow.SmallScroll ToRight:=8
Range("T4").Select
Sheets("Impute").Select
Range("I24:J24").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Compilação").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("T7").Select
Sheets("Impute").Select
Application.CutCopyMode = False
End Sub
Ressalto que são duas abas.
Aguardo orientações.
- Editado Diego BML terça-feira, 20 de fevereiro de 2018 18:45
Todas as Respostas
-
https://www.youtube.com/results?search_query=vba+copiar+dados+de+uma+planilha+para+outra
A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz diniabr2011@gmail.com
-
Enquanto você não estiver eficiente em laço de repetição, não conseguirá fazer quase nada em VBA:
https://www.youtube.com/results?search_query=vba+la%C3%A7o+de+repeti%C3%A7%C3%A3o
A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz diniabr2011@gmail.com