sagdaki sıfırları temizleyen makro

[mtl]

Arkadaslar herkese merhaba;

Hücrelerdeki sayilarımı virgülden sonra 5 hane hassasiyette istiyorum. Ama bunu ben gerçekleştiremedim. Nasıl bir yol izlemeliyim? Bu işi makro ile çözmem gerekiyor.

 

[zafer]

Merhaba


Hücreleri seçip makroyu çalıştırın

Sub sss()
Selection.NumberFormat = "#,##0.00000"
End sub

veya A sütunundaki hücrelere veri girdiğinizde otomatik olamasını istiyorsanız sayfanızın kod sayfasına aşağıdaki kodları yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)
Set MyRng = Application.Intersect(Target, Range("a1:a600"))
If Not MyRng Is Nothing Then
Target.NumberFormat = "#,##0.00000"
End If
Set MyRng = Nothing
End Sub

 

[mtl]

Öncelikle sorunumu tam olarak anlatamadığım için özür dilerim. Yapmak istediğim sayı biçimlendirmesi tam olarak şöyle;
1. Bin ayıracı olacak
2. Ondalık kısım virgülden sonra 5 hane olacak
3. Sağda ve solda fazladan sıfır olmayacak

0,25000 ---> 0,25
123.256,236489 --->123.256,236489
5.236,23690 ---> 5.236,2369
5456,2556684 ---> 5.456,25567

Yardımlarınız için şimdiden teşekkürler...

 

[Korhan Ayhan]

Selamlar,

Hücrelerin bulunduğu alanı seçip biçimlendirme menüsünden isteğe uyarlanmış kısmına #.##0,##### biçimini uygulayıp denermisiniz.

 

[mtl]

zafer ve COST_CONTROL ilgilendiğiniz için çok teşekkür ederim. COST_CONTROL örneğinizi uyguladım sorunum çözüldü, sağolun.

 

[zafer]

Merhaba

Bu işi makro ile çözmem gerekiyor.

İşinizin halolduğuna sevindim.
Lütfen açıklama yazarken sorununuzu fonksiyonlamı yoksa makro ilemi çözmek istiyorsunuz iyi karar veriniz.

 

[emrexcel123]

çözüm yolu

sn zafer 'e katılıyorum nasıl bir çözüm yolu istediğinizi belirtirseniz ona göre sorununuz hallolur.ben de eki inceledim makro ile çözüm istediğini sandım ama maalesef...

 

[mtl]

Ben sorunumu makroyla çözdüm zaten. Bunda da Sn. zafer 'in yolunu kullandım.

Private Sub Worksheet_Change(ByVal Target As Range)
Set MyRng = Application.Intersect(Target, Range("a1:a600"))
If Not MyRng Is Nothing Then
Target.NumberFormat = "#,##0.00000"
End If
Set MyRng = Nothing
End Sub

Ama biçimlendirme şekli olarak COST_CONTROL 'ün biçimlendirmesini kullandım (#.##0,#####).

Bugün farkına vardım da, bu biçimlendirmede de eğer sayı tamsayı ise sona virgül koyuyor.

Sizlere yardımlarınız için çok teşekkür ederim.