Biçimlendirme

[merakli_72]

Günaydın,
bir sutuna

123956-12005
56425-5689
3287-309

şeklinde girilecek verilerin aynı sutunda

123.956-12.005
56.425-5.689
3.287-309

şeklinde görünmesi nasıl sağlanabilir.
Teşekkürler

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?

A sütununda çalışır, siz kendinize göre sütunu değiştiriniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Dim a
Dim i As Integer
Application.EnableEvents = False
    Target = Replace(Target, ".", "")
    a = Split(Target.Value, "-")
    Target = Format(a(0), "#,##0") & "-" & Format(a(1), "#,##0")
Application.EnableEvents = True
Son:
End Sub

 

[1Al2Ver]

Sayın Necdet Yeşertener, merhaba,

Çözümden ben de faydalandım, teşekkür ederim.

 

[Necdet]

Sayın Necdet Yeşertener, merhaba,

Çözümden ben de faydalandım, teşekkür ederim.

Bende size teşekkür ederim, güle güle kullanınız.

Örnek verilere göre parametrik yapmadım, tirenin solunda ve sağında mutlaka rakam olacağını düşündüm, aksi durumda hatalı sonuç üretebilir.