Brüt Ücret Hesaplama Mantığı

Bu dosya, B2 hücresine girilen net ücretin brüt karşılığını VBA ile hesaplayan bir örnektir. Hesaplama formülle değil, sayfaya bağlı bir makro ile yapılır; sonuçlar C2 ve D2 hücrelerine yazılır.

Dosyanın içeriği​

• Sayfa1: B1:S20 aralığını kapsayan tek sayfadır. B2 net ücretin girildiği hücredir, C2 hesaplanan brüt ücreti, D2 brüt ile net arasındaki oransal farkı gösterir. Sayfada ayrıca "VBA Brüt Ücret Hesaplama" başlığı yer alır.

Sayfada formül, grafik, tablo veya veri doğrulama bulunmaz; tüm hesap makro koduyla yapılır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kod, Sayfa1 sayfasının Worksheet_SelectionChange olayında çalışır; yani sayfada herhangi bir hücre seçildiğinde makro otomatik olarak yeniden hesaplar.

1. B2 hücresindeki değer net ücret olarak alınır.
2. Brüt tutar, net değerin bir fazlasından başlayarak birer birer artırılır.
3. Her adımda brüt tutar üzerinden %14 SSK kesintisi hesaplanır ve brütten düşülerek matrah bulunur.
4. Matrah üzerinden %25 vergi hesaplanır.
5. SSK ve vergi kesintileri brütten düşülerek net bulunur. Bu net, B2'deki değere ulaşana kadar döngü sürer.
6. Bulunan brüt tutar C2'ye yazılır; D2'ye ise (C2-B2)/ABS(B2) oranı yazılır.

Kodda dosya silme veya dışarıya bağlantı gibi zararlı bir işlem yoktur. Oranlar (%14 ve %25) kod içinde sabittir; farklı oranlar için makro kodundaki ilgili satırların değiştirilmesi gerekir. Brüt tutar birer birim artırılarak arandığı için sonuç tam sayıya yuvarlanmış değerdir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1'de B2 hücresine net ücret tutarını girin.
3. Sayfadaki başka bir hücreyi seçin; makro çalışır.
4. C2 hücresinde brüt ücreti, D2 hücresinde brüt ile net arasındaki oransal farkı okuyun.