Yüzde hesaplama yardım

[sakoz]

Arkadaşlar merhaba ,

ekteki örnek dosyada ortalama giriş ve ortalama çıkış tutarları var.(a ve b sütunlarında) C sütununada yüzdesini hesaplamak istiyoruz.Yani yüzde kaç karla veya zararla satılmış onu bulmak istiyoruz.
Yardımcı olursanız sevinirim.

http://s9.dosya.tc/server3/cdjhqd/deneme.rar.html


Saygılar,

 

[çıtır]

C3 Kopyalayıp aşağı çekin.Hücre Biçimini % olarak ayarlayın

=(B3-A3)/A3

 

[sakoz]

alış fiyatı - 150
satış fiyatı - 764 olanda yüzde kar/zarar 409,33 olarak çıkıyor bu doğrumudur ?

 

[çıtır]

alış fiyatı - 150
satış fiyatı - 764 olanda yüzde kar/zarar 409,33 olarak çıkıyor bu doğrumudur ?

Sn.Sakoz; formülü doğruluğunu şu şekilde kontrol edin.
100 alış fiyatı yazın 120 satış fiyatı yazın Kar % kaç olması lazım?
% 20 mi ? sonuç doğru mu ?
Diğerlerinde de doğrudur.
Kolay gelsin.

 

[sakoz]

Sayın çıtır teşekkür ederim elinize sağlık.
Peki bunu makro ile nasıl yapabiliriz... Epey bir dosyamız ve sheet 'imiz var

Şimdiden teşekkürler..

 

[çıtır]

Makro konusunda iyi değilim, ançak sizin küçük dosya için bu olabilir.

Sub kar()
Dim i As Integer
Set s1 = Sheets("Sayfa1")
For i = 3 To Range("A65500").End(xlUp).Row
s1.Cells(i, 3) = (s1.Cells(i, 2) - (s1.Cells(i, 1))) / s1.Cells(i, 1)
Next i
End Sub