Copie várias células (não no intervalo) de uma folha para outra folha

Question

Eu pesquisei tudo e não consigo encontrar nada sobre a cópia de várias células de diferentes linhas & colunas para uma única linha em outra folha.

Por exemplo, copiar células, A10, F2, F3 & F34 da Folha 1, para A2 na Folha 2 e inicie uma nova linha.

O objetivo é copiar certas informações de uma fatura (Folha 1)

• A10 - Cliente
• F2 - data
• F3 - Fatura Não
• F34 - Custo total

para uma única linha em outra planilha para relatório (planilha 2)

Quando eu preencho uma nova fatura, espero executar a mesma macro para copiar essas células para a próxima linha vazia na Planilha 2.

    

Answer 1

Esta macro VBA fará isso:

Public Sub resume_invoice()
    Dim wkb As Workbook
    Dim wks, wks1 As Worksheet
    Set wkb = ThisWorkbook
    Set wks = wkb.Sheets(1)
    Set wks1 = wkb.Sheets(2)
    use_row = wks1.Cells(wks1.Rows.Count, "A").End(xlUp).Row
    use_row = use_row + 1
    If wks.Cells(3, 6) <> wks1.Cells(use_row - 1, 3) Then
        wks1.Cells(use_row, 1) = wks.Cells(10, 1)
        wks1.Cells(use_row, 2) = wks.Cells(2, 6)
        wks1.Cells(use_row, 3) = wks.Cells(3, 6)
        wks1.Cells(use_row, 4) = wks.Cells(34, 6)
        Set wkb = Nothing
        Set wks = Nothing
        Set wks1 = Nothing
    End If
End Sub

Vá para macro / VBA, em ThisWorkbook, insira um módulo e cole o código.

Para facilitar o uso, você pode atribuir um botão para executá-lo.

    

Answer 2

Para simplificar e facilitar a depuração, use células auxiliares.

Em uma linha não usada, a linha 99, por exemplo, vincula-se às quatro células-fonte (A99 = A10, B99 = F2, C99 = F3, D99 = F34). Então a macro é direta. Esconda a linha 99 para mantê-la limpa.