Tavanı aşan net maaşlarda brüt bulma

[Mehmet Şahin]

sayın dentex
sizden istediğim yardım örnek toplayabilmek için dosyanın ücretsiz sitelere upload edilmesi konusunda idi. bu konuda neresinde yanlış yaptığımı anlamadım.

sayın feridici genç, yanlış yok. Kendi payıma, geri dönüş alamamak demotive eden bir davranış biçimi.

 

[feridici_genc]

dosya ekleyerek anlatayı yusuf bey;
SARI ALANLARIN TOPLAMI BÜRÜT ÜCRETİ VERMESİ GEREKİR. bu işi terse nasıl çevirebilirim. yardım istediğim konu bu.

http://www.dosya.tc/server36/zKkvTp/sariiiiii.xlsx.html

 

[feridici_genc]

sayın feridici genç, yanlış yok. Kendi payıma, geri dönüş alamamak demotive eden bir davranış biçimi.

özür dilerim böyle davrandığım için. böyle anlaşılacağını düşünemedim.

 

[YUSUF44]

Çözüm olarak her satırda olması gereken net tutarı A sütununda 23. satırdan itibaren yazın. Bir modüle aşağıdaki kodları ekleyip makroyu çalıştırın:

Sub brüt()
For ay = 23 To 34
    net = Cells(ay, 1)
    Cells(ay, "w").GoalSeek Goal:=net, ChangingCell:=Cells(ay, "C")
    Cells(ay, "C") = Round(Cells(ay, "C"), 2)
Next
End Sub

 

[feridici_genc]

makro lu excel tabloları yasak çalıştığımız yerde yinede teşekkür ederim emeğinize ayırdığınız zamana.

 

[YUSUF44]

Ben makroyu excel'in hedef bul özelliğini kullanarak oluşturdum. Manuel olarak her satır için ayrı ayrı hedef bulma işlemi yaptırabilirsiniz ancak çok vaktinizi alır. Örnek dosyanızdaki gibi asgari ücret düzeyinde formülle çözüm zor olsa da yapılabilir ama ilk başta belirttiğiniz gibi 22000 net tutar için farklı kademeler nedeniyle formülle çözmek çok çok çok zor olur (ben yapamam mesela).

 

[feridici_genc]

anlıyorum yusuf bey, biliyorum çok zor olduğunu. nasip başka bir yol bulacağız artık. teşekkür ederim.

 

[halit3]

keşke şu örnek dosyanızı önce ekleseydiniz.

Net tutarı 765,67 nin bürüt tutarını arıyoruz.

Buradaki uygulama gelir vergisi oranı %15 olarak kabul edilmiştir.

Söylediklerimi aynen örnek dosyanızda yapın

1-X20 hücresine 100 yazın bu yüz sayısı yüzdeyi ifade ediyor

2-Y21 hücresine 14 yazın sgk işçi kesintisi oranı

3-Z21 hücresine 1 yazın İŞS. İŞÇİ kesintisi oranı

4-AA21 hocresine 0,759 yazın damga vergisi oranı

5-AB21 hücresine 12,75 yazın gelir vergisi oranı

şimdi 12,85 nerden geliyor diyeceksiniz.

gelir vergisi oranı 15

gelir vergisi matrağını etkileyen SGK İŞÇİ KES. H sütünundaki oran 14 ve M sütünundaki oran 1

gelir vergisini etkileyen eksi oran:14+1=15

bu çıkan onbeşi de gelir vergisi oranı ile yani onbeş ile çarpıyoruz: 15*15=2,25

çıkan 2,25 i de gelir vergisi oranından çıkartıyoruz:15-2,25=12,75

şimdi Y21+Z21+AA21+AB21 topluyoruz=28,55

bu çıkan 28,55 i de yüzden çıkartıyoruz:100-28,55=71,45

Y23 hücresinede şu formülü yazın :=TABANAYUVARLA(W23/X20*100;0,01)

sonuç:1070,86

 

[halit3]

Bu da dosyanız

Hesaplamalar Y:AD sütunları arasında

 

[SENACIGDEM]

GoalSeek

Halit bey birşey sormak istiyorum.

GoalSeek makrosunu belirli sheet lerde çalıştırmak için ne yapmamız gerekiyor.

 

[SENACIGDEM]

GoalSeek

Halit bey birşey sormak istiyorum.

GoalSeek makrosunu belirli sheet lerde çalıştırmak için ne yapmamız gerekiyor.

 

[SENACIGDEM]

GoalSeek makrosunu belirli sheet lerde çalıştırmak için ne yapmamız gerekiyor

 

[halit3]

Halit bey birşey sormak istiyorum.

GoalSeek makrosunu belirli sheet lerde çalıştırmak için ne yapmamız gerekiyor.

Bunun işlevini bilmiyorum aşağıdaki link de formüllerle bir çalışma mevcut

http://www.excel.web.tr/f47/goal-seek-formule-etme-t132358.html

 

[feridici_genc]

akıl edemedim halit bey eklemeyi. teşekkür ederim yardımınız için.

 

[halit3]

akıl edemedim halit bey eklemeyi. teşekkür ederim yardımınız için.

Sorunuz çözüldümü

 

[feridici_genc]

