nokta yazılmaması gereken sablon ektedir

[canerrrrrr]

hücreye rakam yazarken nokta koyamasınlar

sayın üstadlarım bizim şubelerimiz bütün satıslarını olusturdugum bi şablona yazıyorlar.. fakat bazıları 100,50 yazması gerekirken 100.50 yazıor... bilindiği gibi excel araya nokta gelince toplayamıyor.... bunu nasıl önlerimm

 

[Ayhan Ercan]

Merhaba

Aşağıdaki kodu sayfanın kod penceresine yazark deneyiniz...

(Not: A sütunu için geçerlidir)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
If Target.Offset(-1, 0) = "" Then Exit Sub
Target.Offset(-1, 0) = Replace(Target.Offset(-1, 0), ".", ",") * 1
End Sub

 

[Ömer]

sayın üstadlarım bizim şubelerimiz bütün satıslarını olusturdugum bi şablona yazıyorlar.. fakat bazıları 100,50 yazması gerekirken 100.50 yazıor... bilindiği gibi excel araya nokta gelince toplayamıyor.... bunu nasıl önlerimm

Merhaba,

Alternatif olarak örnek dosyayı incelermisiniz..

 

[Necdet]

Merhaba,

Sayın Ercan'ın kodlarının Change olayına bağlı hali.

Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Target = Replace(Target, ".", ",") * 1
End Sub

 

[canerrrrrr]

d sütunundan r sütununa kadar her hangi bir rakam yazılırken kesinlikle nokta konulmamasını nasıl bir kodla yapabilirr yardımcı olurmusunuzz?

100.5 yerine kesinlikle 100,5 yazılmasını istiorumm... yardımlarınız için şimdiden teşekkürler

 

[uzmanamele]

merhaba
syn canerrrrrr;
arkadaşlarımızın verdiği cevap tatmin edici değil veya anlaşılmıyor veya işinizi görmüyor vs ise ilk açtığınız konunun devamında neresi olmamışsa açıklayarak devam ediniz, aynı soru için yeni konu açmamaya özen gösteriniz.