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

[simetri.]

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.

 

[uzmanamele]

Merhaba

Koda ne hacet, sayıyı 1.000.000'a bölmek yeter.

 

[simetri.]

Merhaba değerli hocam.

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

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

 

[uzmanamele]

Merhaba değerli hocam.

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

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

Merhaba

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

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

 

[simetri.]

Ç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.

 

[uzmanamele]

Ç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.

Cells(i, "B") = Round((Cells(i, "A") / 1000000), 1)