Página 1 de 1
Troca de cor de botão
Enviado: 04 Fev 2021 às 14:31
por 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.
Re: Troca de cor de botão
Enviado: 04 Fev 2021 às 17:05
por AfonsoMira
Boas veja se isto lhe ajuda.
Caso não por favor anexe o seu ficheiro para podermos ajudar melhor.

Re: Troca de cor de botão
Enviado: 04 Fev 2021 às 17:11
por feeoliveiraa123
Afonso, era exatamente isso que eu precisava.
Muito obrigado mesmo pela ajuda.
Vou usar isso e só trocar a celula
Re: Troca de cor de botão
Enviado: 04 Fev 2021 às 17:34
por AfonsoMira
Fico feliz em ajudar.

Caso necessite de mais ajuda é só dizer.
Re: Troca de cor de botão
Enviado: 05 Fev 2021 às 08:20
por 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.
Re: Troca de cor de botão
Enviado: 05 Fev 2021 às 09:24
por AfonsoMira
Qual célula você quer colocar?
Re: Troca de cor de botão
Enviado: 05 Fev 2021 às 09:51
por 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.
Re: Troca de cor de botão
Enviado: 05 Fev 2021 às 10:17
por 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.
Re: Troca de cor de botão
Enviado: 09 Fev 2021 às 06:43
por AfonsoMira
Ora experimente antes com o seguinte código:
Código: Selecionar todosPrivate 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
Re: Troca de cor de botão
Enviado: 09 Fev 2021 às 16:19
por 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.