TEXTBOX icindeki kuruş hanesini virgüllü nasıl yapabilirim.

[soneryen]

Konu şu: Textbox ile bir sayı gireceğim zaman virgülü kullanamıyorum. İllaki nokta kullanmam gerekiyor. Eğer illede virgül olarak girersem girdiğim sayıyı excel hücrede sayı olarak algılamıyor. yardımcı olursanız sevinirim.

 

[Levent Menteşoğlu]

Textboxtaki değeri bir ile çarparak hücreye aktarın. Örneğin;

[a1] = TextBox1 * 1

 

[soneryen]

Sağol leventm kardeşim.

vermiş olduğunuz kodu denedim çalışıyor.

fakat ben

ActiveCell.Offset(0, 0).Value = ftarih.Value
ActiveCell.Offset(0, 1).Value = fbilgi.Value
ActiveCell.Offset(0, 2).Value = fkasasu.Value
ActiveCell.Offset(0, 3).Value = fkasasoda.Value
ActiveCell.Offset(0, 4).Value = f05petsu.Value

bu kod ile textboxlardaki sayıyı hücreye atıyorum vermiş olduğunuz kodu burada nasıl kullanacağım.

Yardımcı olursanız sevinirim.

birde mesela

textbox1 'e A1 hücresindeki sayıyı
textbox2 'ye A2 hücresindeki sayıyı aldırıyorum ve bu textboxları başka bir sheet içindeki hücrelere attırıyorum ama attığı hücrelere sayı olarak atmıyor. Oysa sayıları aldırdığım hücrelerde A1 ve A2'deki veriler sayıdır.

 

[Levent Menteşoğlu]

ActiveCell.Offset(0, 0).Value = ftarih.Value

Örneğin yukarıdaki satırı aşağıdaki gibi düzenleyebilirsiniz.

ActiveCell.Offset(0, 0).Value = ftarih.Value*1

 

[soneryen]

Abim Allah razı olsun ama bazen bu textbox'un içi boş olabiliyor. Yani bir sayı girilmeyebiliyor. Anladığım kadarıyla o zaman çarpacak birşey bulmadığından hata veriyor. Galiba

mesela ftarih.value boşsa boş atsın sayı varsa onu *1 yapsın. Bunu yapabilirsek her halde benim problemim bitecek gibi düşünüyorum.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

if ftarih.Value<>"" then ActiveCell.Offset(0, 0).Value = ftarih.Value*1

 

[soneryen]

Abi çok şükür bu sefer oldu işte.

Başarılarınız daim olsun. Allah sizi başımızdan eksik etmesin.