If Combo Box Selection Text Include Specific Character

[keromero]

I want to show a message If combobox selected text includes a specific character such as "!"

Using: If InStr(ComboBox1.Text, "!")

I have already managed it however there is only one issue,

As long as I pick the combo box listed selection message shows up.

I just want the message to be popped up after selection done and list is closed. Not as the list is drop downed already.

Thanks

 

[Skyybot]

Try

Private Sub ComboBox1_AfterUpdate()
MsgBox "Left box", vbOKOnly, "Msg" 'Your code here. Just put this here for you to test.
End Sub

 

[keromero]

For some reason I can't get it work @ AfterUpdate event

 

[keromero]

Actually I got it work @ AfterUpdate event. But this is not what I was looking for.

After update event waits until a next action such as clicking another combo box or entering a text box.

What I need an event simultaneously taking action with the drop down list close.

 

[Skyybot]

Will this work?

Private Sub ComboBox1_Change()
    MsgBox "Message", vbOKOnly, "Change" 'Your code here
End Sub

 

[keromero]

This below code resolved...

Option Explicit

#If VBA7 Then
Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
#Else
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
#End If

Private Sub ComboBox1_Change()
SendKeyAPI VBA.vbKeyReturn
MsgBox ComboBox1.Value
End Sub

Private Sub SendKeyAPI(ByVal VKey As Byte)
Const KEYEVENTF_KEYDOWN = &H0, KEYEVENTF_KEYUP = &H2
Call keybd_event(VKey, 0, KEYEVENTF_KEYDOWN, 0)
Call keybd_event(VKey, 0, KEYEVENTF_KEYUP, 0)
DoEvents
End Sub