Ir para conteúdo
Fórum Script Brasil
  • 0

testar conteúdo da célula


serbar

Pergunta

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

........

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...