Evento change en un combobox

[sariuski11]

Hola,

Estoy haciendo una macro y tengo la siguiente duda:

Como puedo hacer que si hago un cambio de opcion en un combobox (Seleccionando) me ejecute una funcion. Esta funcion asi mismo solo se ejecutara al cerra el Excel.

Para otras macros lo que hice fue que me detectara si habia algun cambio en la hoja de excel y si eso al cerrar que me llamara a la funcion. Ahora necesito lo mismo pero para un combobox porque con esto no me hace nada.

Esto es lo que hice para que me detectara los cambios en las hojas y si era asi que al cerrar me hicera la funcion ComandoValidar.



Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If cambiado1 = True Then Exit Sub

cambiado1 = True

End Sub






Private Sub Workbook_BeforeClose(Cancel As Boolean)

If Autoejecutar = True Then

Call ComandoValidar

Else

ActiveWorkbook.Saved = True

End If

End Sub





Public cambiado1 As Boolean

Public Function Autoejecutar() As Boolean


If cambiado1 = True Then

Autoejecutar = True

Else

Autoejecutar = False

End If

End Function

[yenay]

pruebaa añadir este código, a ver que tal:

Private Sub Workbook_Open()
cambiado1 = False
End Sub

[3pies]

Puedes utilizar el evento click:

Código:

Private Sub ComboBox1_Click()
'Mostramos un aviso
MsgBox ("Has cliqueado sobre: " & ComboBox1.List(ComboBox1.ListIndex))
End Sub 

Salu2

[sariuski11]

Gracias pero no me funciona tampoco de esa forma.

Solo quiero que me ejecute la accion cuando cierro Excel y cuando he cambiado valores porque este archivo luego se carga en un programa y si hay un error al abrir o cerrar el programa entra en un bucle infinito y falla el archivo de excel.

Necesito que me reconozca ademas de los cambios al meter o editar los valores en mi tabla de excel que me reconozca si hago algun cambio de seleccion en el combox.
Espero que alguien pueda ayudarme.

[sariuski11]

En el combobox tengo el siguiente codigo.


Private Sub ComboBox4_Change()


Application.ScreenUpdating = False

If Range("a1").Value = "[Revs.]" Then
Range("M15:M200").Select
Selection.NumberFormat = "# ##0.00"
Range("L15:L200").Select
Selection.NumberFormat = "# ### ###"
Else
Range("M15:M200").Select
Selection.NumberFormat = "# ### ###"
Range("L15:L200").Select
Selection.NumberFormat = "# ##0.00"
End If

Application.ScreenUpdating = False
Range("L13").Select



End Sub

[3pies]

Creo que era esto lo que buscabas...

Descárgate este ejemplo. Si te fijas, verás que hay código en un módulo, y en la Hoja1.

Salu2

[sariuski11]

Muchas gracias. No estoy registrado para hacer la descarga pero lo mirare. Con lo que sea ya te contare porque tengo que salir y no se si me dara tiempo hoy. Sino mañana a la mañana. Esperemos que sea de ayuda.

Gracias.

[sariuski11]

Muchas gracias!!!

Creo que ahora ya se como hacerlo. Era mas facil de lo que pensaba.

[3pies]

OK. Me alegro que te haya servido. Solo tenías que contar con una varibale pública (para poder acceder a ella en cualquier momento, y un Auto_close (aunque puedes usar un evento BeforeClose, si quieres).