Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Setar ComboBox ?
 
Notifications
Clear all

Setar ComboBox ?

 
2024 - VBA & Macros
Post Recente por rodrigod 10 anos atrás
4 Posts
3 Usuários
0 Reactions
973 Visualizações
RSS
 rodrigod
(@rodrigod)
Posts: 35
Eminent Member
Topic starter
 

Bom dia,

Tenho um ComboBox com duas opções, "Option A" e "Option B". Gostaria que quando o usuário selecionasse a "Option B", minha macro Exibisse uma mensagem e depois disto o ComboBox voltasse a exibir "Option A" como selecionada e rodasse o comando para esse case.

Fazer rodar o código para Option A eu consigo, mas não estou conseguindo fazer com que o Valor na caixa do ComboBox mude para "Option A".

Com a planilha acredito que fique mais claro o que quero fazer.

Acredito que seja algo Muito simples, mas não estou conseguindo! :/

Poderiam me ajudar?

 
Postado : 27/01/2015 8:22 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Só faltou incluir essa linha:

ComboBox1.Value = "Option A"

Assim:
Private Sub ComboBox1_Change()
Select Case Sheet1.ComboBox1.Value
Case "Option A"
Range("A5").Value = 10
Case "Option B"
MsgBox "You can't choose this yet!"
ComboBox1.Value = "Option A"
End Select
End Sub

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 27/01/2015 8:28 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Regras do forum:

• Upload
Devido a ultrapassagem da marca de 1,5Gb de armazenamento de arquivos na hospedagem do Planilhando, limitaremos o tamanho de cada arquivo para 2Mb sendo obrigatório o uso dos formatos .zip - .rar - .ice visto a gratuidade e não geração de recursos para bancar o site.

Por favor leia as regras (link na minha assinatura), e passe a compactar todos os seus anexos.

Obrigado,

Fernando

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 27/01/2015 8:47 am
 rodrigod
(@rodrigod)
Posts: 35
Eminent Member
Topic starter
 

Eu estava tentando antes colocando Set ComboBox1.Value = "Option A" hahaha

Muito obrigado Gilmar!

E Fernando, desculpe, passarei a compactar os arquivos daqui pra frente! Obrigado.

 
Postado : 27/01/2015 9:09 am
Forum Jump:
  Tópico Anterior
Próximo Tópico