1. Esta comunidad utiliza cookies. Si continuas utilizando nuestra comunidad estás aceptando la utilización de nuestras cookies. Más información.
  2. ¡Bienvenid@ a AyudaExcel! El foro más visitado sobre Excel en habla hispana.

    Si esta es tu primera visita, asegúrate de revisar los temas de la sección Utilización y Funcionamiento para familiarizarte con las funciones del foro. Si deseas publicar mensajes, será necesario que te Registres para que puedas dejar respuestas y crear tus propios mensajes, recuerda que es gratuito.

limpiar textbox

Tema publicado en 'Macros y programación VBA' iniciado por djpawngdl, 1 Dic 2009.

  1. djpawngdl

    djpawngdl Usuario

    Reg:
    13 Sep 2009
    Mensajes:
    67
    Me Gusta recibidos:
    0
    Que tal, otra vez solicitando se du valiosa ayuda, tengo un userform que continene aproximadamente 1000 textbox porque esta en varias pestañas, como puedo hacer mediante un command button que todos los textboxes se se limpies si necesidad de meter codigo de uno por uno


    gracias
     
  2. rolano

    rolano Moderador Staff AyudaExcel

    Reg:
    7 Abr 2009
    Mensajes:
    1.071
    Me Gusta recibidos:
    67
    Género:
    Masculino
    Respuesta: limpiar textbox

    Hola djpawngdl:
    Prueba con estos codigos, estoy buscando en el foro pero no lo encuentro alli habia algunos tutos
    Private Sub Cancelar_Click() 'limpia los controles
    'Unload UserForm2
    'UserForm2.Show
    For Each c In Me.Controls
    On Error Resume Next
    c.Value = Empty
    Next
    End Sub

    Private Sub CommandButton1_Click()
    Dim Ctrl As Control
    For Each Ctrl In UserForm1.Controls
    If TypeOf Ctrl Is MSForms.TextBox Then
    Ctrl = Empty
    End If
    Next Ctrl
    End Sub
     
  3. djpawngdl

    djpawngdl Usuario

    Reg:
    13 Sep 2009
    Mensajes:
    67
    Me Gusta recibidos:
    0
    Respuesta: limpiar textbox

    me funciono a la perfeccion, muchas gracias
     
  4. Brel

    Brel Nuevo Usuario

    Reg:
    16 Ene 2009
    Mensajes:
    6
    Me Gusta recibidos:
    0
    Otra propuesta. Saludos.
    Sub Limpiar()
    Dim tb As Object
    For Each tb In Me.Controls
    If TypeOf tb Is MSForms.TextBox Then tb = Empty
    If TypeOf tb Is MSForms.ComboBox Then tb = Empty
    Next tb
    End Sub
     

Compartir esta página