Yüzde hesaplama

[sedat2161]

Hayırlı günler arkadaşlar. Ekli dosyamın içinde de izah ettim. G9 da bulunan tutarı =YUVARLA(((G9)*1/100);2)+G9 formülü ile H9 a yazacağım. Bunu butona ekleyerek bu aynı şekilde aşağıya doğru devam edecek. Yardımlarınızı bekliyorum.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub CommandButton1_Click()
    With Range("H9:H18")
        .Formula = "=IF(G9<>"""",ROUND(G9*(1+1%),2),"""")"
        .Value = .Value
    End With
End Sub