Mudar cor da caixa de listagem no evento Worksheet_Change


#1

Boa tarde!
Tem como mudar a cor do interior da caixa de listagem no evento Worksheet_Change.

Tentei assim não funcionou


#2

Veja se isso atende:

Mudar_cor.xlsm (18,7 KB)


#3

Boa Noite xlarruda!
Esta caixa de listagem refere a dados de outra planilha. Gostaria que ao alterar um item da lista muda-se a cor para identificar que os dados selecionados são referentes a aquele item em Worksheet_SelectionChange retornasse a com anterior.

Obrigado pela ajuda


#4

Bom dia!
Consegui resolver usando KeyCells


#5

Bom Dia!
Segue a Forma como resolvi para quem interessar fazer também.
Private Sub Worksheet_Activate()
Dim KeyCells As Range
Set KeyCells = Range(“C2”) 'Range onde fica a caixa de listagem
Range(“C2”).Interior.Color = xlNone 'Use a cor que desejar
End Sub
Private Sub Worksheet_Change(ByVal Tairget As Range)
Dim KeyCells As Range
Set KeyCells = Range(“C2”)
Range(“C2”).Interior.Color = RGB(146, 208, 80) 'Use a cor que desejar
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range(“C2”)
Range(“C2”).Interior.Color = xlNone’Use a cor que desejar
End Sub

Observação:
A primeira linha do cadastro da lista tem que estar vazio,com item não muda a cor do primeiro item da caixa. Qualquer ideia para aperfeiçoar o que foi feito ajudara mais ainda e só postar.