Textboxlarda içeriği temizleme

[mehmet25]

Merhaba değerli arkadaşlar iyi günler diliyorum.Ekte göndermiş olduğum çalışmada userform üzerinde bulunan textboxlardan excel hücrelerine veri aktarılıyor.(200 Textbox var sadece şu an sadece ilk 4 text box b,c,d,e sutünlarının 16.satırdaki hücrelerine aktarılıyor.)Şöyle bir sorun var userform üzerindeki temizle butonuna tıkladığımda textboxları tek tek siliyor.Ben bu temizle kodunun yine bu siteden tümünü temizliyor diye bildiğim için kullandım.Acaba sorun nerde?Temizle butonuna tıkladığımda nasıl bütün texetboxların içeriği silinir?Umarım anlatabildim.Teşşekürler ,saygılar.

 

[hamitcan]

Ben denedim doğru çalışıyor kodlarınız.

 

[Mahmut Bayram]

Bende de bir aksilik var 1-2 textboxta kalıyor yazılar.
Halbu ki şu kodu da denedim.

Dim ctrl As Control
    For Each ctrl In UserForm3.Controls
        If TypeName(ctrl) = "TextBox" Then
            ctrl.Text = ""
        End If
    Next ctrl

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Bazı TextBoxlarınızın ControlSource kısımlarında hücre başvuruları mevcut bunları kaldırmanız gerekiyor.

Private Sub TEMİZLE_Click()
    For x = 5 To 204
    If Me.Controls("TextBox" & x) <> "" Then Me.Controls("TextBox" & x) = ""
    Next
    MsgBox "YEN&#304; KAYIT &#304;&#199;&#304;N VER&#304;LER S&#304;L&#304;NM&#304;&#350;T&#304;R.", vbInformation
End Sub

 

[veyselemre]

Private Sub TEMİZLE_Click()
    Application.Calculation = xlCalculationManual
    For x = 5 To 204
    Controls("TextBox" & x) = ""
    Next
    MsgBox "YENİ KAYIT İÇİN VERİLER SİLİNMİŞTİR.", vbInformation
    Application.Calculation = xlCalculationAutomatic
End Sub

Olarak deneyin.
Sorunun kaynağı textboxlara controlsource kullanarak veri almanızdan kaynaklanıyor. Bu şekilde aldığınız zaman sürekli olarak sayfayı kontrol ediyor. Bir textbox ta değişiklik yaptığınız zaman sayfadaki değişiklik diğer işlemler yapılmadan textbox a aktarılıyor. Bu şekilde çok ağır çalışan bir sistem olur.

Birde saat benim hiç hoşuma gitmeyen bir şey söyleyeyim. Saat uygulamaları ve api uygulamaları, hiç gereği yokken çalışmanıza ağırlaştırıyor ve bilgisayarınıza extradan faydası olmayan işlemler yaptırıyorsunuz. Bu bence gereksiz.

 

[veyselemre]

Yada direkt olarak sayfadaki verileri silerseniz, textboxlarda boşalmış olur.

Private Sub TEMİZLE_Click()
    Range("B16:E16").ClearContents
    MsgBox "YENİ KAYIT İÇİN VERİLER SİLİNMİŞTİR.", vbInformation
End Sub

 

[mehmet25]

Değerli hocalarım hepinize ayrı ayrı şükranlarımı sunarım .Önerilerinizi uyguladım istediğim oluyor.Ben bunlarıda bilerek yapmadım doğrusu.Genelde sayın:Seyit Bey ve Cost Control Hocalarımın önerileri ile yapabildim kendilerine ayrıca teşekkür ederim.Bu arada bir sorum daha olacak.Ben textboxlara veri girdiğimde userform açılıp kapandığı zaman verilerin yine göstermesini istiyorum.O yüzden ControlSource 'e yer belirttim.Şimdi dediğiniz gibi controlsource de adresleri sildim veri aktarıyor ama userform açılıp kapandığında veriler kayboluyor.Yani temizle butonu pek az işe yarıyor.Beni,m amacım bilgi sabit kalsın textboxta hücrelere aktarılsın ben istediğim zaman butonla hepsini silebileyim.Böyle bir şey mümkünse dosyayı tekrar önerilerinizi uygulayarak gönderiyorum.Sayın VeyselEmre Beyede önerilerinden dolayı tekrar teşekkür eder saygılar sunarım.

 

[Seyit Tiken]

Fazla TextBoxlarla çalışmak, sorunların çıkma olasılığı her zaman yüksektir. Yapılan program için ne önemli ise, onu uyarlamak lazım. Vasıtalarda öyle. Hızlı ve esnek bir program isteniyorsa, ona göre yöntem ve tasarım geliştirmek gerek diye düşünüyorum. Belki bir esin kaynağı olur düşüncesiyle, hücreler kullanılarak basit bir UserForm benzetilmesi uygulaması yaptım. Bir inceleyin.

 

[Seyit Tiken]

Farklı bir yöntem. Hücrelerdeki veriler kalacak ama TextBoxta veri gözükmeyecek. Aşağıdaki kodlar TextBoxtaki veriyi görünür ve görünmez kılıyor.

Private Sub CommandButton1_Click()
For a = 1 To 3
Controls("TextBox" & a).ForeColor = &HFFFFFF
Next
End Sub

Private Sub CommandButton2_Click()
For a = 1 To 3
Controls("TextBox" & a).ForeColor = &H80000012
Next
End Sub

 

[mehmet25]

TeŞekkÜr Ederİm

Sn:Seyit Hocam çok teşekkür ederim sağolun.Size ve diğer hocalarıma her zaman minnet borçluyum.Benim fazla bir bilgim yok.Eğer ara sıra gereksiz bilgi talebinde bulunuyorsam kusuruma bakmayın bilgisizliğimden kaynaklanıyor.İyi çalışmalar.