Kod ile Yüzde Çıkartma işlemi

[tamer42]

Merhaba,
Ekli dosyada Kod ile çıkartma işlemi yapmaya çalışıyorum, fakat formül ile yapılan değeri alamıyorum.

yardımcı olur musunuz? nerede hata yapıyor olabilirim?

iyi Çalışmalar.

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu deneyin.

Sub TestYuzde()
    Dim Bak As Integer
    Dim Sonuc
    
    For Bak = 3 To Cells(Rows.Count, "A").End(xlUp).Row
        Sonuc = Range("B" & Bak) - Range("A" & Bak)
        ActiveSheet.Range("C" & Bak).Value = Format(Sonuc, "0.0%")
    Next
End Sub