Toptan Temizlik

[Derya]

:yardim: Merhabalar;
Userform um üzerinde 30 adet textbox var
bunların adını txt1,txt2......olarak değiştirdim.
Benim istediğim bunlara ayrı ayrı kod yazmadan command button aracılıgı ile temizlemek istiyorum.
Yardımcı olursanız sevinirim.

 

[Haluk]

"Silme" işini yine UserForm üzerindeki CommandButton2 ile yapmak istediğini düşünürsek, aşağıdakileri UserForm modulüne yerleştir;

Private Sub CommandButton2_Click()
    Dim MyTxtBox As Control
        For Each MyTxtBox In Me.Controls
            If TypeName(MyTxtBox) = "TextBox" Then MyTxtBox = Empty
        Next
End Sub

 

[Derya]

Merhabalar;
Sayın Raider ilginiz için teşekkürler
Verdiğinin kodu denedim fakat txt1 i sildikten sonra "Tür uyumsuz"hatası veriyor.Hata veren bölümü buraya aktarıyorum.

Private Sub txt1_Change()
If txt2 = "" Then
txt2 = 0
End If
txt2 = txt19.Value * txt1.Value 'Hata veren satır
Me.txt2.Value = format(Me.txt2.Value, "###,###")
lbl11 = txt2.Value
Me.lbl11 = format(Me.lbl11, "######")
End Sub[/code]
Teşekkürler.

 

[Haluk]

Benim önerdiğim kodda bir yanlışlık olmaması gerekir ama senin diğer kodlarla bir uyumsuzluk oluşması sonucunda hata alabilirsin belki.

Bahsettiğin kodda;


Private Sub txt1_Change()
on error resume next
....
...
..

şeklinde bir dene istersen.

 

[Derya]

Tekrar teşekkürler sayın Raider
Ã?nerdiğiniz şekilde hatasız çalıştı fakat
şimdi de şöyle bir soru oluştu bende
bu textbox lardan txt1 ile txt16 arasını silmek istesem kod nasıl olurdu :?:
kodları değiştirerek denemeye çalıştım fakat beceremedim.
Yardımcı olursanız sevinirim.

 

[uzaylı]

For i=1 To 16
   Controls("txt" & i) = Empty
Next i

 

[Derya]

Sorun yok . Teşekkürler. :hihoho: