textbox formatı

[nickelaj]

Merhaba,

Userform içinde textbox formatı için 40 kutu var ve hepsinin de ytl formatında olmasını istiyorum. bunu aşağıdaki gibi kod kalabalığı yerine farklı bir yoldan yapabilir miyim ? şimdiden teşekkür ederim.



Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3 = Format(TextBox3, "###,###.00" & " YTL")
End Sub
Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox5 = Format(TextBox5, "###,###.00" & " YTL")
End Sub
Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox7 = Format(TextBox7, "###,###.00" & " YTL")
End Sub

.
.
.
.
.

Aynı şekilde ; bu aşağıdaki kodlardan da 40 satır için tek tek yazıyorum. Bununla da ilgili bir kolay yol varsa sevinirim.

Private Sub TextBox2_Change()
Sheets("giriş").Range("b5").Value = TextBox2.Value
End Sub
Private Sub TextBox3_Change()
Sheets("giriş").Range("c5").Value = TextBox3.Value
End Sub

 

[AS3434]

Tam olarak bilmiyorum ama, aşağıdaki kodları denermisiniz.

Private Sub CommandButton3_Click()
Dim txt As Integer
On Error Resume Next
For txt = 1 To 40
Me.Controls("textbox" & txt).Value = Format("textbox" & txt, "###,###.00" & " YTL")
Next txt
End Sub

 

[nickelaj]

teşekkür ederim ama maalesef, bırakın formatlamayı direk kutular içine
textbox1,textbox2,textbox3....... gibi bilgiler girdi. format yerine içerikleri değişti

yine de sağolun

 

[AS3434]

Tabii ki haklısınız.

Me.Controls("textbox" & txt).[B][COLOR=blue]Value[/COLOR][/B] = Format("textbox" & txt, "###,###.00" & " YTL")

TextBox lara değer atamışız.

 

[AS3434]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/showthread.php?t=15282&highlight=Class+Module+

 

[nickelaj]

tekrar çok teşekkür ederim,
sanırım bu linkteki bilgileri kendime uyarlayabilirim

http://www.excel.web.tr/showthread.php?t=32662

iyi çalışmalar

not : siz zaten yeni link vermişsiniz bile onu görmemiştim