Function vhh(a, b As Variant)
c = Range("a10")
d = Range("a11")
e = Range("a12")
f = Range("a13")
g = Range("b10") '15
h = Range("b11") '20
k = Range("b12") '25
m = Range("b13") '30
If a > e And a < f Then vhh = (b * m) / 100
If a > d And a < e Then vhh = (b * k) / 100
If a > c And a < d Then vhh = (b * h) / 100
If a < c + 1 Then vhh = (b * g) / 100
If a < c + 1 And a + b > c Then vhh = ((a + b - c) * h) / 100 + (c - a) * g / 100
If a < d + 1 And a + b > d Then vhh = ((a + b - d) * k) / 100 + (d - a) * h / 100
If a < e + 1 And a + b > e Then vhh = ((a + b - e) * m) / 100 + (e - a) * k / 100
End Function
Yukarıdaki kodlarla G.V.hesaplatıyorum. Sorun şurada (c,d,e,f,g,h,k,m ) atama yaptığım hücrelerde değişiklik yaptığımda sonuç değişmiyor. Ancak a ve b değikenlerinide değiştirirsem doğru sonucu veriyor. Bu konuda bana yardımcı oalbilirmisiniz.
Çalışmalarınızda başarılar dilerim
c = Range("a10")
d = Range("a11")
e = Range("a12")
f = Range("a13")
g = Range("b10") '15
h = Range("b11") '20
k = Range("b12") '25
m = Range("b13") '30
If a > e And a < f Then vhh = (b * m) / 100
If a > d And a < e Then vhh = (b * k) / 100
If a > c And a < d Then vhh = (b * h) / 100
If a < c + 1 Then vhh = (b * g) / 100
If a < c + 1 And a + b > c Then vhh = ((a + b - c) * h) / 100 + (c - a) * g / 100
If a < d + 1 And a + b > d Then vhh = ((a + b - d) * k) / 100 + (d - a) * h / 100
If a < e + 1 And a + b > e Then vhh = ((a + b - e) * m) / 100 + (e - a) * k / 100
End Function
Yukarıdaki kodlarla G.V.hesaplatıyorum. Sorun şurada (c,d,e,f,g,h,k,m ) atama yaptığım hücrelerde değişiklik yaptığımda sonuç değişmiyor. Ancak a ve b değikenlerinide değiştirirsem doğru sonucu veriyor. Bu konuda bana yardımcı oalbilirmisiniz.
Çalışmalarınızda başarılar dilerim