Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Colorindo resultado...
 
Notifications
Clear all

[Resolvido] Colorindo resultado "For Each...

 
2024 - VBA & Macros
Post Recente por Fabiano 3 anos atrás
3 Posts
2 Usuários
0 Reactions
1,025 Visualizações
RSS
 Fabiano
(@alanisfcsm)
Posts: 0
New Member
Topic starter
 

Olá

O código abaixo funciona, mas como colorir o resultado?

For Each cell In orig.Range("H3:H1000")
    If cell.Value = "" And cell.Offset(, 1) <> "" Then
        cell.Value = cell.Offset(-1, 0).Value
    End If
Next cell

 

 
Postado : 13/12/2021 5:43 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

@alanisfcsm 

Boa tarde!

Após a linha:

cell.Value = cell.Offset(-1, 0).Value

Acrescente a linha:

        cell.Interior.ColorIndex = 4 'Fundo verde

 

 

 
Postado : 14/12/2021 12:03 pm
 Fabiano
(@alanisfcsm)
Posts: 0
New Member
Topic starter
 

Obrigado! 😜

@wagner-morel-vidal-nobre 

 

 
Postado : 16/12/2021 9:32 am
Forum Jump:
  Tópico Anterior
Próximo Tópico