textbox verilerini boşaltma butonu

[zulfuernek]

http://dosya.co/44mc7bld3xpi/KUPÜR_HESAPLA.xltm.html


1) ekteki dosyada temizle butonuna tıkladığım zaman 1 den 10 a kadar olan textboxların içerisindeki verileri temizlesin

2) hangi textboxa çift tıklarsam sadece o textboxun içerisindeki veriyi silsin


textboxlara ait formüllerin başında Val yazınca işlemleri yapabiliyorum ancak val yazınca bu defa anlık olarak binlik ayraçlarını yapmıyor. bu yüzden val komutunu sildim.

 

[muygun]

Merhaba;

CommandButton1 (temizlemek için) butonu için;

Private Sub CommandButton1_Click()
For i = 1 To 10
Controls("Textbox" & i) = ""
Next i
End Sub

Çift tıklayınca işlem yapması için (Her Textbox için ayrı ayrı düzenleyin)

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Controls("Textbox1") = ""
Controls("Label18") = ""
End Sub

(sorunuzun son paragrafını "anlık binlik ayraç" meselesini anlamadım.)
İyi çalışmalar.

 

[zulfuernek]

Private Sub TextBox1_Change()
Label18.Caption = (TextBox1.Text) * Val(Label1.Caption)
Label18 = Format(Label18, "#,#")
TextBox1 = Format(TextBox1, "#,#")
End Sub


hocam yukarıdaki kırmızı alanda hata veriyor.

 

[muygun]

Tüm
Private Sub TextBox1_Change() lerden sonra

on error resume next
yazın

 

[zulfuernek]

uygun hocam emeğine sağlık işe yaradı. teşekkür ederim