none
VBA Excel - ComboBox Muda de Cor Automaticamente RRS feed

  • Pergunta

  • MVPs, Excelistas, bom dia!

    Preciso da ajuda técnica de vocês...

    Estou tentanto fazer com que uma ComboBox mude de cor automaticamente quando a célula A1 estiver vazia ou quando a referida célula for preenchida. Utilizei o evento MouseMove, no entanto, a cor somente muda quando posiciono o ponteiro do mouse em cima da ComboBox. Eu gostaria que a cor da ComboBox fosse alterada quando o valor da célula A1 fosse alterado. Segue o código que usei:

    Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    'Se o valor da célula A1 for diferente de vazio então a ComboBox estará com a cor amarela
    If Range("A1") = "" Then
    ComboBox1.BackColor = RGB(255, 242, 0)
    'Senão a ComboBox ficará com a cor ciano
    Else
    ComboBox1.BackColor = RGB(0, 255, 255)
    End If
    End Sub

    Link para a planilha:
    http://www.4shared.com/office/o7M8dlWD/file.html

    Abraço,
    Logístico
    segunda-feira, 26 de março de 2012 14:17

Respostas

  • Bom dia Logistico, basta fazer o mesmo código no evento CHANGE da Worksheet, veja:

    Private Sub Worksheet_Change(ByVal Target As Range)
    'Se o valor da célula A1 for diferente de vazio
    If Range("A1") <> "" Then
    ComboBox1.BackColor = RGB(255, 242, 0)
    Else
    ComboBox1.BackColor = RGB(0, 255, 255)
    End If
    End Sub

    []'s 

    Douglas Prevoznik

    segunda-feira, 26 de março de 2012 15:05