Este fórum está sendo desativado

[kiko]

Bom dia a todos, como poderia USANDO VBA, dentro de um intervalo por exemplo A1:A100, selecionar somente as linhas PARES ou IMPARES, e por exemplo pinta-las de amarelo.
Desde já agradeço e fico no aguardo

[osvaldomp]

Pinte SEM selecionar.

Código: Selecionar todos

Sub PintaPares()
 Dim k As Long
  For k = 1 To 100
   Cells(k, 1).Interior.ColorIndex = IIf(k Mod 2 = 0, 6, xlNone)
  Next k
End Sub

Código: Selecionar todos

Sub PintaÍmpares()
 Dim k As Long
  For k = 1 To 100
   Cells(k, 1).Interior.ColorIndex = IIf(k Mod 2 = 1, 6, xlNone)
  Next k
End Sub

Via Formatação Condicional:

Código: Selecionar todos

=MOD(LIN();2)=0
=MOD(LIN();2)=1

[kiko]

osvaldomp quando vejo pessoas como você é aí que sei que tenho que aprender cada dia mais, mais uma vez OBRIGADO pela atenção dispensada, resolveu como uma luvas.

[Kledison]

Boa tarde!


Vou MARCAR como resolvido esse tópico.

Caso o autor precise de mais alguma ajuda referente ao assunto, solicite alguns dos moderadores a liberação.

Att

Kledison
Moderador