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

Inserir linhas em lista de códigos

 
2024 - VBA & Macros
Post Recente por Osvaldomp 2 anos atrás
2 Posts
2 Usuários
0 Reactions
966 Visualizações
RSS
depoisteconto
 depoisteconto
(@depoisteconto)
Posts: 183
Estimable Member
Topic starter
 

Boa tarde colegas,

Tenho um desafio que é inserir 12 linhas abaixo de cada código de uma lista/coluna.

Então estou a procura de alguma solução em VBA, pois fazer isso na mão vai me custar muitas horas ...  a planilha tem cerca de 800 códigos.

Elaborei num exemplo, como está e como deveria ficar.

Qualquer ajuda é sempre bem vinda 😉 

 

 

 

 
Postado : 29/06/2022 2:18 pm
 Osvaldomp
(@osvaldomp)
Posts: 858
Prominent Member
 

Olá, @depoisteconto.

Experimente:

Sub InsereLinhas()
Dim k As Long
Application.ScreenUpdating = False
For k = Cells(Rows.Count, 1).End(3).Row To 3 Step -1
Rows(k + 1).Resize(11).Insert
Cells(k, 2) = 1: Cells(k, 2).AutoFill Destination:=Cells(k, 2).Resize(12), Type:=xlFillSeries
Cells(k, 3) = 2022: Cells(k, 3).Resize(12).FillDown
Next k
End Sub

Osvaldo

 
Postado : 29/06/2022 5:06 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico