ondalık sayısı

[memoli1970]

selamlar ,

sutunlardaki sayılarımı virgulden sonra çok haneli VBA ile virgulden sonra 2 hane yapmak istiyorum .

vba kodunu nasıl yazabılırım ? yardımcı olabılırmısınız

teşekkur ederim..

 

[Ömer]

Merhaba

B2:C4 aralığı için:

Sub test()
    Dim c As Range
    For Each c In Range("B2:C4")
        If c.Value <> "" Then
            c.Value = Round(c.Value, 2)
        End If
    Next
End Sub

 

[memoli1970]

Merhaba

B2:C4 aralığı için:

Sub test()
    Dim c As Range
    For Each c In Range("B2:C4")
        If c.Value <> "" Then
            c.Value = Round(c.Value, 2)
        End If
    Next
End Sub

teşekkür ederim ömer bey

 

[memoli1970]

Merhaba

B2:C4 aralığı için:

Sub test()
    Dim c As Range
    For Each c In Range("B2:C4")
        If c.Value <> "" Then
            c.Value = Round(c.Value, 2)
        End If
    Next
End Sub

ömer bey , verdiğiniz kod çalışıyor şimdi denedim lakin sanırım ben eksik ifade ettim. mazur görün

alttaki resimde ifade etmeye çalıştım.
sutunlarda çok haneli sayılar var , ben ondalık azalt ile 2 basamaklı görüntülemek istiyorum
bu konuda yardımcı olabılırmısınız ?

2022-08-16_21-53-21.jpg dosyasını indir - download

2022-08-16_21-53-21.jpg dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[Ömer]

Sorun değil.
İstediğiniz bu mu?

Sub test1()
    Dim c As Range
    For Each c In Range("B2:C4")
        If c.Value <> "" Then
            c.NumberFormat = "0.00"
        End If
    Next
End Sub

 

[memoli1970]

Sorun değil.
İstediğiniz bu mu?

Sub test1()
    Dim c As Range
    For Each c In Range("B2:C4")
        If c.Value <> "" Then
            c.NumberFormat = "0.00"
        End If
    Next
End Sub

evet sorun çözüldü , teşekkür ederim ellerinize sağlık ..