Net Tutardan Brüt Tutarı Bulmak.

[karagol]

Hayırlı günler. Ben, Almak istediğim net tutardan yola çıkarak bu net tutarın kesintilerden önceki brütünü bulmak istiyorum. Örnek dosyayı ekte gönderiyorum.

Yardım ederseniz çok sevineceğim. Şimdiden çok teşekkür ederim. Allah'a emanet olun.

Bu arada; Hayırlı yıllar, 2016 yılının bütün insanlığa huzur ve barış getirmesini dilerim.

Şaban KARAGÖL

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyin. Makroyu çalıştırmadan önce C ve J sütunlarına örneğin 1000 gibi bir değer yazın:

Sub Brüt()
For i = 10 To 16 Step 2
    Cells(i, "F").GoalSeek Goal:=Cells(i, "B"), ChangingCell:=Cells(i, "C")
    Cells(i, "M").GoalSeek Goal:=Cells(i, "I"), ChangingCell:=Cells(i, "J")
Next
End Sub

 

[karagol]

Hocam kusura bakmayın. Makroyu makro olarak kaydettim, ancak olmadı.
Ekte gönderdiğim dosya üzerinde uygulayarak, dosyayı o gönderirseniz çok sevinirim. Yardımınız için şimdiden çok teşekkür ederim. Allah'a emanet olun.

 

[YUSUF44]

Dosya ektedir.

 

[karagol]

Teşekkür ederim.

Hocam çok teşekkür ederim. Allah razı olsun. Hakkınızı helal edin, Allah'a emanet olun.