copiar e colar nas proximas linhas vazias sequencial.

2024 - VBA & Macros

Post Recente por derley537 7 anos atrás

3 Posts

2 Usuários

0 Reactions

1,032 Visualizações

RSS

derley537

(@derley537)

Posts: 16

Active Member

Topic starter

possuo uma planilha com dados, preciso de uma macro que localize a primeira célula escrita na coluna D, e preencha ate a próxima célula escrita e assim até o final. ex seleciona coluna d procura primeira célula não vazia, acha "pato" na d2, copia e cola na d3 até d9 que estavam vazias, pois na d10 tem calango, agora faz o mesmo com a d10, etc etc etc.... segue a plan...

Postado : 16/04/2018 11:32 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

Option Explicit

Sub teste()

Dim linha As Long
For linha = 2 To Planilha1.UsedRange.Rows.Count

If Planilha1.Range("D" & linha).Value = "" Then

Planilha1.Range("D" & linha).Value = Planilha1.Range("D" & linha - 1).Value
End If
Next linha


End Sub

Postado : 16/04/2018 11:41 am