Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Copiar e colar fórm...
 
Notifications
Clear all

Copiar e colar fórmulas de um range até a última linha preen

 
2024 - VBA & Macros
Post Recente por Rubélio 9 anos atrás
3 Posts
2 Usuários
0 Reactions
1,118 Visualizações
RSS
 Rubélio
(@rubelio)
Posts: 53
Trusted Member
Topic starter
 

Bom dia a todos!

Pessoal, por favor, necessito de um código em VBA para localizar a última célula preenchida na coluna D(n), copiar as fórmulas do range D(n) até I(n) e colá-las no range D(n+1) até I(n+1), onde (n) é igual à posição da última célula preenchida na coluna C.

Obs.: o número de linhas é variável.

No exemplo anexo, preciso copiar as fórmulas de D4 a I4 e colá-las de D5 a I10.

Por favor, podem me ajudar?

Att.,

Rubélio

 
Postado : 16/05/2016 8:28 am
 Osvaldomp
(@osvaldomp)
Posts: 858
Prominent Member
 

No exemplo anexo, preciso copiar as fórmulas de D4 a I4 e colá-las de D5 a I10.

Me parece que você quis dizer: copiar de 'D2:I2' até 'D10:I10'. Seria isso?

Se sim, experimente:

Sub ArrastaFórmulas()
 [D2:I2].AutoFill Destination:=Range("D2:I" & Cells(Rows.Count, "C").End(xlUp).Row)
End Sub

Osvaldo

 
Postado : 16/05/2016 9:00 am
 Rubélio
(@rubelio)
Posts: 53
Trusted Member
Topic starter
 

Osvaldo, é isso mesmo que eu preciso.

Muito obrigado pela força!!!

Abç.

RM

 
Postado : 16/05/2016 11:25 am
Forum Jump:
  Tópico Anterior
Próximo Tópico