[Çözüldü]  TextBox format sorunu

Metin Kutucuğu. Bir programcının olmazsa olmazlarındandır.

TextBox format sorunu

İleti#1)  seheryıldız » 14 Eyl 2017 11:48

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."
Kullanıcı avatarı
seheryıldız
Siteye Alışmış
 
Kayıt: 15 Nis 2015 08:21
Meslek: yönetici asistanı
Yaş: 33
İleti: 396
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul/maltepe

Cevap: TextBox format sorunu

İleti#2)  Enes Recep BAĞ » 14 Eyl 2017 11:56

Kod: Tümünü seç
TextBox1.Value = FormatCurrency(TextBox1.Value, 2)
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 15:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 38
İleti: 8285
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Cevap: TextBox format sorunu

İleti#3)  seheryıldız » 14 Eyl 2017 12:18

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

2. koda bakarsanız zaten bu formatı orada da vermiştim [komik]
Excel in bir ayarından kaynaklı olabilir mi acaba diye düşünüyorum çünkü tüm formatları her hali ile kullandım.
Kullanıcı avatarı
seheryıldız
Siteye Alışmış
 
Kayıt: 15 Nis 2015 08:21
Meslek: yönetici asistanı
Yaş: 33
İleti: 396
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul/maltepe

Cevap: TextBox format sorunu

İleti#4)  Ali ÖZ » 14 Eyl 2017 12:24

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 ?
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 39
İleti: 10242
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: TextBox format sorunu

İleti#5)  seheryıldız » 14 Eyl 2017 12:48

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.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
seheryıldız
Siteye Alışmış
 
Kayıt: 15 Nis 2015 08:21
Meslek: yönetici asistanı
Yaş: 33
İleti: 396
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul/maltepe

Cevap: TextBox format sorunu

İleti#6)  seheryıldız » 14 Eyl 2017 12:53

Bendeki görünen şekil böyle ....
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
seheryıldız
Siteye Alışmış
 
Kayıt: 15 Nis 2015 08:21
Meslek: yönetici asistanı
Yaş: 33
İleti: 396
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul/maltepe

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: TextBox format sorunu

İleti#7)  Ali ÖZ » 14 Eyl 2017 13:16

Denermisiniz.

Kod: Tümünü seç
UserForm2.TextBox6.Value = Format(Replace(UserForm2.TextBox6.Value, ".", ","), "#,##0.00") & " TL."
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 39
İleti: 10242
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: TextBox format sorunu

İleti#8)  seheryıldız » 14 Eyl 2017 13:28

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

Konuyu kilitleyebilirsiniz.
Kullanıcı avatarı
seheryıldız
Siteye Alışmış
 
Kayıt: 15 Nis 2015 08:21
Meslek: yönetici asistanı
Yaş: 33
İleti: 396
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul/maltepe

Cevap: TextBox format sorunu

İleti#9)  Tarkan VURAL » 14 Eyl 2017 13:30

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
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27420
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: TextBox format sorunu

İleti#10)  seheryıldız » 14 Eyl 2017 13:51

Tarkan Bey ,
Değerli yorumunuz ve öneriniz için teşekkür ederim buna dikkat edeceğim.
Kullanıcı avatarı
seheryıldız
Siteye Alışmış
 
Kayıt: 15 Nis 2015 08:21
Meslek: yönetici asistanı
Yaş: 33
İleti: 396
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul/maltepe

Cevap: TextBox format sorunu

İleti#11)  Ali ÖZ » 14 Eyl 2017 13:56

Rica ederiz.
Tarkan hocamın verdiği bilgi olması gereken en doğru yol.Teşekkürler hocam. --)(
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 39
İleti: 10242
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: TextBox format sorunu

İleti#12)  Haldunc » 22 Şub 2021 14:40

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
Kullanıcı avatarı
Haldunc
Siteye Alışmış
 
Adı Soyadı:HALDUN CEYHAN
Kayıt: 21 Oca 2010 18:23
Konum: BURSA
Meslek: ZİRAAT MÜH
Yaş: 58
İleti: 320
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Cevap: TextBox format sorunu

İleti#13)  Haldunc » 22 Şub 2021 14:42

son satırı yanlış yazmışım,
Hücreye 129700,0000 olarak geçiyor.
Kullanıcı avatarı
Haldunc
Siteye Alışmış
 
Adı Soyadı:HALDUN CEYHAN
Kayıt: 21 Oca 2010 18:23
Konum: BURSA
Meslek: ZİRAAT MÜH
Yaş: 58
İleti: 320
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA


Forum TextBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe