bu formülü textboxlara uyarlamak

[odin]

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(CCur(TextBox1.Value), "#,###")
End Sub

merhaba arkadaşlar;

bu formülü 50 tane textbox var hepsini tektek yazmak mı gerek yok genel olarak 50 sine birden uyarlana bilirmi.

saygılar.

 

[Levent Menteşoğlu]

Class module ile uyarlanabilir. Bunun için dosyanızı eklermisiniz.

 

[odin]

usta

birde userform bakarsan sevinirim.

burda dosyayı açıp kayıt yaptığımdasorun yok kapatıp tekrar açtığımda göster diyorum fakat hücredeki sayyı siliyor.

saygılar

 

[Levent Menteşoğlu]

Aşağıdaki linki incelemenizi öneririm.

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