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.