textbox ile yapılan veri girişinde "," kullanımı..

[Selçuk1]

değerli üstadlarım;

öncelikle selamlar,

sn. Levent Beyin veri yönetimi çalışmasıyla ilgili sormak istediğim bir şey var.

textboxlar ile veri girişi yapıyoruz ve listboxta listeleniyor girdiğimiz veriler. benim textbox4 ile yaptığım veri girişi sürekli olarak ondalık sayılar içeriyor. (yani; 0,50 - 0,60 - 1,60 - 2,00 gibi veri girişi yapıyorum) kayıt ettikten sonra kayıtta değişiklik yapmak için listbox üzerinde çift tıklayarak kayıt bilgilerinin textboxların içine gelmesini sağlıyoruz. buraya kadar her şey tamam. bu aşamada textbox4 e yazdığım veri geri gelirken ondalık biçimde gelmiyor. yani 0,60 yazmış isem 0.6 olarak geliyor ve "değiştir" butonuna tıkladığımda bu veriyi 6 olarak değiştiriyor.

textbox ile yapılan veri girişinde verinin özelliklerini nasıl belirleyebiliriz?
yada excel ile ilgili başka bir ayar mı söz konusu??

değerli yardımlarınızı bekliyorum.

saygılar...

Not: Diğer sorumun başlığı ile bu farklı bir konu olduğundan yeni konu açma gereği duydum..

 

[Levent Menteşoğlu]

Veriyi textboxa aldığınız kodları verirmisiniz.

 

[Selçuk1]

sayın levent bey,

kaydet ve değiştir butonları ile listbox un kodları aşağıdadır. textbox4 ve textbox5 ile yapılan veri girişinin sayı formatında olması gerekiyor. çünkü bunları çalışma sayfasına aktardığımda toplama işlemine tabi tutulacak. bunu gerçekleştirmek için *1 ekledim. ancak o zamanda yukarıda bahsettiğim sorun oluşuyor düzeltme esnasında. yani "0,60" rakama "0.6" oluyor ve değiştirdikten sonra 6 olarak kayıt ediyor. inceler misiniz?

Private Sub CommandButton1_Click() [COLOR=SeaGreen]'kaydet butonu kodları[/COLOR]

For a = 1 To 5
If Controls("textbox" & a) = "" Then
MsgBox "Lütfen Verileri Eksiksiz ve Tam Giriniz!.."
Exit Sub
End If
Next
If OptionButton3 = True Then Sheets("liste").Select
If OptionButton4 = True Then Sheets("listet").Select
sonsat = [a65536].End(3).Row + 1
Cells(sonsat, 1) = sonsat - 1
Cells(sonsat, 2) = TextBox1
Cells(sonsat, 3) = TextBox2
Cells(sonsat, 4) = TextBox3
Cells(sonsat, 5) = TextBox4 * 1 [COLOR=SeaGreen]'burada girilen veriler sayfa üzerinde
 toplama işlemine tabi tutulduğu için sayı formatında olması gerekiyor.[/COLOR]
Cells(sonsat, 6) = TextBox5 * 1
UserForm_Initialize
ListBox1.ListIndex = sonsat - 2
Sheets("ANASAYFA").Select
CommandButton5_Click
End Sub

Private Sub CommandButton2_Click() [COLOR=SeaGreen]'değiştir butonunun kodları[/COLOR]

sor = MsgBox("Değiştirmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
If OptionButton3 = True Then Sheets("liste").Select
If OptionButton4 = True Then Sheets("listet").Select
sonsat = ListBox1.ListIndex + 2
Cells(sonsat, 2) = TextBox1
Cells(sonsat, 3) = TextBox2
Cells(sonsat, 4) = TextBox3
Cells(sonsat, 5) = TextBox4 [COLOR=SeaGreen]'kaydet butonunda olduğu gibi burayada *1
 koyarsam yukarıda belirttiğim sorun oluyor. yani virgüller ve noktalar
 karışıyor.koymazsam da metin formatında kayıt ettiği için çalışma
 sayfamdaki topla formulü çalışmıyor.[/COLOR]
Cells(sonsat, 6) = TextBox5
ListBox1.RowSource = "a2:f" & [a65536].End(3).Row
Sheets("ANASAYFA").Select
z = MsgBox("Değişiklik Yapılmıştır!..", vbInformation, "Bilgi..")

End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
[COLOR=SeaGreen]'bunlarda listbox un kodları [/COLOR]
For a = 0 To 4
Controls("textbox" & a + 1) = ListBox1.Column(a + 1)
Next
TextBox1 = Format(ListBox1.Column(1), "dd.mm.yyyy")
sat = ListBox1.ListIndex + 2
CommandButton1.Enabled = False
CommandButton2.Enabled = True
CommandButton3.Enabled = True
Sheets("ANASAYFA").Select
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

=replace(textbox4,".",",")*1

 

[Selçuk1]

sn. leventm üstadım,

çok teşekkür ediyorum. her zamanki gibi yetiştiniz yardımıma. sorunum çözüldü...

saygılar..