Colocacion de codigo en un Modulo Excel
Hola Dam
Te participo que tengo 5 botones en los cuales los eventos tienen un Call Buscar_Change.
En cada evento que tenga que ver con el evento Buscar_Change.
Para no tener que agregar a cada evento (5 botones) esto
pasar = 1 Buscar_Change pasar = 0
Estaba tratando de en un Modulo normal incluir esto
Sub BuscaCambio() pasar = 1 Buscar_Change pasar = 0 End Sub
y llamarlo desde cada evento con Call BuscaCambio pero me manda este mensage
Error de cpilacion. No se ha definido sub o funcion
Me apunta en azul a linea Buscar_Change y en amarillo en Sub BuscaCambio.
Tambien coloque en el encabezado del modulo Dim pasar pero es igual, mi pregunta;
¿Que tengo que hacer? ¿que tengo que agregar sea en el modulo sea en el Call para no tener que usar 5 veces lo mismo en cada evento?.
Gracias ya de un prencipio
1 Respuesta
Tienes que HACER varios cambios.
La macro en el módulo debe quedar así, tienes que indicar a qué objeto pertenece el evento y la variable. En este caso pertenecen al formulario "BuscaClientes"
Sub BuscaCambio() BuscaClientes.pasar = 1 BuscaClientes.buscar_Change BuscaClientes.pasar = 0 End Sub
En el formulario la variable está como:
DIM pasar
Tienes que hacerla pública
PUBLIC pasar
El evento Buscar_Cange, lo tienes como privado, hay que dejarlo como procedimiento normal
Tienes esto:
Private Sub buscar_Change
Hay que ponerlo así
Sub buscar_Change
Ya lo probé y si funciona.
