barison28,

Bom dia!

Modifique seu código para o código abaixo:

Sub Botão19_Clique()
    Dim UltimaLinha As Long
    
    UltimaLinha = Sheets("Recibos Emitidos").Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
    Sheets("Banco de Dados").Select
    Range("c6").Select
    
    Range("c6,c8,c9,c10,c11,c15,c16,c20").Select
    Selection.Copy
    Sheets("Recibos Emitidos").Select
    Range("a" & UltimaLinha).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=True
    Application.CutCopyMode = False
    Range("a3").Select
End Sub

Perfeito amigo, eu esqueci de mencionar este numero que gera é um numero aleatório tem como ele não copiar numero repetido para a outra planilha "inserir nesse mesmo botão de cima", tipo caso dar algum numero repetido aparecer uma mensagem de erro "Numero gerado em duplicidade, favor gerar outro numero".

Melhor compactar seu arquivo com .ZIP e anexá-lo aqui no fórum.

segue

Ok.

Veja se é assim.

Perfeito, muito obrigado!

Boa tarde,
ficou perfeito a planilha, mas tem mais uma coisinha, teria como colocar para apagar as celulas selecionadas depois que transpor para aba recibos emitidos. Tipo eu clicar em "salvar em recebidos Emitidos" e apagar as celulas selecionadas, as células que serao apagadas está no código.

o ultimo arquivo que vc enviou.

barison28,

Você deve abrir novo tópico sempre que precisar de outra ajuda, mesmo que seja no mesmo arquivo que está desenvolvendo. Isso fará com que você receba ajuda, dos usuários que quiserem ajudar, mais rapidamente. Ou seja: não deve ficar inserindo dúvidas complementares, após a solução de dúvida já resolvida.

Quando uma dúvida for resolvida, vote positivamente, clicando na mãozinha existente ao lado da ferramenta CITAR, na resposta dom usuário que lhe ajudou e feche o tópico colocando-o como resolvido. Nunca esqueça de agradecer, pois esse é o único incentivo para os integrantes do fórum.