Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Preencher células v...
 
Notifications
Clear all

Preencher células vazias

 
2024 - VBA & Macros
Post Recente por klarc28 7 anos atrás
3 Posts
3 Usuários
0 Reactions
832 Visualizações
RSS
 menezes7
(@menezes7)
Posts: 0
New Member
Topic starter
 

Olá,
Gostaria de uma macro que preenchesse as células vazias com o valor da célula acima.

Tenho um arquivo em que cada uma das colunas (A:L) corresponde a um nível da hierarquia de centros de custo/lucro. Os dados dessas colunas estão dispostos em formato de tabela, sem repetição dos dados.

Envio o arquivo em anexo.

Abs.

 
Postado : 22/01/2018 9:23 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde

Como você é novato, Para facilitar a tua participação, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

Utilize a ferramenta de pesquisa do forum, pois já temos outros tópicos sobre o assunto, como este aqui:
viewtopic.php?f=10&t=27115

[]s
Patropi - Moderador

 
Postado : 22/01/2018 10:22 am
 klarc28
(@klarc28)
Posts: 0
New Member
 

Espero que você estude, entenda e adapte o código a seguir:

Sub copiar()

Dim intervalo As Range
Dim cl As Object

Set intervalo = Plan1.Range("A1:L5000")

For Each cl In intervalo.Cells

If cl.Value = "" Then

cl.Value = Plan1.Cells(cl.Row - 1, cl.Column).Value

End If

Next cl

End Sub
 
Postado : 22/01/2018 1:45 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico