• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Baştan başla nokta veya virgülden sonraki ilk değeri bırak diğerlerini sil.

Katılım
7 Ekim 2013
Mesajlar
169
Excel Vers. ve Dili
2003 TR
Merhabalar.

1.500.000
22,300,000
333.000.000

üstteki değerleri

alttaki gibi yapacak bir kod gerekli

1.5
22,3
333.0

Bu işlemi yapan kodlar buldum lakin

1.500
22,30
333.0 gibi bir görüntü ortaya çıkartıyor bu şekilde olmayacak.
 
Merhaba

Koda ne hacet, sayıyı 1.000.000'a bölmek yeter.
 
Merhaba değerli hocam.

Mantıklı bakış açısı, lakin kod ile yapılsın istiyorum.

Hoşgörünüze sığınarak.
 
Merhaba değerli hocam.

Mantıklı bakış açısı, lakin kod ile yapılsın istiyorum.

Hoşgörünüze sığınarak.

Merhaba

Kod:
Sub MilyonaBöl()
For i = 1 To Range("a1048576").End(3).Row
Cells(i, "B") = Cells(i, "A") / 1000000
Next
End Sub

For-Next Kullanmadan
Kod:
Sub MilyonParça()
[D2] = 1000000
Range("D2").Copy
ss = Range("a1048576").End(3).Row
Range("a1:a" & ss).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlDivide
Range("D2").ClearContents
End Sub
 
Çok teşekkür ederim hocam.

Çıkan sonuca;

Eğer virgülden sonra gelen rakam 5 ten büyükse; virgülden önceki rakama 1 ilave,
Eğer virgülden sonra gelen rakam 5 ve 5 ten küçükse; virgülden önceki rakam aynısı gibi kalsın.

bu işlemleri uygulayacak ikinci bir kod yazabilirseniz çok sevinirim. Saygılarımla.
 
Çok teşekkür ederim hocam.

Çıkan sonuca;

Eğer virgülden sonra gelen rakam 5 ten büyükse; virgülden önceki rakama 1 ilave,
Eğer virgülden sonra gelen rakam 5 ve 5 ten küçükse; virgülden önceki rakam aynısı gibi kalsın.

bu işlemleri uygulayacak ikinci bir kod yazabilirseniz çok sevinirim. Saygılarımla.

Kod:
Cells(i, "B") = Round((Cells(i, "A") / 1000000), 1)
 
Geri
Üst