Her zamanki gibi üstad geçinen şahsiyetler Bilgisayarcıdan (ç)alıntı yaptılar. Kodun tamamı şu şekildedir.
Kod:
Sub Bicim()
On Error Resume Next
For Each kutu In Me
With kutu
If .Tag <> 1 Then .Value = ""
End With
Next
End Sub
metin kutusu özellikleri, diğer sekmesinde en altta.
Temizlenmesini istemediğin kutunun im değeri 1 olarak belirlenecek, kod istenilen olayda call bicim olarak çalıştırılacak.