Yuvarlamayı iptal etme

[Korhan Ayhan]

Bu dosyanızda hücrelerde SAYI biçimlendirmesi var.

Size denemeyi boş yeni bir excel dosyasında mı yapıyorsunuz diye sordum. Sizde evet dediniz.

SAYI biçimlendirmesini GENEL olarak yapabilirsiniz. Ya da SAYI biçimlendirmesini noktadan sonra 2 karakter gösterecek şekilde ayarlayabilirsiniz.

Bu işlemi de #4 nolu mesajımda paylaştığım linkten takip ederek yapabilirsiniz.

 

[nunu446]

Bu dosyanızda hücrelerde SAYI biçimlendirmesi var.

Size denemeyi boş yeni bir excel dosyasında mı yapıyorsunuz diye sordum. Sizde evet dediniz.

SAYI biçimlendirmesini GENEL olarak yapabilirsiniz. Ya da SAYI biçimlendirmesini noktadan sonra 2 karakter gösterecek şekilde ayarlayabilirsiniz.

Bu işlemi de #4 nolu mesajımda paylaştığım linkten takip ederek yapabilirsiniz.

cevabınız için teşekkür ederim

 

[Seyit Tiken]

Makrolu çözümü deneyiniz, karakter sayısına göre kodu revize edin.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Len(Target) = 2 Then Target.NumberFormat = "0\.0"
If Len(Target) = 4 Then Target.NumberFormat = "0\.00"
End Sub

 

[nunu446]

Makrolu çözümü deneyiniz, karakter sayısına göre kodu revize edin.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Len(Target) = 2 Then Target.NumberFormat = "0\.0"
If Len(Target) = 4 Then Target.NumberFormat = "0\.00"
End Sub

deniycem, teşekkür ederim.

 

[Seyit Tiken]

Örnek kodu revize ettim.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Columns("a:a") Then
If Len(Target) = 2 Then Target.NumberFormat = "0\.0"
If Len(Target) = 3 Then Target.NumberFormat = "0\.00"
If Len(Target) = 4 Then Target.NumberFormat = "00\.00"
End If
End Sub

Örnek Dosya :

 

[nunu446]

Örnek kodu revize ettim.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Columns("a:a") Then
If Len(Target) = 2 Then Target.NumberFormat = "0\.0"
If Len(Target) = 3 Then Target.NumberFormat = "0\.00"
If Len(Target) = 4 Then Target.NumberFormat = "00\.00"
End If
End Sub

Örnek Dosya :

altın üye olmadığım için indiremedim, ama yine de yardım ettiğiniz için teşekkür ederim.