Inserir linhas em lista de códigos

2024 - VBA & Macros

Post Recente por Osvaldomp 3 anos atrás

2 Posts

2 Usuários

0 Reactions

1,020 Visualizações

RSS

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

exemplo_planilhando.xlsx

Postado : 29/06/2022 2:18 pm

Osvaldomp

(@osvaldomp)

Posts: 888

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