textboxta binlik ayıraç

[marlalı1]

arkadaşlar userform üzerinde 1 den 48 e kadar textbox var.textboxtaki rakamları binlik ayıraçlı yapmak istiyorum.nasıl bir formül yapabiliriz.birformül buldum tek tek yapıyor.tek tek hepsine uygulamakmı gerekiyor.

Private Sub TextBox1_Change()
TextBox1 = Format(TextBox1, "###,0")
End Sub

 

[hamitcan]

Class module kullanmalısınız.

 

[İhsan Tank]

Class module kullanmalısınız.

hocam örnek yapabilirmisiniz

 

[hamitcan]

Linki inceleyin.
http://www.excel.web.tr/forumdisplay.php?f=144

 

[marlalı1]

clasıc modulü yapamadm hocam.hangi formülü yazmamız gerekiyor klasic modüle.yukarda yazdığım formülü clasic modüle yazınca olmadı.

 

[marlalı1]

arkadaşlar bu konu hakkında bilgisi olan yokmu.textbox1 den 48 e kadar olan textboxları binlik ayıraçlı yapmak

 

[Husgvarna]

Class modüllü örnek ekte.

 

[hamitcan]

Bende bir tane yaptım.

 

[marlalı1]

sanırım ben problemi yanlış aktardım.yazmış olduğunuz formülleri uyguladım.olmadı.şöyle bir problem var.benim textboxa aldığım rakamlar çalışma kitabındaki başka bir sayfadan geliyor.onun için olmuyor zannedersem.

 

[marlalı1]

textboxta binlik ayraç

dosyayı ekliyorum hocam.bakarmısınız.

 

[hamitcan]

Private Sub CommandButton96_Click()
For i = 1 To 48
    Controls("textbox" & i) = Format(Cells(i + 1, "l"), "#,##0.00")
Next
End Sub

 

[marlalı1]

dosyayı incelermisiniz.arkadaşlar

 

[marlalı1]

tamam oldu hocam çok telekkür ederim

 

[ustaoyuncu]

binlik ayracı

Sitede verilen binlik ayraç kodlarının hepsini kullandım; class modüllerde dahil. Textbox tan sayfaya 3.000.000 değeri gönderildiğinde sayfa sayı olarak almıyor ve sayfadaki diğer işleme dahil etmiyor. 1.000 ve üzerindeki sayılarda son 3 sıfırı sayfaya atmıyor. Nasıl düzeltebilirim?
Dosya ektedir.

 

[İhsan Tank]

Sitede verilen binlik ayraç kodlarının hepsini kullandım; class modüllerde dahil. Textbox tan sayfaya 3.000.000 değeri gönderildiğinde sayfa sayı olarak almıyor ve sayfadaki diğer işleme dahil etmiyor. 1.000 ve üzerindeki sayılarda son 3 sıfırı sayfaya atmıyor. Nasıl düzeltebilirim?
Dosya ektedir.

merhaba
kodunuzu bu şekilde değiştiriniz

Dim txtler() As New Class1
Private Sub UserForm_Initialize()
Dim kontrol As Control, i As Integer
i = 1
For Each kontrol In UserForm1.Controls
  If Left(kontrol.Name, 7) = "TextBox" Then
    ReDim Preserve txtler(i)
    Set txtler(i).txt = kontrol
    i = i + 1
  End If
Next
End Sub
Private Sub CommandButton1_Click()
Range("a1") = Format(TextBox1.Value, "#,##0.00")
Range("a3") = TextBox6.Value
TextBox2.Value = Range("b1")
TextBox3.Value = Range("c1")
TextBox4.Value = Range("b2")
TextBox5.Value = Range("c2")
TextBox7.Value = Range("b4")
TextBox8.Value = Range("c4")
End Sub
Private Sub CommandButton3_Click()
ThisWorkbook.Close
Application.Quit
End Sub

örnek dosya'yı inceleyiniz

 

[ustaoyuncu]

eline sağlık. güzel olmuş

 

[ustaoyuncu]

text7 ve 8 de iskonto oranı girildiğinde yanlış sonuç veriyor.

 

[İhsan Tank]

eline sağlık. güzel olmuş

rica ederim

text7 ve 8 de iskonto oranı girildiğinde yanlış sonuç veriyor.

bu konuda bir fikrim yok çünkü makro zaen dosyanızda var idi ben sadece textbox1'inize format oluşturdum

 

[ustaoyuncu]

Evet. Acaba bu sorunu aşmamda yardımcı olabilecek biri var mı?

 

[İhsan Tank]

Evet. Acaba bu sorunu aşmamda yardımcı olabilecek biri var mı?

merhaba
iskontoyu neye göre hesaplayacaksınız söylerseniz yardımcı olmaya çalışayım