virgülden sonra

[osmandemir]

merhaba herkese kolay gelsin 167,1666666666667 sayısını 167,167 olarak çevirmek istiyorum hücre biçimlendiri denedim ama yapamadım kolayı varmıdır

 

[dus_sokagi]

veri A1 de olduğu düşünülürse
B1'e

=YUVARLA(A1;3) yazınız.

 

[Ömer]

Merhaba,

Biçim olarak mı, yoksa sayı olarak mı. Ve aynı hücrede mi, farklı hücrede mi?

 

[osmandemir]

biçim olarak sütunda 217,133333333333 gibi 167,1666666666667 gibi sayılar var bunları 217,133 ve 167,167 biçimlendirmek istiyoruz

 

[Ömer]

Hücre biçimlendirme / sayı / binlik ayıraçı işaretleyin ve ondalık basamak sayı seçeneğini 3 yapn.

 

[osmandemir]

vigülden sonraki sayıları yine gösteriyor 247,666666666667 gibi

 

[Ömer]

Biçim olarak göstermez. Size sorduğumda biçim olarak değişmesi yeterli demiştiniz.

Module kopyalayıp çalıştırın.

Sub Bicim()
    
    Dim i As Long
    
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If IsNumeric(Cells(i, "A")) = True Then
            Cells(i, "A") = Round(Cells(i, "A"), 3)
        End If
    Next i
            
End Sub

.