yusuf bey makro ile çözmeye çalıştı ama makro çalışmıyor maalesef iş yerinde.
sizin yönteminiz de ilk dilime kadar yardımcı oluyor. diğer dilimler ve tavanın aşılması sonrasında pek yardımcı olamıyor.
bu işin olmayacağına kanaat getirdim artık

 

[Zeki Gürsoy]

...makro çalışmıyor maalesef iş yerinde.
.
.

Bu bana göre büyük bir problem. Çünkü bir tam gününü alabilecek bir işi, makro içeren bir dosya ile dakikalar içinde çözüme kavuşturan insanlar varken... Makronun çalışmamasının sebebi;

- Yönetici talimatıyla mı? Sunucu gibi bir engel mi? yoksa kullandığınız office versiyonunun professional yerine starter, student gibi kısıtlı bir versiyon olmasından mı kaynaklanıyor?

 

[halit3]

Buradaki dilimleri kullanıcı tanımlı kod ile buldum.
İşlemler Sayfa4 de




Bu kodu bir modülün içine kapyalayın
kod:

Function gelir(kümülatif_matrah, matrah)

If kümülatif_matrah = "" Then
gelir = ""
Exit Function
ElseIf matrah = "" Then
gelir = ""
Exit Function
ElseIf IsNumeric(kümülatif_matrah) = False Then
gelir = ""
Exit Function
ElseIf IsNumeric(matrah) = False Then
gelir = ""
Exit Function
End If


sat = 4
ReDim a(sat)
ReDim b(sat)
ReDim C(sat)

ReDim vergi1(sat)
ReDim vergi2(sat)
deg1 = 0
deg2 = 0
i = 1
rakam1 = kümülatif_matrah + matrah
rakam2 = kümülatif_matrah
'______________________________
'vergi dilimleri
a(1) = 11000         '1. dilim
a(2) = 27000         '2. dilim
a(3) = 60000         '3. dilim
a(4) = 500000000 * (rakam1) 'diğerleri
'______________________________
'yüzde oranları
b(1) = 0.15          '1. dilim
b(2) = 0.2           '2. dilim
b(3) = 0.27          '3. dilim
b(4) = 0.35          'diğerleri
'______________________________
C(1) = a(1)
C(2) = a(2) - a(1)
C(3) = a(3) - a(2)
C(4) = a(4) - a(3)

'______________________________

While rakam1 > 0
'---------------------------------
If rakam1 >= C(i) Then
vergi1(i) = ((C(i) * b(i)) / 1)
rakam1 = rakam1 - C(i)
ElseIf rakam1 < C(i) Then
C(i) = rakam1
rakam1 = rakam1 - C(i)
vergi1(i) = ((C(i) * b(i)) / 1)
Else
vergi1(sat) = ((C(sat) * b(sat)) / 1)
End If
deg1 = deg1 + vergi1(i)
'---------------------------------
If rakam2 >= C(i) Then
vergi2(i) = ((C(i) * b(i)) / 1)
rakam2 = rakam2 - C(i)
ElseIf rakam2 < C(i) Then
C(i) = rakam2
rakam2 = rakam2 - C(i)
vergi2(i) = ((C(i) * b(i)) / 1)
Else
vergi2(sat) = ((C(sat) * b(sat)) / 1)
End If
deg2 = deg2 + vergi2(i)
'---------------------------------
i = i + 1
Wend


gelir = Round(deg1 - deg2, 2)

End Function

 

[YUSUF44]

Halit Bey, arkadaş makrolu çözüm kullanamıyormuş maalesef. Ben önceki mesajlarımdan birinde çok basit bir Hedef Bul makrosuyla çözüm paylaşmıştım ama işyerlerinde makro kullanmak yasak olduğundan arkadaşın işine yaramadı.

Verdiğiniz fonksiyonun gelir vergisi matrahını ayarlaması çok güzel ancak arkadaşın ısrarlarıma rağmen bir türlü anlatmadığı bir nokta da kişinin bir aylık SGK gelir tavanı diye bir uygulama olması. Sanıyorum aylık asgari ücretin 6,5 katı gibi bir tutar aylık tavan oluyor. Bunu aşan aylık gelirler sgk kesintisine tabi olmuyor. Arkadaşın en baştan beri örnek verdiği 22000 gibi aylık gelirler de bu durumda sizin fonksiyonla hesaplanamıyor maalesef.

 

[halit3]

Halit Bey, arkadaş makrolu çözüm kullanamıyormuş maalesef. Ben önceki mesajlarımdan birinde çok basit bir Hedef Bul makrosuyla çözüm paylaşmıştım ama işyerlerinde makro kullanmak yasak olduğundan arkadaşın işine yaramadı.

Verdiğiniz fonksiyonun gelir vergisi matrahını ayarlaması çok güzel ancak arkadaşın ısrarlarıma rağmen bir türlü anlatmadığı bir nokta da kişinin bir aylık SGK gelir tavanı diye bir uygulama olması. Sanıyorum aylık asgari ücretin 6,5 katı gibi bir tutar aylık tavan oluyor. Bunu aşan aylık gelirler sgk kesintisine tabi olmuyor. Arkadaşın en baştan beri örnek verdiği 22000 gibi aylık gelirler de bu durumda sizin fonksiyonla hesaplanamıyor maalesef.

Kendi örnek dosyasında SGK gelir tavanı gibi bir uygulama gözükmüyor
ayrıca AE sütunundaki gelir vergisi de S sütünundaki formüllerlede yapılabilir.