Soru Ürün Kodunun Sonuna (.25) eklemek

[bulentkars]

Arkadaşlar Merhaba;

A Kolonunda Ürün kodları var, ben ürün kodlarının sonuna .25 eklemek istiyorum, Örneğin ürün kodu 123 olması gereken 123.25 yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürler

 

[Muzaffer Ali]

Merhaba.

Sub Test()
    Dim Bak As Long
    For Bak = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(Bak, "A") = Cells(Bak, "A") & ".25"
    Next
End Sub

 

[bulentkars]

Muzaffer Ali Bey
Çok teşekkür ederim. tam istediğim gibi olmuş ancak, .20 veya .10 yazdığımda sıfırları yazmıyor, sonda sıfır varsa eklemyor

 

[bulentkars]

Birde yeni farkketim nokta yerine virgül yazıyor

 

[bulentkars]

Muzaffer Ali Bey,

Kodu yapmaya çalıştım ancak yapamadım, olması gereken kodu "G1" satırına girip makroyu çalıştırdığımda kodaların sonuna nokta koyarak işlem yapmasını istiyorum. Örneğin "G1" Satırına 20 girdiğimde hücrelerin sonuna "123.20" yapacak. teşekkürler

Sub Hucre_Sonuna_Depo_Kodu_Ekle()
    
    Dim Bak As Long
    
    yer = Range("G1").Select '  G1 Satırına 20 yazdığımda A sutundaki kodların sonuna 123.20 gelmesini istiyorum
    
    For Bak = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(Bak, "A") = Cells(Bak, "A") & "" & "." & yer
    Next

 

[Muzaffer Ali]

O zaman aşağıdaki kodu kullanın.

Sub Test()
    Dim Bak As Long
    For Bak = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(Bak, "A").NumberFormat = "@"
        Cells(Bak, "A").Value = Cells(Bak, "A").Value & "." & Range("G1").Value
    Next
End Sub

 

[bulentkars]

Muzaffer Ali Bey,

Çok çok teşekkür ederim. İyiki varsınız..

 

[Suddedly]

Merhabalar. Vba bilmediğim için başka bir yöntem önereyim.
veriyi girdiğiniz hücre veya sütunu seçip hücre biçimlendir dedikten sonra isteğe uyarlanmışı seçerek yan kısma 0"."25 yazıp kapattığınızda da işinizi görür diye düşünüyorum.