DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=YUVARLA(EĞER(D2-A2>$I$4;A2*35%;EĞER(VE(D2>$I$4;D2-$I$4<A2);(D2-$I$4)*35%+($I$4-D2+A2)*27%;EĞER(D2-A2>=$I$3;A2*27%;EĞER(VE(D2>$I$3;D2-$I$3<A2);(D2-$I$3)*27%+($I$3-D2+A2)*20%;EĞER(D2-A2>=$I$2;A2*20%;EĞER(VE(D2>$I$2;D2-$I$2<A2);(D2-$I$2)*20%+($I$2-D2+A2)*15%;A2*15%))))));2)
=YUVARLA(A2*0,759%;2)
=A2-B2-C2
Sub Makro2()
'
' Makro2 Makro
'
'
Range("E2").GoalSeek Goal:=InputBox("net tutar giriniz"), ChangingCell:=Range("A2")
End Sub
Sub brütbul3()
net = InputBox("Net tutar giriniz")
For i = 2 To [a2].End(xlDown).Row
Range("e" & i) = Range("g" & i)
Cells(i, 7) = Cells(i, 5).Value
Range("F" & i).GoalSeek Goal:=net, ChangingCell:=Range("B" & i)
brüt2 = Round(Range("B" & i), 2)
Range("B" & i) = brüt2
Range("g" & i) = brüt2 + Cells(i, 5)
Next
End Sub