Guru do Excel e Power BI

Boa noite pessoal. Mais uma ajuda por favor. Nesse meu procedimento quando eu testo o resultado , por exemplo, strLuzAcesa = Verde (Case "Verde"), não aparece o vbCritical e nem o título. Porém quando eu mudo a Var strLuzAcesa para Marron, que é "Case Else" aí sim aparece o título e o vbCritical. Onde está o erro? Obrigado!

Sub desvioMultiplo( )
Dim strLuzAcesa As String
strLuzAcesa = "Verde"
Select Case strLuzAcesa
Case "Azul"
MsgBox "A luz roxa ou azul está acesa!"
Case "Vermelha"
MsgBox "A luz vermelha ou amarela está acesa!"
Case "Verde"
MsgBox "A luz verde está acesa!"
Case Else
MsgBox "Outra cor de está acesa! " & "A luz acesa é a " & strLuzAcesa, vbCritical, _
"Teste"
End Select
Debug.Print strLuzAcesa
End Sub

riberex00 escreveu: ↑17 Nov 2020 às 20:40 Boa noite pessoal. Mais uma ajuda por favor. Nesse meu procedimento quando eu testo o resultado , por exemplo, strLuzAcesa = Verde (Case "Verde"), não aparece o vbCritical e nem o título. Porém quando eu mudo a Var strLuzAcesa para Marron, que é "Case Else" aí sim aparece o título e o vbCritical. Onde está o erro? Obrigado!

Sub desvioMultiplo( )
Dim strLuzAcesa As String
strLuzAcesa = "Verde"
Select Case strLuzAcesa
Case "Azul"
MsgBox "A luz roxa ou azul está acesa!",vbcritical
Case "Vermelha"
MsgBox "A luz vermelha ou amarela está acesa!",vbcritical
Case "Verde"
MsgBox "A luz verde está acesa!",vbcritical
Case Else
MsgBox "Outra cor de está acesa! " & "A luz acesa é a " & strLuzAcesa, vbCritical, _
"Teste"
End Select
Debug.Print strLuzAcesa
End Sub

Você precisa colocar o vbcritical em todas as condiçoes e você somente colocou essa condição no case Else

Strogonoff escreveu: ↑17 Nov 2020 às 20:44

riberex00 escreveu: ↑17 Nov 2020 às 20:40 Boa noite pessoal. Mais uma ajuda por favor. Nesse meu procedimento quando eu testo o resultado , por exemplo, strLuzAcesa = Verde (Case "Verde"), não aparece o vbCritical e nem o título. Porém quando eu mudo a Var strLuzAcesa para Marron, que é "Case Else" aí sim aparece o título e o vbCritical. Onde está o erro? Obrigado!

Sub desvioMultiplo( )
Dim strLuzAcesa As String
strLuzAcesa = "Verde"
Select Case strLuzAcesa
Case "Azul"
MsgBox "A luz roxa ou azul está acesa!",vbcritical
Case "Vermelha"
MsgBox "A luz vermelha ou amarela está acesa!",vbcritical
Case "Verde"
MsgBox "A luz verde está acesa!",vbcritical
Case Else
MsgBox "Outra cor de está acesa! " & "A luz acesa é a " & strLuzAcesa, vbCritical, _
"Teste"
End Select
Debug.Print strLuzAcesa
End Sub

Você precisa colocar o vbcritical em todas as condiçoes e você somente colocou essa condição no case Else

Segue solução com somente uma MsgBox . dica - em lugar de colocar a cor diretamente no código coloque-a em uma célula, por exemplo em A1, e aí altere no código ~~~> strLuzAcesa = [A1]