Kıdem Tazminatı Hesaplaması

[muzaffer.sm]

Arkadaşlar Merhaba,

Excel tablosunda hesaplamasını yaptığım kıdem tazminatı tutarları mevcut.Bu sayfayı hesaplamalarla dolduruyorum.Şöyle hesaplama otomasyonu olabilir mi ? İlgili sayfada biz herhangi birisinini hesabını yazmak üzere satırları muhtelif zamanlarda doldururken, formülleri kopyalamak yerine Çalışma kitabının selectionchange bölümünde bunlar makrolar ile formüle edilebilir mi ? Hesaplamalar çalışma kitabında ilgili formüllerinde yer aldığı için ayrıca burada açıklama yapmadım.
Şimdiden teşekkürler, Saygılarımla.

http://www.dosyaupload.com/14Jm

 

[PLİNT]

Merhaba
Yeni kayıtları birer birer yapıyorsanız, ek dosyadaki gibi olabilir.
http://www.dosyaupload.com/14KF veya
http://s2.dosya.tc/server3/g58gp7/Kitap2.zip.html

Private Sub Worksheet_Change(ByVal Target As Range)
x = Cells(Cells.Rows.Count, "E").End(3).Row
If Intersect(Target, Cells(x, "E")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Cells(Cells.Rows.Count, "J").End(3).Row - x > 1 Then Application.EnableEvents = True: Exit Sub
If IsDate(Target) = False Then GoTo s:
If CDbl(Target.Value) > CDbl(Date) Then
s: MsgBox "HATALI GİRİŞ TARİHİ", vbCritical
Target.Value = "": Range(Target.Address).Select: GoTo s1: End If
Range("A" & x + 1 & ":M" & x + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("F" & x - 1 & ":M" & x - 1).AutoFill Destination:=Range("F" & x - 1 & ":M" & x), Type:=xlFillDefault
Cells(x, "A") = x - 1
x2 = Cells(Cells.Rows.Count, "J").End(3).Row
Range("J" & x2 & ":L" & x2).FormulaR1C1 = "=SUBTOTAL(9,R[" & (x2 - 2) * -1 & "]C:R[-2]C)"
s1:
Application.EnableEvents = True
End Sub

 

[muzaffer.sm]

Merhaba, Sayın PLİNT

Çok teşekkür ediyorum. Şekle göre işlem tamam. Anladığım kadarı ile ilk satırdaki formülleri korumamız gerekiyor. İlk satırdaki formüller silinir ise devamındaki gelen satırlarda formüller oluşmayacak gibi bir durum var sanki.Burada doğru muyum ? Kod gördüğüm kadarı ile İlk satırdaki formülleri kopyalayıp işlem yapıyor.Birileri farkında olmadan ilk satırı, yada satırları silmeleri halinde tüm işleyiş bozulur gibi.Bunu nasıl önleyebiliriz ?
Saygılarımla.

 

[PLİNT]

Merhaba, Sayın PLİNT
Birileri farkında olmadan ilk satırı, yada satırları silmeleri halinde tüm işleyiş bozulur gibi.Bunu nasıl önleyebiliriz ?
Saygılarımla.

Merhaba Muzaffer bey, saygı bizden.
Yukarıda bahsettiğiniz ihtimale karşı aşağıdaki dosyayı deneyelim.
Eklenen formüllerde eksiklik varsa bildirirsiniz.
http://www.dosyaupload.com/1UQx

[SIZE="2"]Private Sub Worksheet_Change(ByVal Target As Range)
x = Cells(Cells.Rows.Count, "E").End(3).Row
If Intersect(Target, Cells(x, "E")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Range("F2").FormulaR1C1 = "=TODAY()"
Range("G2").FormulaR1C1 = "=DATEDIF(RC[-2],RC[-1],""y"")"
Range("H2").FormulaR1C1 = "=DATEDIF(RC[-3],RC[-2],""ym"")"
Range("I2").FormulaR1C1 = "=DATEDIF(RC[-4],RC[-3],""md"")"
Range("J2").FormulaR1C1 = "=(RC[-6]*RC[-3])+RC[-6]/12*RC[-2]+(RC[-6]/12/30*RC[-1])"
Range("K2").FormulaR1C1 = "=RC[-1]/1000*PARAMETRE!R4C1"
Range("L2").FormulaR1C1 = "=RC[-2]-RC[-1]"
Range("M2").FormulaR1C1 = _
"=DATEDIF(RC[-8],RC[-7],""y"")&""  ""&""Yıl""&""  ""&DATEDIF(RC[-8],RC[-7],""ym"")&""  ""&""Ay""&""  ""&DATEDIF(RC[-8],RC[-7],""md"")&""  ""&""Gün"""
Range("F2:M2").AutoFill Destination:=Range("F2:M" & Target.Row - 1), Type:=xlFillDefault
If Cells(Cells.Rows.Count, "J").End(3).Row - x > 1 Then Application.EnableEvents = True: Exit Sub
If IsDate(Target) = False Then GoTo s:
If CDbl(Target.Value) > CDbl(Date) Then
s: MsgBox "HATALI GİRİŞ TARİHİ", vbCritical
Target.Value = "": Range(Target.Address).Select: GoTo s1: End If
Range("A" & x + 1 & ":M" & x + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("F" & x - 1 & ":M" & x - 1).AutoFill Destination:=Range("F" & x - 1 & ":M" & x), Type:=xlFillDefault
Cells(x, "A") = x - 1
x2 = Cells(Cells.Rows.Count, "J").End(3).Row
Range("J" & x2 & ":L" & x2).FormulaR1C1 = "=SUBTOTAL(9,R[" & (x2 - 2) * -1 & "]C:R[-2]C)"
Cells(Target.Row + 1, "B").Select
s1:
Application.EnableEvents = True
End Sub[/SIZE]

 

[assenucler]

Sayın PLİNT,

Emek ve katkılarınız için teşekkürler.

Sevgi ve saygılar.

 

[PLİNT]

Sayın PLİNT,
Emek ve katkılarınız için teşekkürler.
Sevgi ve saygılar.

Merhaba
Bilmukabele, saygı bizden, teşekkür ederim; sn.assenucler

 

[muzaffer.sm]

Merhaba sayın PLİNT,

İşleminiz çok güzel olmuş.Yerinde ve gayet olumlu bir tablo oldu. Çok teşekkür ediyorum.

Saygılarımla.

 

[Murat OSMA]

Selamlar,

Bu işçilerin Kıdem ve İhbar tazminatları hesaplanırken yol, yemek, varsa prim, ikramiye vs. paraları dahil edilmiyor mu?​

 

[muzaffer.sm]

Merhaba Murat Bey,

Elbette hesapların içine bir takım girmesi gereken rakamlar var. Bunlar hesaplamaya son tutar haline gelmiş olan Brüt ücret üzerinde hesaplanacak durumdadır. Bu tabloda da kişilerin Brüt ücreti bu yönde bulunmuştur.