Edición de código para limpiar TextBox
Tengo un código que me cuenta líneas de un ListBox, del cual quise hacer lo propio para usar limpiando TextBox (con nuevo nombre) de varios formularios, el cual no me sale, (no doy pié con bola)
Public Sub Limpiar(ByVal miform As Form) ‘Recorremos todos los controles TextBox del formulario que enviamos For Each control As Control In miform.Controls ‘Filtramos solo aquellos de tipo TextBox If TypeOf control Is TextBox Then control.Text = “” End If Next End Sub
Puede alguien editarmelo para poder usarlo desde un Módulo y en los formularios llamarlo con Call Limpiar(Me).
(Me) se refiere al formulario que esta en ejecución
2 respuestas
Respuesta de Dante Amor
1
Desde un botón de tu userform
Private Sub CommandButton1_Click() 'limpiar Call Limpiar(Me) End Sub
En un módulo
Sub Limpiar(miform) 'Recorremos todos los controles TextBox del formulario que enviamos For Each wControl In miform.Controls 'Filtramos solo aquellos de tipo TextBox If TypeOf wControl Is MSForms.TextBox Then wControl.Text = "" End If Next End Sub
.
sal u dos
.
Respuesta de Programar Excel
1
Quizás te aporte algo más, pero ya está todo dicho en la excelente respuesta