Este fórum está sendo desativado

[feeoliveiraa123]

Pessoa boa tarde, tudo bem?

Tenho uma planilha e estou criando 2 botões e preciso que eles mudem de cor de acordo com um valor x.

Exemplo se ele for menor que 200 ele fica vermelho, se ele for maior que 200 mas menor de 500 ele fica amarelo e se ele for maior que 500 ele fica verde.

Estou quebrando a cabeça mas não estou conseguindo criar, estou usando o botão com as formas retangulo.

RetânguloCantosArredondados8_Clique()

Muito obrigado.

[AfonsoMira]

Boas veja se isto lhe ajuda.
Caso não por favor anexe o seu ficheiro para podermos ajudar melhor.

[feeoliveiraa123]

Afonso, era exatamente isso que eu precisava.

Muito obrigado mesmo pela ajuda.

Vou usar isso e só trocar a celula

[AfonsoMira]

Fico feliz em ajudar.
Caso necessite de mais ajuda é só dizer.

[feeoliveiraa123]

Afonso bom dia,

Estou escrevendo esse código:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A8")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) Then
If Target.Value < 300 Then
ActiveSheet.Shapes("Rectangle: Rounded Corners 8").Fill.ForeColor.RGB = vbRed
Elself Target.Value >= 300 And Target.Value < 600 Then
ActiveSheet.Shapes("Rectangle: Rounded Corners 8").Fill.ForeColor.RGB = vbYellow
Else
ActiveSheet.Shapes("Rectangle: Rounded Corners 1").Fill.ForeColor.RGB = vbGreen
End If

Mas não está indo, consegue saber o pq?

Eu gostaria de colocar qualquer célula e não só a A1

Muito obrigado.

[AfonsoMira]

Qual célula você quer colocar?

[feeoliveiraa123]

Afonso, ainda não tenho uma célula especifica.

Estou realizando um dashboard e vou fazer isso, caso esse botão funcione. Se não funcionar vou ter que usar segmentação mesmo.

[feeoliveiraa123]

Outra coisa, quando eu colocar para realizar soma de 5 células diferentes de primeira vai, mas caso eu atualize o numero da célula só muda o numero e não a cor.

[AfonsoMira]

Ora experimente antes com o seguinte código:

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
'Data criação(mm/dd/aaaa): 02/09/2021
'Criado por InforMira
'Contato: informirapt@gmail.com

Dim celula As Range

Set celula = Range("A1") 'Aqui colocar a célula que quer o valor no botão


If celula.Value < 200 Then
    ActiveSheet.Shapes("Rectangle: Rounded Corners 1").Fill.ForeColor.RGB = vbRed
ElseIf celula.Value >= 200 And celula.Value < 500 Then
    ActiveSheet.Shapes("Rectangle: Rounded Corners 1").Fill.ForeColor.RGB = vbYellow
Else
    ActiveSheet.Shapes("Rectangle: Rounded Corners 1").Fill.ForeColor.RGB = vbGreen
End If

End Sub

[feeoliveiraa123]

Afonso,

Muito obrigado pela ajuda, eu acabei fazendo Formatação Condicional por formula.

Coloquei a formula =SE e fiz uma forma mudar de cor e coloquei outro botão dentro dessa forma para inserir a numeração.

Muito obrigado pela ajuda.