Yeni Lira Yeni Kuruşta virgülden kurtulmak.

[otufan03]

İstediğim fonksiyon
12.546,75 yerine 1254675 yazayım sonuç 12.546,75 olsun
veya 12546,75 yerine 1254675 yazayım 12546,75 olsun

 

[Levent Menteşoğlu]

Bu durumda kod kullanmanız gerekir. Aşağıdaki kodu sayfanın kod sayfasına kopyalayın. Sadece A sütununda çalışır. Eğer bu sınırlamayı kaldırmak isterseniz ilk satırı silin.

[vb:1:a83d0f942e]Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Target = Target / 100
Application.EnableEvents = True
End Sub
[/vb:1:a83d0f942e]

 

[otufan03]

Teşekkür ederim Sayın Leventm