Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Inserir linhas copi...
 
Notifications
Clear all

Inserir linhas copiadas entre intervalos

 
2024 - VBA & Macros
5 Posts
2 Usuários
0 Reactions
896 Visualizações
RSS
 jrodrig7
(@jrodrig7)
Posts: 50
Trusted Member
Topic starter
 

Pessoal, bom dia! Tudo bem?

Procurei na base, mas não achei uma solução para o meu problema em específico

Quando clicar na imagem de "+", preciso que a macro copie o intervalo da célula A12 até a Q15 e o insira duas linhas abaixo da última linha preenchida da tabela acima, deixando também uma folga de uma linha para baixo para que a opção de fazer essa procedimento mais vezes continue no final de tudo.

Alguém pode me ajudar, por favor?

 
Postado : 30/09/2015 7:18 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Tente algo assim...

Sub AleVBA_17547()
    Range("A12:Q15").Copy
    Range("I65536").End(xlUp).Offset(2, -7).PasteSpecial (xlPasteAll) 'Leia:https://blog.udemy.com/pastespecial-vba/
End Sub

Por favor tente adaptar!!!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 30/09/2015 8:26 am
 jrodrig7
(@jrodrig7)
Posts: 50
Trusted Member
Topic starter
 

Alexandre, inseri o código e fiz as devidas alterações, tendo sucesso parcial no que eu desejava.

O único problema que encontrei com o seu código é que ele não mantém a formatação de tabela no final. Preciso que a última linha do que foi copiado seja redimensionada para 12.75 e que tenha a formatação de tabela até a coluna Q.

Você pode me ajudar, por favor?

Em anexo, a planilha com o seu código já alterado.

 
Postado : 30/09/2015 10:58 am
 jrodrig7
(@jrodrig7)
Posts: 50
Trusted Member
Topic starter
 

up...

 
Postado : 01/10/2015 6:46 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Você leu o link que eu te mande na postagem anterior?
Leia: https://blog.udemy.com/pastespecial-vba/

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 02/10/2015 9:52 am
Forum Jump:
  Tópico Anterior
Próximo Tópico