Evento Limpiesa

[JoaoM]

Tengo este evento el cual quisiera aplicarlo en varios eventos de varios formularios

Sub Limpia(nameform As String) 'para TextBox y ComboBox en formulario

'Dim Ctrl As Object

''Aqui la rutina para Ejecucion

'For Each Ctrl In nameform 'Entrada.Controls

'If TypeOf Ctrl Is MSForms.TextBox Then Ctrl = Empty

'If TypeOf Ctrl Is MSForms.ComboBox Then Ctrl = Empty

'Next Ctrl

'MsgBox ("Controles limpios para nuevo uso"), vbInformation, "Limpiesa"

End Sub[/CODE]

Tal como esta no funciona, funciona si si le quito nameform As String y nameform y le dejo Entrada.Controls (Entrada es nombre de uno de los formularios)

Para ello tendria que repetir el mismo codigo con solo cambiarle el nombre de cada formulario lo que aumentaria no solo la cantidad de codigo en cada form, si no que tambien el peso y otros

Lo que pretendo es que este codigo me sirva para tenerlo en un Modulo y con un Call Limpia en cada evento de cada formulario este funcione

Limpiesa.rar

[Antoni]

En un módulo:

Sub Limpia(Formulario As UserForm)

Dim Ctrl As Object



For Each Ctrl In Formulario.Controls

   If TypeOf Ctrl Is MSForms.TextBox Then Ctrl = Empty

   If TypeOf Ctrl Is MSForms.ComboBox Then Ctrl = Empty

Next Ctrl



MsgBox ("Controles limpios para nuevo uso"), vbInformation, "Limpieza"



End Sub



[/CODE]

En el formulario:

[CODE]Private Sub Limpiar_Click()

Limpia Me

End Sub[/CODE]

[JoaoM]

Gracias MacroAntonio, fenomenal.

Una sola linea y todo lo que hace

Un dicho que dice; zapatero a su zapato

Se puede cerrar el tema