Mudar de cor da celula com referenica a valor da combobox
Enviado: Sex Out 11, 2019 9:58 am
Boa tarde forum
tenho um formulario com pesquisa em listview e que depois carrega valores nas textbox e combobox para editar,
queria saber se é possivel fazer com que ao receber um determinado texto,neste caso "finalizado"e"Anulado" que é digitalizado na combobox "cmbEstado", a celula grave o valor e mude a cor de fundo da celuna na planilha com verde se for "finalizado" e vermelho se for "Anulado".
ou entao se existe algum codigo para quando em uma coluna(exemplo coluna B) existir um desses textos escritos ele colocar a cor de fundo correcta
o codigo que tenho é o seguinte
obrigado
tenho um formulario com pesquisa em listview e que depois carrega valores nas textbox e combobox para editar,
queria saber se é possivel fazer com que ao receber um determinado texto,neste caso "finalizado"e"Anulado" que é digitalizado na combobox "cmbEstado", a celula grave o valor e mude a cor de fundo da celuna na planilha com verde se for "finalizado" e vermelho se for "Anulado".
ou entao se existe algum codigo para quando em uma coluna(exemplo coluna B) existir um desses textos escritos ele colocar a cor de fundo correcta
o codigo que tenho é o seguinte
Código: Selecionar todos
Private Sub btn_Editar_Click()
Dim Plan As Worksheet
Dim Numero 'As Integer
Dim quantidade As Double
Dim linha
Set Plan = Sheets("Historico Manutenções")
linha = 2
Numero = TxtNumero 'codigo
Plan.Select
linha = Plan.Range("A:A").Find(Numero).Row
With Plan
.Cells(linha, 1) = TxtNumero.Text
.Cells(linha, 2) = cmbEstado
End With