Como copiar células exatas em outro arquivo do Excel?

Question

Eu preciso copiar algumas células de uma linha para outra planilha do Excel. As células na planilha de destino não estão na mesma linha.

A linha inicial está mudando e é por isso que minha ideia é a seguinte: execute uma macro, escolha a linha inicial e deixe a macro copiar todas as células necessárias para outro arquivo do Excel.

Isso é possível? Como?

    

Answer 1

Aqui estão alguns exemplos diferentes de como copiar linhas inteiras para outra planilha. Você pode ajustá-lo para atender às suas necessidades. Você não deu muitos detalhes, mas parece que a chave para você seria descobrir exatamente qual linha deseja copiar e onde deseja colá-la. Você precisará fornecer os detalhes de seus dados para que possamos ajudar com isso e com essa pergunta.

Sub CopyToAnotherSheet()

    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet

    Set wsSource = Worksheets("Sheet1")
    Set wsTarget = Worksheets("Sheet2")

    'Copy the last row to the last row
    wsSource.Rows(wsSource.UsedRange.Rows.Count).Copy wsTarget.Rows(wsTarget.UsedRange.Rows.Count + 1)

    'Copy the last row to a new first row
    wsTarget.Rows(1).Insert xlDown
    wsSource.Rows(wsSource.UsedRange.Rows.Count).Copy wsTarget.Rows(1)

    'Copy a particular row to another particular row
    wsTarget.Rows(7).Insert xlDown
    wsSource.Rows(3).Copy wsTarget.Rows(7)

End Sub