Inserindo linhas a cada célula copiada
Enviado: 09 Mai 2019 às 17:21
Olá,
Estou trabalhando em um projeto onde devo copiar alguns dados que estão em uma planilha e posteriormente colá-los em outra. Hoje eu já estou conseguindo fazer isso com o seguinte código:
Sub Copy_PasteSpecial_Method()
'Copy range to clipboard
Workbooks("GESTRATRAPtestVKP_xlx.xlsx").Worksheets("VKP-Testobjects").Range("Q2:Q5").Copy
'PasteSpecial to paste values, formulas, formats, etc.
Workbooks("relatorio.xlsm").Worksheets("Plan1").Range("A2").PasteSpecial Paste:=xlPasteValues
End Sub
Como devo proceder para adicionar vamos supor 5 linha para cada célula copiada? Hoje quando aplico o debugger ele imprime todos os valores de uma só vez.
Estou trabalhando em um projeto onde devo copiar alguns dados que estão em uma planilha e posteriormente colá-los em outra. Hoje eu já estou conseguindo fazer isso com o seguinte código:
Sub Copy_PasteSpecial_Method()
'Copy range to clipboard
Workbooks("GESTRATRAPtestVKP_xlx.xlsx").Worksheets("VKP-Testobjects").Range("Q2:Q5").Copy
'PasteSpecial to paste values, formulas, formats, etc.
Workbooks("relatorio.xlsm").Worksheets("Plan1").Range("A2").PasteSpecial Paste:=xlPasteValues
End Sub
Como devo proceder para adicionar vamos supor 5 linha para cada célula copiada? Hoje quando aplico o debugger ele imprime todos os valores de uma só vez.