Hücre Formatı olarak : 1,7 ise 1,7 yazsın, 1 ise 1 yazsın

[baydeniro]

Merhaba Arkadaşlar,
Aynı sütunda bulunan ondalıklı sayılarla tam sayıların tek formatta ayrıştırılması mümkün müdür !
1,7 > 1,7
1 > 1
0,4 > 0,4
0,3 > 0,3
3,5 > 3,5
3 > 3
gibi. Yani ondalıklı sayıları virgülle göstersin, ondalık kısmı yoksa tams sayı gibi göstersin. Bu mümkün mü !

 

[Korhan Ayhan]

GENEL formatı işinize yaramıyor mu?

 

[baydeniro]

GENEL formatı işinize yaramıyor mu?

Haklısın üstad, Genel uygun ama bazı sayılarda virgül sonrasında çok sayı var. Bir yerde örneğin 0,25 te durdurmak lazım oluyor

 

[Seyit Tiken]

Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Len(Target) = 3 Then Target.NumberFormat = "#,##0.0"
If Len(Target) = 4 Then Target.NumberFormat = "#,##0.00"
If Len(Target) = 1 Then Target.NumberFormat = "#,##0"
End If
End Sub

 

[baydeniro]

Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Len(Target) = 3 Then Target.NumberFormat = "#,##0.0"
If Len(Target) = 4 Then Target.NumberFormat = "#,##0.00"
If Len(Target) = 1 Then Target.NumberFormat = "#,##0"
End If
End Sub

Çok teşekkürler Seyit Tiken üstadım. Sağlıcakla kalın.

 

[Korhan Ayhan]

Örnek dosyayı inceleyiniz.

Koşullu biçimlendirme uygulanmıştır.

Ben virgülden sonra 2 karakterden uzun olan sayıları 2 karakter olacak şekilde düzenledim. Siz dilediğiniz gibi düzenleyebilirsiniz.

 

[baydeniro]

Örnek dosyayı inceleyiniz.

Koşullu biçimlendirme uygulanmıştır.

Ben virgülden sonra 2 karakterden uzun olan sayıları 2 karakter olacak şekilde düzenledim. Siz dilediğiniz gibi düzenleyebilirsiniz.

Korhan Ayhan üstadım çok teşekkür ederim. İlginç bir dosya. Sayı formatı yok, makro yok ama tam istediğim sonucu veriyor. Tebrik ve teşekkür ederim. Sağlıcakla kalın.