noktadan sonrasını sildirmek

[xlomba]

Arkadaşlar elimde 10122,35 gibi rakamlar var.(1000 ayırıcı ve virgülden sonrasını gösterme tıkladıktan sonra 10.122 kalıyor ancak bana 10.1 olarak göstermesi gerekli.İsteğe uyarlanmış bölümünden uğraştım olmadı.Yardımcı olabilecek arkadaşlara teşekkürler.

 

[Murat OSMA]

A sütununda belirttiğiniz rakamların olduğunu düşündüm.
Şu kodu bir deneyiniz;

Sub Emre()
    Dim i As Integer
        For i = 1 To Range("A65536").End(3).Row
            Cells(i, 2) = FormatNumber(Cells(i, 1) / 1000, 1) * 1
        Next i
    i = Empty
End Sub

 

[mersilen]

Merhaba
..

cevap yanlış olduğundan sildim

 

[baydeniro]

Teşekkürler sayın Murat Osma.

 

[xlomba]

teşekkürler.