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.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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
[u][b]Para borrar los textbox de un formulario[/b][/u]
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.