3 Kritere göre otomatik ücret hesaplama makrosu

[cebelitarık]

Değerli forum üyesi arkadaşlar

Ekte sunduğum dosya içerindeki açıklamalarıma göre aşağıdaki makro konusunda yardımcı olacak arkadaşlara şimdiden çok teşekkür ederim.

Private Sub Worksheet_Change(ByVal Target As Range)
a = 10.5
b = 13.1
c = 3.6
d = 0.67
e = 0.25
f = 2.09
'n ve m sayfa sayısı için katsayı
Sayfasayısı=Cells(Target.Row, "D")
If Cells(Target.Row,"E")=ÇİFT Then Sayfasayısı=2* Sayfasayısı Else Sayfasayısı=1*Sayfasayısı
n = (Sayfasayısı - 100) / 50
n = WorksheetFunction.RoundUp(n, 0)
m = (Sayfasayısı, "D").Value - 149) / 100
m = WorksheetFunction.RoundUp(m, 0)
If n < 1 Then n = 0
If m < 1 Then m = 0
If Cells(Target.Row, "I").Value = 1 Then
h = a + c + (n * c)
ı = h * 0.3
y = 3 * f
o = d + (m * e)
v = (ı + y + o) * 0.18
ü = h + ı + y + o + v
ü = WorksheetFunction.Round(ü, 2)
Cells(Target.Row, "J").Value = ü
End If
If Cells(Target.Row, "I").Value = 5 Then
h = b + c + (n * c)
ı = h * 0.3
y = 4 * f
o = d + (m * e)
v = (ı + y + o) * 0.18
ü = h + ı + y + o + v
ü = WorksheetFunction.Round(ü, 2)
Cells(Target.Row, "J").Value = ü
End If
If Cells(Target.Row, "I").Value = 6 Then
y = 4 * f
o = d + (m * e)
v = (y + o) * 0.18
ü = y + o + v
ü = WorksheetFunction.Round(ü, 2)
Cells(Target.Row, "J").Value = ü
End If
If Cells(Target.Row, "I").Value = 7 Then
h = b + c + (n * c)
ı = h * 0.3
y = 3 * f
o = d + (m * e)
v = (ı + y + o) * 0.18
ü = h + ı + y + o + v
ü = WorksheetFunction.Round(ü, 2)
Cells(Target.Row, "J").Value = ü
End If
End Sub

 

[cebelitarık]

Arkada&#351;lar yard&#305;mc&#305; olacak kimse yokmu?