Otomatik Virgül Atımı

[mc_exrem]

merhaba arkadaşlar yıllar sonra bu konuyu hortlatmak istedim.

Yeni çalışma sayfama bu kodu uygulamak istedim ancak kırmızı olarak hata verdi. koddaki yanlışlık nedir acaba?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B9:B100,C9:C100]) Is Nothing Then Exit Sub
Application.EnableEvents = False
On Error Resume Next

Target.Value = Target.Value / 1000

Application.EnableEvents = True
End Sub

 

[Ömer BARAN]

Merhaba.
Verdiğiniz kod'da bir sorun görünmüyor.

Cevabımın altındaki İKZA bölümünü okuyup, yapılmak istenilen işlemi de örneklendirip
kısa ve net açıklama ekleyerek hatalı haliyle örnek belge yüklemeniz yerinde olur.
.

 

[Necdet]

Merhaba,
Bunun için makroya gerek yok.

• Dosya
• Seçenekler
• Gelişmiş
• Otomatik Olarak Ondalık Ayırıcı Ekle
• Basamak Sayısı --> 3
• Tamam

Not : İlgili Dosyadan Çıkınca İşlemi Geri Almalısınız.
Ya da makro ile ilgili dosyanın ilgili sayfası aktif olduğunda bu işlemi yaptırırsınız, Çıkışta geri alırsınız.

Kod Örnekleri Aşağıdadır. Kodlar ilgili sayfanın kod bölümünde olmalı.

Private Sub Worksheet_Activate()

    With Application
        .FixedDecimal = True
        .FixedDecimalPlaces = 3
    End With

End Sub

Private Sub Worksheet_Deactivate()
    
    With Application
        .FixedDecimal = False
        .FixedDecimalPlaces = 2
    End With

End Sub

 

[mc_exrem]

yardımlarınız için teşekkürler.. ama kalıcı bi çözüm için illaki makro.
formülün silinmemesi adına"Cam Sipariş" sayfasındaki G9:G39 hücrelerine uyguladığım
=A9*(B9*C9)/1000000
işlemini kod ile yapıp 99. satıra kadar uygulamak istiyorum. Yardımcı olabilir misiniz.
http://dosya.co/vqo14k4wh0iu/Cam_Listesi_-_ETİKET_GENÇELLER_R3.xlsm.html