Ondalık kaç rakam ise ona göre hücre formatı.

[kelkitli]

Selamlar,
TextBox1 ve 2 nin çarpına göre TextBox3 te ondalık rakamlar oluşuyor. Bu ondalık rakamın virgülden sonra kaç rakam olduğunu sayıp ona göre sayfadaki ilgili hücreyi formatlayacağız. Yani TextBox3 te 17,1456 olduğunu ve bu değeri Sayfa1 A1 hücresine göndereceğimizi farzedelim. Virgülden sonra 4 basamak olduğundan A1 de ondalık 4 rakam olmalı. İkinci bir işlemde 14,25 olduğunu farzedelim. O zaman da ondalık iki hane olmalı.

[Bülent Öztürk]

Aleyküm selam Necmettin Bey.

Dener misiniz;

Kod: [Seç]

basamak = Len(TextBox3) - InStr(TextBox3, ",")
yinele = WorksheetFunction.Rept(0, basamak)
Range("A1").NumberFormat = "0." & yinele


[kelkitli]

Çok teşekkür ederim Bülent Bey.

[Bülent Öztürk]

Rica ederim Necmettin Bey.
Çalışmalarınıza başarılar.