Macro para activar label al seleccionar item en combobox

Podrían decirme como hago para que cuando seleccione un item en un combobox se active un label con mensaje automáticamente. El mensaje si aparece en el label del userform pero hasta que presiono un botón que dice Aceptar y no es así como quiero, sino el mensaje debe aparecer justo después de seleccionar el dato del combobox.

Tengo esta macro

Lo que esta en negrita es donde debe suceder lo que necesito

Private Sub CommandButton1_Click()
If ComboBox1.Value = "Guardar y Salir" Then
'MsgBox "Guardar y Salir"
ThisWorkbook.Save
Application.Quit
End If
If ComboBox1.Value = "Volver" Then
TextBox1 = "Regresa al archivo"
Label5.Caption = "Regresa al Archivo"
'UserForm2.Hide
End If
ComboBox1.Value = ""
ComboBox1.SetFocus
End Sub

1 Respuesta

Respuesta
1
Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex
Case 0
ThisWorkbook.Save
Application.Quit
Case 1
TextBox1 = "Regresa al archivo"
Label5.Caption = "Regresa al Archivo"
End Select
End Sub

Me comentas y valoras la respueta para finalizar saludos!

no sale nada

Como adaptaría tu código al código que coloque arriba

Ponle en el evento change del control combobox1 como te muestro

No funcionará con el commandbutton sino al seleccionar un item del combobox

Recuerda valorar saludos!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas