bir hücredeki iki farklı rakama kg yazdırmak

[renaksk]

merhaba. hücredeki rakamın yanına kg yazdırmak istediğimizde;

hücre biçimlendir>isteğe uyarlanmış>

#.##0,00 "Kg"

yazıp kg yazdırabiliyoruz.

ancak hücrede virgülle ayrılmış 2 farklı kg bilgisi varsa nasıl kg yazabiliriz. örneğin bir hücrede

26,22, 117,00

verisi var. bunu 26,22 kg, 117,00 kg şeklinde nasıl yazabiliriz? teşekkürler

 

[Muzaffer Ali]

Merhaba.
Bir hücrede 26,22, 117,00 yazıyorsa bu rakam değil metindir.
İsteğe uyarlanmış biçimi sadece rakamlarda kullanabilirsiniz.
Ama eğer isterseniz kod ile yapılabilir.

Aşağıdaki kodu sayfanın kod kısmına kopyalayıp çalıştırın.

Sub test()
    Dim Bak As Long
    Dim N As Variant
    For Bak = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        N = Split(Cells(Bak, "A"), ", ")
        If UBound(N) > 0 Then
            Cells(Bak, "A") = N(0) & " Kg, " & N(1) & " Kg "
        Else
            Cells(Bak, "A") = Cells(Bak, "A") & " Kg"
        End If
    Next
    MsgBox "Tamamlandı.", vbInformation
End Sub

 

[renaksk]

teşekkür ederim.