Inserir linhas em l...
 
Notifications
Clear all

Inserir linhas em lista de códigos

2 Posts
2 Usuários
0 Likes
640 Visualizações
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)
Posts: 852
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