Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 formatação condicional por VBA

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
serbar



Mensagens : 19
Data de inscrição : 07/02/2011

MensagemAssunto: formatação condicional por VBA   Ter Out 07, 2014 10:45 pm

Quero que a cor da fonte seja vermelha ou preta dependendo do conteúdo da célula, que contem uma fórmula.

Se a primeira letra do código for Z a letra deve ser vermelha, caso contrário preta.

Tentei fazer por formatação condicional mas não consegui.

Exemplo:

1. fórmula da célula: SE('M9'!D191="";"";'M9'!D191)
2 Valor exibido na célula: ZABC ou 867 (dados de exemplo)
2. Se for Z letra na cor vermelha

Se for possível por formatação condicional também me resolve
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: formatação condicional por VBA   Qua Out 08, 2014 2:19 pm

Bom dia!!

Considerando que o código vai ficar na coluna A.

Código:
=SE(ESQUERDA($A2;1)="Z";1;0)

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
serbar



Mensagens : 19
Data de inscrição : 07/02/2011

MensagemAssunto: Re: formatação condicional por VBA   Qui Out 09, 2014 9:40 pm

Obrigado pela atenção.

Preciso usar VBA pois vou fazer um loop.

Preciso checar o conteúdo da célula para saber se a 1ª posição tem a letra Z mas não estou conseguindo fazer isso.

na instrução If Left(rangeplanilha.Value, 1) = "Z" Then na verdade estou checando o valor do conteúdo da variável rangeplanilha.

O que preciso é saber se o conteúdo da célula , cujo endereço está em rangeplanilha, contem Z na 1ª posição

Pode me ajudar ?

Código :

For intervalo = 229 To 1290


rangeplanilha = "B" & intervalo


Range(rangeplanilha).Select

' BRT


If Left(rangeplanilha.Value, 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

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
End If
Next

Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: formatação condicional por VBA   Qui Out 09, 2014 10:34 pm

Boa tarde!!

Seria tipo isso?
Código:
Option Explicit
Sub AleVBA_926()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp))
  If Left(c, 1) = "z" Or Left(c, 1) = "Z" Then c.Font.Color = vbRed
Next c
Application.ScreenUpdating = True
End Sub
O exemplo é se baseado na coluna A.

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
serbar



Mensagens : 19
Data de inscrição : 07/02/2011

MensagemAssunto: Re: formatação condicional por VBA   Sex Out 10, 2014 5:54 pm

Obrigado, meu amigo

Funcionou perfeitamente
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: formatação condicional por VBA   Sex Out 10, 2014 8:14 pm

Boa tarde!!

Eu fico feliz em ajuda.

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: formatação condicional por VBA   Hoje à(s) 10:57 am

Voltar ao Topo Ir em baixo
 
formatação condicional por VBA
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Formatação condicional para caixa de opção (checkbox)
» Mudar de cor texto digitado em uma TextBox (formatação condicional ou comando vba)
» [Resolvido]Formatação condicional usando VBA em formulário
» Formatação Condicional em Consulta
» Formatação Condicional Em Formulário Contínuo Via Código

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: