Textbox'da virgülden sonra etkisizleri silme

[zeidor]

Merhabalar
Textbox'ta virgüllü sayıdan sonra gelen etkisiz eleman sıfırı sildirecek makro kodu konusunda yardımcı olurmusunuz?
Açıklayıcı Örnek;
0,1230 yerine 0,123 gibi
0,0010 yerine 0,001 gibi
yada 743,0000 yerine 743 gibi...

 

[antonio]

Bu formatı uygulamak istediğiniz Textbox ların çıkış (Exit) Kodlarını aşağıdaki örnek gibi düzenleyiniz. Aşağıda TextBox1 olduğunu farz ederek yazdım, ona göre değiştirirsiniz.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Me.TextBox1
    .Value = Format(.Value, "###,##0.##0")
End With
End Sub

 

[zeidor]

Denedim lakin birşey değişmedi,belkide eksik bilgiler verdim ondan olabilir,
textbox1 boşken textbox2 "w63" hücresindeki değeri getirmesini istedim

Örnek:
textbox1 = 1 yazılı iken textbox2 = 759,9000 geliyor
759,9 gelmesini sağlayabilirmiyiz
textbox1 = "" boş iken textbox2 = 759,9 gelebilir mi

Not: "w63" değişkendir,netten güncelleme yoluyla bu hücre değişmektedir,
Bu örneği yazarken bu değerdeydi.
textbox2 için sınır virgülden sonra 4 rakamdır.

Dosyayı ekledim incelerseniz belki daha farklı bir yol izleyebiliriz.

****