.
TextBox1 = Empty
Esta forma simplificada no es otra cosa que realizar un bucle para determinar todos los texbox del formulario y limpiarlos, si se observa la codificación hay un bucle que realiza el procedimiento para todos los objetos del userform o formulario, posteriormente determina si el control es un textbox lo limpia o deja en blanco.
Descarga el ejemplo, al iniciar verás un botón, el cual presionándolo se ejecuta una macro que muestra un formulario el cual cuenta con dos combobox y varios textbox, seleccionando un items del primer combobox el segundo se carga con distintos items dependiendo de lo que es elegido en el primer combobox, seleccionando un items en el segundo combobox, busca en la base de datos y cuando encuentra el dato requerido se llenan los textbox con dato de la base datos, ahora en el botón limpiar texbox, si se presiona se podrá observar como se limpian todos los textbox.
Presionando Alt + F11 se inicia el editor de VBA, desde ahí podrás ver la codificación de todo el formulario, el mismo no tiene ningún tipo de bloqueo, en alguna parte de la codificación verás que que usa el código TextBox1 = Empty para limpiar los textbox, que al ser seis se escribe uno por cada textbox y en el código del botón limpiar macro se utiliza el bucle que se presenta en este ejemplo; si bien con las dos formas se obtiene el mismo resultado, la codificación es más simple eficiente en el último caso, logrando limpiar todos los texbox de un formulario.
Suscribe a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como por ejemplo formulario que crea un listado de todas las hojas para poder luego seleccionarlas, buscar en listbox mientras escribes en textbox, ordenar hojas libro excel por su nombre, conectar Excel con Access y muchos ejemplos más.
if (payload.eventType == ‘subscribe’) {
// Add code to handle subscribe event.
} else if (payload.eventType == ‘unsubscribe’) {
// Add code to handle unsubscribe event.
}
if (window.console) { // for debugging only
window.console.log(‘YT event: ‘, payload);
}
}
Código que se inserta en un botón
Private Sub CommandButton4_Click()
Dim t As Object
For Each t In UserForm2.Controls
If TypeName(t) = «TextBox» Then
t.Value = «»
End If
Next
End Sub
if (payload.eventType == ‘subscribe’) {
// Add code to handle subscribe event.
} else if (payload.eventType == ‘unsubscribe’) {
// Add code to handle unsubscribe event.
}
if (window.console) { // for debugging only
window.console.log(‘YT event: ‘, payload);
}
}
Dim t As Object
For Each t In UserForm2.Controls
If TypeName(t) = «TextBox» Then
t.Value = «»
End If
Next
End Sub
.
If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.
Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends