Copiar valores de células para outra planilha em VBA

[lscarano]

Prezados,

 

estou criando um pequeno programa no Excel que realiza vendas de livros. Uma das planilhas contém uma espécie de Nota fiscal. Estou querendo criar uma rotina em que quando o vendedor clicar no botão "Registrar venda", registre Nome, CPF, CNPJ, Data e Valor total da venda, mas não estou conseguindo fazer a cópia, pois está dando problema na linha abaixo:

 

Private Sub Botao_RegistroVenda_Click()

'Variável para contat a quantidade de registros armazenados +1'

Registro = Sheets("Registro de venda").UsedRange.Rows.Count + 1

Sheets("Venda").Select 'Seleciona a planilha "Venda"

Cells(7, 2).Select

Selection.Copy

Sheets("Registro de venda").Select

Cells(Registro, 1).Select

Activesheets.Paste ' Cola os valores selecionados da outra planilha

Application.CutCopyMode = False ' Desativa a seleção.

 

End Sub

 

Estou tentando copiar célula por célula, já que são células separadas, mas se possível queria saber se há como copiar várias células de uma vez. Segue abaixo as imagens das planilhas.

 

Planilha "Venda"

 

 

Planilha "Registro de venda"

 

Aguardo qualquer dúvida sobre o post.

[DJunqueira]

O Excel é bom p/ analisar dados, p/ a função q você está querendo o ideal seria o Access.

[lscarano]

Eu sei, mas queria saber como faz no Excel, pois tenho mais facilidade em utilizá-lo em uma série de coisas.

[Visitante]

Experimente:

Private Sub Botao_RegistroVenda_Click()  Dim Registro As Long    Registro = Sheets("Registro de venda").UsedRange.Rows.Count + 1    With Sheets("Venda")      Sheets("Registro de venda").Cells(Registro, 1).Resize(, 4).Value = _        Array(.[B2], .[B3], .[D3], .[E2])    End WithEnd Sub

obs. o campo "Total da venda" não foi possível incluir no código acima pois você não informou qual a origem do dado.