excel vba Loop

[Netrox92]

Ola,

Preciso da ajuda de vocês mais uma vez,

Eu precisava de um loop que fose selecionando a coluna do lado até determinada coluna verificando alguma coisa, eu tenho o codigo que faz isso, só que funciona apenas com as celulas de uma coluna

EXEMPLO:

For b = 9 To 508

Range("b" & .Select

If ActiveCell = "X" Then

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.ThemeColor = xlThemeColorAccent6

.TintAndShade = 0.599993896298105

.PatternTintAndShade = 0

End With

Else

End If

Next b

Nesse exemplo ele vai selecionando celula por celula da coluna "B" e se estiver escrito "X" na celula ele vai pintar ela.

eu precisava que faça isso, só que no lugar de ir em todas da coluna "B", tem que ser em todas da linha "5" até a coluna "BX"

se alguem puder me ajudar agradeço

Abraços

[jeffsilveira]

Tente esse código, ao invés de Range utilizei Cells, onde 76 é o número que corresponde à coluna BX. Funcionou aqui.

For i = 1 To 76
    Cells(5, i).Select
    If ActiveCell = "X" Then
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = 0.599993896298105
        .PatternTintAndShade = 0
    End With
    End If
    Next i

[Netrox92]

Ola jeffsilveira,

Obrigado pela resposta, deu certo.

Abraços

[Douglas]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.