Sayfaya yazılan rakamların ondalık ayracı nokta olsun

[muzaffer.sm]

Arkadaşlar herkese Merhaba,

Bazı tablolarda mecburi olarak ondalık ayracı nokta kullanıyoruz.Normalde sistem (nokta virgüldür).
Excel tablosuna girdiğim bordro rakamlarının ondalık ayracı E-Beyanname için kullandığım o sayfada otomatik olarak noktaya çevrilmesi hususudur.

Buna göre aşağıdaki eklediğim resimde girilen rakamlar temsili gereğidir. Rakamları girdiğim bölümde ondalık bölümün noktaya çevrilmesi sağlanabilir mi ?
İlgili safyanın selectionChange bölümünde olmak üzere bu kodları oluşturamadım.
Kısacası o sayfaya girdiğim rakamlar nokta virgül olduğundan, E-Beynanname için virgül nokta olmalıdır ( 1.1500,74 yerine 1500.74 olmalı gibi bir şey
Bu hususlar hakkında yardımlarınızı rica edeceğim.


https://hizliresim.com/odW9oX

 

[Kasniç]

Merhaba, alıntıdır.

1. Dosya > Seçenekler'e tıklayın.
2. Gelişmiş sekmesindeki düzenleme seçenekleri'nin altında sistem ayırıcıları kullan onay kutusunu temizleyin.
3. Ondalık ayırıcısı ve binlik ayırıcı kutularına yeni ayırıcılar yazın.

 

[muzaffer.sm]

Merhaba, alıntıdır.

1. Dosya > Seçenekler'e tıklayın.
2. Gelişmiş sekmesindeki düzenleme seçenekleri'nin altında sistem ayırıcıları kullan onay kutusunu temizleyin.
3. Ondalık ayırıcısı ve binlik ayırıcı kutularına yeni ayırıcılar yazın.

Merhaba Sayın Kasniç

Office seçeneklerinde bu işlem kesinlikle iyi bir çözüm. Lakin bizim kullandığımız Çalışma kitabında aktarım sayfaları gereği ilgili sayfada sadece bu işlem ayrıcalık göstereceğinden o yöntem geçerli olmuyor.
Sadece o sayfada Yani sistem ayracı dışı davranması gerekiyor. Kişi rakamı girdiği zaman sistem gereği 1.500,74 olacaktır.Lakin bu yazılan rakam 1500.74 olarak dönüşebilmeli. Bunu sayfanın selectionchange bölümünde küçük bir kodlama ile yapmak gerekiyor.
Bu konuda çözüm getiremedim.

Sistem bu rakamı 1.500,74 böyle yazıyor. Sayfadaki kod gereği tam tersi bu 1,500.74 rakamı (1500.74 binlik ayraç kullanılmazsa hücre biçiminde ) olarak yazmalı.

 

[Ömer]

Merhaba,
VBA ekranında "BuÇalışmaKitabı" sayfasına kopyalayın.
Sadece Sayfa2 de istediğiniz olacaktır.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    
    Application.UseSystemSeparators = True
    
    If ActiveSheet.Name = "Sayfa2" Then
        With Application
            .UseSystemSeparators = False
            .DecimalSeparator = "."
            .ThousandsSeparator = ","
        End With
    End If
    
End Sub

 

[muzaffer.sm]

Ömer Bey,

İşte bu çözüm çok iyi oldu. Bütün sayfalar (1.500,74 olurken bahsettiğim sayfa ( 1,500.74 oldu )
Çok teşekkürler.

Saygılarımla