net maaştan brüt maaşa vba denemesi

[green71tr]

Merhaba arkadaşlar,

vba konusunda oldukça acemiyim. öğreneyim diye biraz karıştırdım ve battım.

amacım net maaştan brut maaşa ulaşmak. bunu excel de goal seek - hedef ara ile gayet kolay yapıyorum. dedim ya amacım vba öğrenmek...

yazdığım kodlar aşağıda ama if döngüsünde problem var. yardımcı olursanız sevinirim.

iyi günler,

Sub brutubul()
Dim brut As Currency
Dim ssk As Currency
Dim matrah As Currency
Dim vergi As Currency
Dim kesintiler As Currency
Dim net As Currency
Dim inet As Currency
inet = InputBox("lütfen istenilen net ücreti giriniz")
ssk = brut * 14 / 100
matrah = brut - ssk
vergi = matrah * 25 / 100
kesintiler = ssk + vergi
net = brut - kesintiler

If net < inet Then brut = brut + 1
Else MsgBox ("brut ucret"), brut
End If

End Sub


if döngüsü net ücret ile istenilen net ücreti (inet) kıyasyalarak her seferinde brütü 1 ytl artıracak. (farka göre daha yüksek artırımlı çalışmayı bu çalışmadan sonra yapıcam - yani inet-net >50 ise 30 artır gibi...)

 

[mehmett]

Aşağıdaki gibi bir deneyin,

Sub brutubul()
Dim brut As Currency
Dim ssk As Currency
Dim matrah As Currency
Dim vergi As Currency
Dim kesintiler As Currency
Dim net As Currency
Dim inet As Currency
inet = InputBox("lütfen istenilen net ücreti giriniz")
brut = inet + 1
10 brut = brut + 1
ssk = brut * 14 / 100
matrah = brut - ssk
vergi = matrah * 25 / 100
kesintiler = ssk + vergi
net = brut - kesintiler
If net < inet Then GoTo 10
MsgBox "brut ucret: " & brut
End Sub

 

[green71tr]

teşekkürler mehmett,

elinize sağlık, yavaş yavaş oturacak kafama

hoşçakalın,