Preciso configurar a cor da fonte da célula dependendo do conteúdo da mesma, em um intervalo
Para isso construí um loop (ver código abaixo)
O prloblema é que o IF não funciona pois está comparando o conteúdo da variável que contem o endereço e não o valor da célula
como consigo isso ?
código :
rangeplanilha = "B" & intervalo
intervalofinal = intervalo + 5
rangefinal = rangeplanilha & ":AA" & intervalofinal
Range(rangeplanilha).Select
' BRT If Left(rangeplanilha, 1) = "Z" Then
'
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.Color = RGB(255, 0, 0)
.Size = 16
.Bold = True
End With
' dados da linha
Range(rangeplanilha).Select
With Selection.Font
.Color = RGB(255, 0, 0)
.Size = 17
.Bold = False
End With
Else
' Não BRT
Range(rangeplanilha).Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.Color = RGB(0, 0, 0)
.Size = 14
.Bold = False
End With
........