tek seferde girilen sayıları binlik olarak ayırmak

[önder34]

Merhaba arkadaşlar excel hücrelerine girilen rakamları enterlandığında para birimi olarak ayıracak örneğin 123456 gibi hücreye girdiğimizde enterlandıktan sonra 1.234,56 olarak göstermesini nasıl sağlarız hücre biçimlendirmede yapamadım . Yardımınızı bekliyorum

 

[İhsan Tank]

merhaba
mesela
A1 hücresine giriş yapacaksanız
A1 hücresine sağ tuş tıklayın hücre biçimlendir - sayı binlik ayıracı ayarlayın sonra virgülden sonra kaç karakter istiyorsanız onu girin tamam deyin. ( şayet Tl 'de yazdırmak istiyorsanız para biriminden istediğiniz birimi seçtikten sonra tamam deyin )

 

[önder34]

İlginiz için teşekkürler ama bu yöntem değil virgülden sonra 2 sıfır eklemeyecek girilen rakam ne olursa son iki rakamını virgülle ayırdıktan sonra sola doğru binlik onbinlik gibi ayıracak

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne kopyalayınız. A sütununa veri girişi yaptığınızda kod çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    
    If IsNumeric(Target) = False Then
        MsgBox "Girilen Veri Sayı Değil"
        Exit Sub
    End If
    
    Application.EnableEvents = False
 
        Target = Target / 100
    
    Application.EnableEvents = True

End Sub

.