userform'daki textbox'ları temizleme

[mtbi00]

iyi günler,

userform üzerinde bulunan textboxları temizlemek için bir komut varmıdır. yani örneğin bir userformda 15 tane textbox var ve bunların hepsine ayrı ayrı isim verilmiş. girdileri temizlemek için
textbox1 = ""
tarih = ""
adi = ""
.....

yazmak yerine hepsini birden boş olarak atayabilecek bir komut varmıdır. ilginiz için şimdiden teşekkürler.

 

[Orion1]

Dim txt As Control
For Each txt In Me.Controls
    If TypeName(txt) = "TextBox" Then txt.Value = ""
Next

 

[mtbi00]

evren hocam çok teşekkür ederim. büyük bir dertten kurtardınız.

 

[Orion1]

evren hocam çok teşekkür ederim. büyük bir dertten kurtardınız.

Rica ederim.
İyi çalışmalar.

 

[HAKANP]

Excel sayfasındaki textbox ları nasıl temizleriz. Çok var da

 

[Orion1]

Excel sayfasındaki textbox ları nasıl temizleriz. Çok var da

say = ActiveSheet.Shapes.Count
On Error Resume Next
For i = 1 To say
    If TypeName(ActiveSheet.Shapes(i).OLEFormat.Object.Object) = "TextBox" Then
        ActiveSheet.Shapes(i).OLEFormat.Object.Object = ""
    End If
Next

 

[HAKANP]

say = ActiveSheet.Shapes.Count
On Error Resume Next
For i = 1 To say
    If TypeName(ActiveSheet.Shapes(i).OLEFormat.Object.Object) = "TextBox" Then
        ActiveSheet.Shapes(i).OLEFormat.Object.Object = ""
    End If
Next

Boş bir excel sayfasına 3 tane yeni textbox ekldim makroyu çalıştırdım ama silinmedi

 

[Orion1]

Kodlar sorunsuz çalışıyor.
İşte örnek dosya.

 

[Orion1]

............

 

[HAKANP]

sanırım soru yanlış anlaşılmış. Ben Textbox ların içini değil kendilerini temizlemek istiyorum. Excel sayfasında 1000 tane textbox var. Ben hepsini temizlemek istiyorum

 

[Orion1]

sanırım soru yanlış anlaşılmış. Ben Textbox ların içini değil kendilerini temizlemek istiyorum. Excel sayfasında 1000 tane textbox var. Ben hepsini temizlemek istiyorum

Yani textboxları silmek,kaldırmak istiyorsunuz,öylemi?

 

[Orion1]

Aşağıdaki kodlar aktif sayfadaki tüm textboxları siler.Kladırıı.

Sub txt_sil()
say = ActiveSheet.Shapes.Count
For i = say To 1 Step -1
    If Left(ActiveSheet.Shapes(i).Name, 7) = "TextBox" Then
       ActiveSheet.Shapes(i).Select
       Selection.Delete
    End If
Next
End Sub

 

[HAKANP]

Cevap yok mu

 

[Orion1]

Cevap yok mu

Cevap var.
12nci mesajda verdim.

 

[HAKANP]

Çok zor mu acaba ?

 

[HAKANP]

Cok zor muydu yaw

 

[selimcengizince]

Excel sayfasındaki TextBoxları temizle, textbox sil, textbox temizle,

say = ActiveSheet.Shapes.Count
On Error Resume Next
For i = 1 To say
    If TypeName(ActiveSheet.Shapes(i).OLEFormat.Object.Object) = "TextBox" Then
        ActiveSheet.Shapes(i).OLEFormat.Object.Object = ""
    End If
Next

Teşekkürler. 2 saattir arıyorum, bir çok konuyu inceledim..Userformdaki Textboxları temizlemek için kod çok..Excel sayfasındaki textboxlar için bir tek bunu bulabildim..Eline sağlık..

 

[Murat OSMA]

Bu da alternatif olsun;

Sub Sayfadaki_TextBoxların_İçini_Temizle()
    Dim Text As OLEObject
    For Each Text In ActiveSheet.OLEObjects
        If TypeName(Text.Object) = "TextBox" Then
            Text.Object.Value = Empty
        End If
    Next
    Set Text = Nothing
End Sub

 

[Usyk]

Bu konunun tam tersi de mümkün o zaman. Şarta bağlı textbox da ekleyebiliriz yani.