ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[seheryıldız]

Arkadaşlar Merhaba,
Userformdaki Textbox nesnesine sayfadaki para miktarını yazdırdım fakat sonuç 1 basamak fazla oluyor
yani sayfadaki değer 9.365,5674 TL ise Userformda format kullanmadan evvel görünen sonuç şu şekilde 9365,5674 fakat format kullandığımda karşıma çıkan değer aynen şu şekilde oluyor . 93.655.674.00 TL


Aşağıdaki tüm formatları tek tek denedim sonuç hep aynı

Kod: Tümünü seç

UserForm3.TextBox6 = Sayfa7.Cells(ActiveCell.Row, 7)
UserForm3.TextBox6.Value = Format(UserForm3.TextBox6.Value, "#,##0.00") & " TL."

Kod: Tümünü seç

UserForm3.TextBox6.Value = FormatCurrency(UserForm3.TextBox6.Value, 2)& " TL."

Kod: Tümünü seç

UserForm3.TextBox6.Value = Format(UserForm3.TextBox6.Value, "Currency")& "TL."

Kod: Tümünü seç

UserForm3.TextBox6.Value = FormatNumber(UserForm3.TextBox6.Value, 2)&"TL."

[Enes Recep BAĞ]

Kod: Tümünü seç

TextBox1.Value = FormatCurrency(TextBox1.Value, 2)

[seheryıldız]

Sevgili Enes Bey Cevap için teşekkür ederim fakat zaten ben bu formatı da denediğimi söylemiştim .

2. koda bakarsanız zaten bu formatı orada da vermiştim
Excel in bir ayarından kaynaklı olabilir mi acaba diye düşünüyorum çünkü tüm formatları her hali ile kullandım.

[Ali ÖZ]

Merhaba Seher hanım,
Bilgisayarınızın dili ve excel ondalık ve binlik ayırıcınız hangi durumdadır ?
Dosyanızı ekleyebilir misiniz ?

[seheryıldız]

Ali Bey Merhaba,
Office 2010 ev ve iş olan versiyon yüklü bilgisayarda
ondalık ve binlik ayraçları şu şekilde ( resim olarak yükledim.)

Dosyam büyük olduğu ve müşteri listemde orada olduğu için yükleyemiyorum . Ama bir ufak örnek hazırladım oradan bakabilirsiniz.

[seheryıldız]

Bendeki görünen şekil böyle ....

[Ali ÖZ]

Denermisiniz.

Kod: Tümünü seç

UserForm2.TextBox6.Value = Format(Replace(UserForm2.TextBox6.Value, ".", ","), "#,##0.00") & " TL."

[seheryıldız]

Sevgili Ali bey ,
yine Hızır gibi yetişip bir problemimi daha çözdünüz.
Teşekkür ederimm..

Konuyu kilitleyebilirsiniz.

[Tarkan VURAL]

Değerlerinizi değişkenler ile taşıyın, ondalık, bindelik ayraç farklılıkları ile uğraşmayın.
Değişken Atamalarında Dikkat Edilecek Hususlar

Private Sub CommandButton1_Click()
Dim s As Integer, toplam As Double
s = 0
If OptionButton1.Value = True Then
UserForm2.TextBox1 = Sayfa1.Cells(ActiveCell.Row, 4)
UserForm2.TextBox2 = Sayfa1.Cells(ActiveCell.Row, 2)
UserForm2.TextBox3 = Sayfa1.Cells(ActiveCell.Row, 3)
UserForm2.TextBox4 = Sayfa1.Cells(ActiveCell.Row, 2)
UserForm2.TextBox5 = Sayfa1.Cells(ActiveCell.Row, 6)

toplam = Sayfa1.Cells(ActiveCell.Row, 7)
UserForm2.TextBox6.Text= FormatCurrency(toplam, 2) & "TL"

For i = 2 To Sayfa2.Range("a65536").End(3).Row
If Sayfa2.Cells(i, 2) = Sayfa1.Cells(ActiveCell.Row, 4) Then
With UserForm2.ListBox1
.ColumnCount = 5
.ColumnWidths = "80;280;40;35;85;100"
.AddItem
.List(s, 0) = Sayfa2.Cells(i, 10)
.List(s, 1) = Sayfa2.Cells(i, 11)
.List(s, 2) = Sayfa2.Cells(i, 12)
.List(s, 3) = Sayfa2.Cells(i, 13)
.List(s, 4) = Sayfa2.Cells(i, 14)
End With
s = s + 1
End If
Next i


UserForm2.Show
OptionButton1.Value = ""
OptionButton2.Value = ""
OptionButton3.Value = ""

UserForm1.Hide
ElseIf OptionButton2.Value = True Then

OptionButton1.Value = ""
OptionButton2.Value = ""
OptionButton3.Value = ""
ElseIf OptionButton3.Value = True Then

OptionButton1.Value = ""
OptionButton2.Value = ""
OptionButton3.Value = ""

Else
MsgBox ("Herhangi bir seçim yapmadınız. Lütfen geçerli bir seçim yapın")
Exit Sub
End If


End Sub

Öncesi :

before.PNG

Sonrası :

after.PNG

[seheryıldız]

Tarkan Bey ,
Değerli yorumunuz ve öneriniz için teşekkür ederim buna dikkat edeceğim.

[Ali ÖZ]

Rica ederiz.
Tarkan hocamın verdiği bilgi olması gereken en doğru yol.Teşekkürler hocam.

[Haldunc]

Sorum için benzer başlık olarak buraya yazmak istedim.

UseFormda bulunan TextBox7 ye yazdığım herhangi bir rakamı

Virgülden sonra 4 hane olarak çevirip Kaydete bastığımda Kayıt olduğu hücrede bambaşka bir hal alıyor.

Kodum şu şekilde

Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox7.Value = Format(CDbl(TextBox7.Value), ("#,##0.0000"))

End Sub

Örneğin TextBox7 ye 12,97 yazdığımda sözkonusu TextBox7 den çıkarken (başka TextBox a geçerken) TextBox7 deki rakam 12,9700 oluyor. Buraya kadar normal giderken Kaydete bastığımda Kaydedilen hücrede bu değer 12970,0000 oluyor. Oysa buraya da 12,9700 olarak gelmesi lazım.
Sıkıntı ne olabilir?

Teşekkürler

[Haldunc]

son satırı yanlış yazmışım,
Hücreye 129700,0000 olarak geçiyor.