lscarano

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

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.