Textbox Sayı Formatı

[1903bjk]

Üstadlar Merhaba

İyi Bayramlar

Ekteki dosyada bulunan userform2 sayı formatını bir türlü ayarlayamadım.

Sayıların userform2 textbox1-2- ve 3 te ###.###,00 şeklinde çıkmasını istiyorum.Nasıl yapabilirim ?

Yardımlarınızı rica ederim.

Saygılarımla,

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki örnek kodu kullanabilirsiniz.

UserForm2.TextBox1.Value = Format(Round(Sheets("sheet1").Range("g2").Value, 2), "#,##0.00")

 

[1903bjk]

Sn Korhan

İlginize çok teşekkürler

Fakat userform2 de hala 18666.67 şeklinde rakam çıkıyor.Regional options larda mı bir sıkıntı olabilir acaba ?

Onu da denedim gerçi ama....

 

[Korhan Ayhan]

Selamlar,

Kullanmış olduğunuz kodu aşağıdaki şekilde düzenledim ve olumlu sonuç aldım.

Bu kod UserForm1 nesnesindeki HESAPLA isimli butona ait koddur.

Private Sub CommandButton1_Click()
    Sheets("sheet1").Range("a2").Value = TextBox1.Value
    Sheets("sheet1").Range("b2").Value = TextBox2.Value
    Sheets("sheet1").Range("c2").Value = TextBox3.Value
    Sheets("sheet1").Range("d2").Value = TextBox4.Value
    If CheckBox1 = True Then
    UserForm2.TextBox2.Enabled = True
    UserForm2.TextBox2.Value = Format(Round(Sheets("sheet1").Range("h2").Value, 2), "#,##0.00")
    
    Else
    UserForm2.TextBox2.Value = " "
    UserForm2.TextBox2.Enabled = False
    End If
    If Sheets("sheet1").Range("g2").Value = "0" Then
    
    UserForm2.TextBox1.Text = "KIDEM TAZMİNATI YOK"
    UserForm2.TextBox1.Font.Size = "9"
    Else
    UserForm2.TextBox1.Value = Format(Round(Sheets("sheet1").Range("g2").Value, 2), "#,##0.00")
    
    End If
    UserForm2.TextBox3.Value = Format(Round(Sheets("sheet1").Range("ı2").Value, 2), "#,##0.00")
    UserForm2.TextBox4.Value = Sheets("sheet1").Range("F2").Value
    UserForm2.TextBox5.Value = Sheets("sheet1").Range("E2").Value
    
    Unload Me
    UserForm2.Show
End Sub

 

[1903bjk]

Sn Korhan

Çok teşekküer ederim elinize emeğinize sağlık

Bu vesile ile bayramınızı tebrik ederim

Saygılarımla