[Resolvido] Colorindo resultado "For Each...

2024 - VBA & Macros

Post Recente por Fabiano 3 anos atrás

3 Posts

2 Usuários

0 Reactions

1,043 Visualizações

RSS

Fabiano

(@alanisfcsm)

Posts: 0

Trusted 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: 0

Illustrious Member

@alanisfcsm

Boa tarde!

Após a linha:

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

Acrescente a linha:

        cell.Interior.ColorIndex = 4 'Fundo verde

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 14/12/2021 12:03 pm