ilk rakamdan sonra virgül konması

[sbayyigit]

arkadaşlar a sütununda yüzlerce 4 ve 5 karakterli rakam var. bunların formatı
3800
2100
36000
3200
3200
3500
38000
37000
3000
3200
3800
5000
şeklinde;
benim yapmak istediğim şey ise makro ile
3,800
2,100
3,600
3,200
3,200
3,500
3,800
3,700
3,000
3,200
3,800
5,000
şekline gelmesi. burada dikkat edilemsi gereken 2 şey var.
birincisi virgül ilk rakamdan sonra gelecek
iknicisi ise sütündaki rakam kaç haneli olursa olsun virgülden sonra 3 karakter kalması

ilginizden dolayı şimdiden teşekkürler...

 

[Necdet]

Merhaba,

Makroya ya da formüle gerek var mı?

Boş bir hücreye 1000 yazın
bu hücreyi kopyalayın
bölmek istediğiniz bölgeyi seçin
özel yapıştır
Böl
Tamam

Sonra da hücreyi istediğiniz gibi biçimlendirin.

Not : Uzunluklar farklıymış bu durumda formül kullanmak gerek.

 

[hamitcan]

Alternatif

Sub bb()
    For i = 1 To [a65536].End(3).Row
        a = Cells(i, 1)
        If Len(a) = 4 Then
            Cells(i, 2) = Left(a, 1) & "," & Mid(a, 2, Len(a) - 1)
        Else
            Cells(i, 2) = Left(a, 1) & "," & Mid(a, 2, Len(a) - 2)
        End If
    Next
End Sub

 

[sbayyigit]

Merhaba,

Makroya ya da formüle gerek var mı?

Boş bir hücreye 1000 yazın
bu hücreyi kopyalayın
bölmek istediğiniz bölgeyi seçin
özel yapıştır
Böl
Tamam

Sonra da hücreyi istediğiniz gibi biçimlendirinl.

hocam sanırım sorunumu tam olarak anlatamadım.
her gün oracle verirabanında kayıtlı verilerden yüzlerce kayıt alıyorum. buradaki kayıtlar gram cinsinden belirtilmiş. ama bu değerler kaydedilirken farklı kullancılar bazan yanlışlıkla da olsa fazla karakter giriyorlar. bu alana gram cinsinden değer girilmesi zorunlu. fakat aldığım bu değerleri farklı amaçla kullanırken Kg cinsinden girmem gerekiyor ve 3,000 şeklinde belirtmem gerekiyor. bir kaç veri olsa hatta bir günlük iş olsa sorun değil. bir aktarma makrosu yaptım . 38 sütun ve 100 lerce satırı istediğim formatta vb kodları ile aktardım. tek sorunum gram cinsinden girilmiş bu sütundaki değerler kaldı. her zaman olduğu gibi sonsuz saygılarım ve selamlarım sizinle.. teşekkürler

 

[sbayyigit]

Alternatif

Sub bb()
    For i = 1 To [a65536].End(3).Row
        a = Cells(i, 1)
        If Len(a) = 4 Then
            Cells(i, 2) = Left(a, 1) & "," & Mid(a, 2, Len(a) - 1)
        Else
            Cells(i, 2) = Left(a, 1) & "," & Mid(a, 2, Len(a) - 2)
        End If
    Next
End Sub

sayın hocam; ben 4 nolu mesajımı yazarken siz mesaj yazmışsınız. benim pc de sizin yazdığınız şekli ile nokta geldi ben de virgül yerine nokta koyunca işimi gördü. teşekkürler

 

[ethernet]

hocam peki bunun tersi bir işlemi nasıl yapabiliriz virgülden sonrasını silmek istiyorum ben yuvarlama işimi görmüyor.

 

[hamitcan]

Küçük bir dosya ekleyin, daha çabuk cevap alabilrsiniz.