format sorunu

[aydın3838]

selamlar

benim textboxlarda ciddi bir format sorunum var çözemedim
örnek verecek olursak şöyle

örnek verirsek şöyle

textboxa 120 yazdım aslında bu rakam 1,20 olması lazım

1,20 çarpı 6 dendiğinde 7,20 sonuç verecek

7,20 çarpı 12,5 tl dendiğinde ise 90,00 tl olması gerekiyor

bunu nasıl sağlarım

bu anlattıklarımı sayfada yapıyorum ama userforma olmadı

sayfada kullandığım biçim ise bu 0","00 m.tül

0","00 tl

 

[janveljan]

Üç adet Textbox olan bir formda aşağıdaki kodları bir deneyin.

Private Sub TextBox1_Change()
TextBox2 = FormatNumber(CDbl(TextBox1) / 100 * 6, -1)
TextBox3 = FormatNumber(CDbl(TextBox2) * 12.5, -1)
End Sub

 

[aydın3838]

sayın janveljan

ilginize teşekkürler

'LİSTBOXTA TOPLAMA
ListBox1.RowSource = "MERMERCİ!A4:K" & Sheets("MERMERCİ").Cells(65536, "A").End(xlUp).Row
TextBox9.Text = Format(WorksheetFunction.Sum(Sheets("MERMERCİ").Range("J4:J" & _
Sheets("MERMERCİ").Cells(65536, "B").End(xlUp).Row)), "#,##")
bu kodda kullanmam gerekiyor

 

[janveljan]

TextBox9.Text = FormatNumber(WorksheetFunction.Sum(Sheets("MERMERCİ").Ra nge("J4:J" & _
Sheets("MERMERCİ").Cells(65536, "B").End(xlUp).Row)), -1)

şeklinde deneyin.