Ir ao conteúdo
  • Cadastre-se
tonnyype

Copiar células e copiar em outra sheet sem sobrescrever

Recommended Posts

Olá, boa tarde.

Tenho noções básicas de macro, por isso peço a ajuda de vocês.

Gostaria de uma macro para copiar um intervalo de celulas de uma sheet para outra sem sobrescrever.

Comecei a procurar e cheguei nesse código que salva em outro arquivo:

Sub Salva()

Range("A9:H33").Select
Selection.Copy
Workbooks.Open Filename:="C:\Manual\consolida.xlsx"
Sheets("sheet1").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub

A planilha vai funcionar da seguinte forma: O usuário digita as informações nas celulas do intervalo e pede para "gravar". Após isso os dados são salvos na "sheet2" e o formulário fica em branco para que ele prossiga com outro preenchimento.

Desde já obrigado!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×