Textbox'tan Gİrİlen Ytl BİÇİmİndekİ Sayi HÜcrede Daha Sonra DeĞİŞİyor

[soneryen]

Userform ile yaptığım bir çalışmada yeni firma açtırıyorum ve her firmaya ait ürüne fiyatlar veriyorum. Fiyatları örnek: 12,50 şeklinde yazıyorum firmayı kaydedince yeni firmam 12,50 ürün fiyatıyla açılıyor. Daha sonra bu firmanın herhangi bir bilgisi değiştirmek için userformdan firma bul yapıp firmayı geri çağırıyorum örnek telefon numarasını değiştirip kaydedince fiyatı değiştirmemiş olmama rağmen 12,50 olan fiyat 1250 şeklinde değişiyor (aradan kuruş hanesini atıyor) sebebi 12,50 olarak girdiğim fiyat firmayı tekrar çağırdığım zaman texboxta 12.50 diye görünüyor tekrar kaydet dediğim zaman o rakam 1250 şekilnde atıyor. Örnek dosya ektedir. Dosyaya girince daha iyi anlayacaksınız. Yeni bir firma açıp ürünlerden bir kaçına fiyat girerek deyenebilirsiniz. Üstadlar bunu bana çözebilir misiniz? İlginize şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Sorun ondalık ayıracı olarak VBA da nokta kullanılmasından kaynaklanıyor. Virgülü binde ayıracı olarak algılıyor, bunu düzeltmek için noktayı virgüle çeviren bir fonksiyon ilavesi yapılabilir. Örneğin,

 fkasasoda.Value = Replace(ActiveCell.Offset(0, 7).Value, ".", ",")

 

[soneryen]

Sorunu vermiş olduğunuz kod ile hallettim Allah razı olsun.