Borrar todos los textbox de una Hoja/Formulario

[Antoni]

Hola:

Para no tener que ir borrando los textbox de uno en uno os dejos estas dos macros:

Para borrar los textbox de una hoja

Sub BorrarTextBoxHoja()

  For Each Objeto In ActiveSheet.OLEObjects

     If Objeto.Name Like "*TextBox*" Then

        Objeto.Object.Value = ""

     End If

  Next

End Sub[/CODE]

[u][b]Para borrar los textbox de un formulario[/b][/u]

[CODE]Sub BorrarTextBoxForm()
For Each Control In Controls
If Control.Name Like "*TextBox*" Then
Control.Value = ""
End If
Next
End Sub


[/CODE]

Como veis, el aburrimiento no conoce límites.

Saludos.

[logroastur]

Buenas Macro con permiso te realizo una modificación y comentario pues tal como esta la macro no operaria si los nombres de los Textbox se modificaron, por lo que yo suelo utilizar la comprobación de los controles sobre el tipo de contenedor y no sobre su nombre por lo que quedarían de esta forma

Sub BorrarTextBoxHoja()
Dim objeto As Object
For Each objeto In ActiveSheet.OLEObjects
     If TypeName(objeto.Object) = "TextBox" Then objeto.Object.Value = ""
  Next
End Sub

Sub BorrarTextBoxForm()
Dim Control As Object
    For Each Control In Controls
        If TypeName(Control) = "TextBox" Then Control.Value = ""
    Next
End Sub

un saludo

[Antoni]

Gracias Miguel:

Me atasqué con Objeto.Type y con Objeto.Object.Type, sin llegar a ver lo de TypeName(Objeto.Object).

Un saludo cordial.

[juliocesar_seapf]

los dos grande se toparon... esto es para verlo en primera fila...

un saludo a ambos.....

[JINGO]

muchas gracias, he estado muy entretenido modificando los codigos de mi proyecto en base a esta seccion del foro, esto era una de las cosas que me faltaba, ya que estaba utilizando el codigo de la sgte manera (textbox1 = ""), con este aporte simplifique la rutina para unos 32 textbox.

saludos desde Chile

Fernando