• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Userform too Large Hk.

H

hilmitaranci

Katılım
14 Haziran 2007
Mesajlar
142
Excel Vers. ve Dili
2007
Merhabalar,


Aşağıda Userform1 üzerinde uygulamaya çalıştığım bir kod var.

Ancak çok uzun olduğu için ancak 6. aya kadar sorunsuz çalışıyor.

12 ayı birden yazdığımda Procedure Too Large hatası veriyor.

Kodları modüllerde böldüğü gibi bölmeye çalıştım ama maalesef işe yaramadım.


Bir öneride buluna bilirseniz çok sevinirim.




Private Sub UserForm_Initialize()

Dim S11 As Worksheet
Dim S12 As Worksheet ', TOPU As Single, SGKIS As Single, SGKISCI As Single, BRUTUCR As Single, STRS As Long, TOPISVMAL As Single, DESTOP As Single
Dim GNLISV As Single, SGKISCI As Single


Dim z As Integer
Dim a As Double, b As Double, c As Double, d As Double

Set ucret = Worksheets("datalar").Range("ab2:ab12005")
Set SGKIS = Worksheets("datalar").Range("ac2:ac12005")
Set iszisci = Worksheets("datalar").Range("ad2:ad12005")
Set kgvm = Worksheets("datalar").Range("ae2:ae12005")
Set agvm = Worksheets("datalar").Range("af2:af12005")
Set gelv = Worksheets("datalar").Range("ag2:ag12005")
Set damv = Worksheets("datalar").Range("ah2:ah12005")
Set brtucrt = Worksheets("datalar").Range("aI2:aI12005")
Set agii = Worksheets("datalar").Range("aj2:aj12005")
Set topod = Worksheets("datalar").Range("ak2:ak12005")
Set sgkisver = Worksheets("datalar").Range("al2:al12005")
Set iszisver = Worksheets("datalar").Range("am2:am12005")
Set TOPISVMAL = Worksheets("datalar").Range("an2:an12005")
Set DES5510 = Worksheets("datalar").Range("ao2:ao12005")
Set DESARGESGK = Worksheets("datalar").Range("at2:at12005")
Set desargegv = Worksheets("datalar").Range("au2:au12005")
Set desargedv = Worksheets("datalar").Range("av2:av12005")
Set DESTOP = Worksheets("datalar").Range("ax2:ax12005")
Set safkidtazm = Worksheets("datalar").Range("bp2:bp12005")
Set BRUTUCR = Worksheets("datalar").Range("AI2:AI12005")


Set kisi = Worksheets("datalar").Range("c2:c12005")
Set kisi_1 = Worksheets("Rapor").Range("Q3")

Set tesis = Worksheets("datalar").Range("a2:a12005")
Set tesis_1 = Worksheets("Rapor").Range("B3")

Set GOREV1 = Worksheets("datalar").Range("BI2:BI12005")
Set GOREV_1 = Worksheets("Rapor").Range("F3")


Set gorev2 = Worksheets("datalar").Range("BJ2:BJ12005")
Set gorev_2 = Worksheets("Rapor").Range("J3")

Set gorev3 = Worksheets("datalar").Range("BK2:BK12005")
Set gorev_3 = Worksheets("Rapor").Range("N3")

Set adsoyad1 = Worksheets("datalar").Range("C2:C12005")
Set adsoyad_1 = Worksheets("Rapor").Range("Q3")
Set adsoyad_2 = Worksheets("Rapor").Range("C23:C12005")

Set gtar = Worksheets("Rapor").Range("V23:V12005")

Set Ay = Worksheets("datalar").Range("f2:f12005")

GUN = Date



Set S11 = Sheets("sicil")
Set S12 = Sheets("datalar")


With WorksheetFunction

If .Proper(ActiveCell) = "Sicil Kartı" Then

If .CountIf(S12.Range("C:C"), Cells(ActiveCell.Row, "A")) = 0 Then

MsgBox "Kişi Bulunamadı"

Exit Sub

Else
STRS = .Match(Cells(ActiveCell.Row, "A"), S11.Range("C:C"), 0)

TOPU = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ab2:ab12005"), Worksheets("datalar").Range("c2:c12005"), Cells(ActiveCell.Row, "A"))
SGKIS = WorksheetFunction.SumIfs(Worksheets("datalar").Range("al2:al12005"), Worksheets("datalar").Range("c2:c12005"), Cells(ActiveCell.Row, "A"))
SGKISCI = WorksheetFunction.SumIfs(Worksheets("datalar").Range("am2:am12005"), Worksheets("datalar").Range("c2:c12005"), Cells(ActiveCell.Row, "A"))
BRUTUCR = WorksheetFunction.SumIfs(Worksheets("datalar").Range("AI2:AI12005"), Worksheets("datalar").Range("c2:c12005"), Cells(ActiveCell.Row, "A"))
TOPISVMAL = WorksheetFunction.SumIfs(Worksheets("datalar").Range("an2:an12005"), Worksheets("datalar").Range("c2:c12005"), Cells(ActiveCell.Row, "A"))
DESTOP = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ax2:ax12005"), Worksheets("datalar").Range("c2:c12005"), Cells(ActiveCell.Row, "A"))
GNLISV = TOPISVMAL + DESTOP

Label1.Caption = Format(TOPU, "#,##0.00")
Label2.Caption = Format(SGKIS, "#,##0.00")
Label3.Caption = Format(SGKISCI, "#,##0.00")
Label4.Caption = Format(BRUTUCR, "#,##0.00")
Label5.Caption = Format(GNLISV, "#,##0.00")
Label6.Caption = Format(DESTOP, "#,##0.00")
Label7.Caption = Format(TOPISVMAL, "#,##0.00")



Label12.Caption = S11.Cells(STRS, "C")
Label14.Caption = S11.Cells(STRS, "A")
Label16.Caption = S11.Cells(STRS, "AJ") & " / " & S11.Cells(STRS, "AK")
Label18.Caption = S11.Cells(STRS, "AN")

If S11.Cells(STRS, "G") = 1 Then
Label20.Caption = S11.Cells(STRS, "G") & "- " & "Normal Çalışan"
ElseIf S11.Cells(STRS, "G") = 2 Then
Label20.Caption = S11.Cells(STRS, "G") & "- " & "Emekli"
ElseIf S11.Cells(STRS, "G") = 32 Then
Label20.Caption = S11.Cells(STRS, "G") & "- " & "90 Gün F.H.Zamlı"
End If

If S11.Cells(STRS, "H") = "E" Then
Label22.Caption = "Evet"
Else
Label22.Caption = "Hayır"
End If

If S11.Cells(STRS, "I") = "E" Then
Label24.Caption = "Evet"
Else
Label24.Caption = "Hayır"
End If

Label26.Caption = Format(S11.Cells(STRS, "J"), "#,##.00") & " TL"

If S11.Cells(STRS, "O") > 1 Then
Label28.Caption = Format(S11.Cells(STRS, "O"), "#,##.00") & " TL"
Else
Label28.Caption = "-"
End If

If S11.Cells(STRS, "R") > 1 Then
Label30.Caption = Format(S11.Cells(STRS, "R"), "#,##.00") & " TL"
Else
Label30.Caption = "-"
End If

If S11.Cells(STRS, "S") > 1 Then
Label32.Caption = Format(S11.Cells(STRS, "S"), "#,##.00") & " TL"
Else
Label32.Caption = "-"
End If



End If: End If: End With



''---OCAK AYI
ocakucret = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ab2:ab12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 1)
Label1001.Caption = Format(ocakucret, "#,##0.00")

ocakisci = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ac2:ac12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 1)
Label1002.Caption = Format(ocakisci, "#,##0.00")

ocakiszisci = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ad2:ad12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 1)
Label1003.Caption = Format(ocakiszisci, "#,##0.00")

ocakkgvm = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ae2:ae12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 1)
Label1004.Caption = Format(ocakkgvm, "#,##0.00")

ocakagvm = WorksheetFunction.SumIfs(Worksheets("datalar").Range("af2:af12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 1)
Label1005.Caption = Format(ocakagvm, "#,##0.00")

ocakgelv = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ag2:ag12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 1)
Label1006.Caption = Format(ocakgelv, "#,##0.00")

ocakdamv = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ah2:ah12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 1)
Label1007.Caption = Format(ocakdamv, "#,##0.00")

ocakbrtucrt = WorksheetFunction.SumIfs(Worksheets("datalar").Range("aI2:aI12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 1)
Label1008.Caption = Format(ocakbrtucrt, "#,##0.00")

ocakagii = WorksheetFunction.SumIfs(Worksheets("datalar").Range("aj2:aj12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 1)
Label1009.Caption = Format(ocakagii, "#,##0.00")

ocaktopof = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ak2:ak12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 1)
Label1010.Caption = Format(ocaktopof, "#,##0.00")

ocaksgkisver = WorksheetFunction.SumIfs(Worksheets("datalar").Range("al2:al12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 1)
Label1011.Caption = Format(ocaksgkisver, "#,##0.00")

ocakiszisver = WorksheetFunction.SumIfs(Worksheets("datalar").Range("am2:am12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 1)
Label1012.Caption = Format(ocakiszisver, "#,##0.00")

ocakTOPISVMAL = WorksheetFunction.SumIfs(Worksheets("datalar").Range("an2:an12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 1)
Label1013.Caption = Format(ocakTOPISVMAL, "#,##0.00")

ocakDES5510 = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ao2:ao12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 1)
Label1014.Caption = Format(ocakDES5510, "#,##0.00")

ocakDESARGESGK = WorksheetFunction.SumIfs(Worksheets("datalar").Range("at2:at12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 1)
Label1015.Caption = Format(ocakDESARGESGK, "#,##0.00")

ocakdesargegv = WorksheetFunction.SumIfs(Worksheets("datalar").Range("au2:au12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 1)
Label1016.Caption = Format(ocakdesargegv, "#,##0.00")

ocakdesargedv = WorksheetFunction.SumIfs(desargedv, kisi, Cells(ActiveCell.Row, "A"), Ay, 1)
Label1017.Caption = Format(ocakdesargedv, "#,##0.00")

ocakDESTOP = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ax2:ax12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 1)
Label1018.Caption = Format(ocakDESTOP, "#,##0.00")

''Kıdem hesabı
DONEM = Sayfa4.Cells(48, 2)

Err.Clear

giristarihi = Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, "A"), Worksheets("sicil").Range("C:AN"), 38, 0)

giristarihii = Format(giristarihi, "dd.mm.yyyy")

If Year(Sayfa4.Cells(47, 2)) >= Year(giristarihii) Then

If ocakbrtucrt > Sayfa4.Cells(42, 2) Then
snbrtcrtaylik = Sayfa4.Cells(42, 2)
Else
snbrtcrtaylik = ocakbrtucrt
End If

Err.Clear

giristarihi = Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, "A"), Worksheets("sicil").Range("C:AN"), 38, 0)

giristarihii = Format(giristarihi, "dd.mm.yyyy")

zzz = Application.WorksheetFunction.Days360(DateValue(giristarihii), DateValue(DONEM))

kidyili = Int(zzz / 360)
kidayi = Int((zzz Mod 360) / 30)
kidgun = zzz - (kidyili * 360) - (kidayi * 30)

If kidyili > 0 Then

aaa = kidyili * snbrtcrtaylik
bbb = kidayi * (snbrtcrtaylik / 12)
ccc = kidgun * (snbrtcrtaylik / 12 / 30)

ddd = aaa + bbb + ccc


kiddv = ddd * 0.00759

netkidtaz = ddd - kiddv
Label1019.Caption = Format(netkidtaz, "#,##0.00")

Else

Label1019.Caption = 0

End If
End If


''İhbar Hesabı

DONEM = Sayfa4.Cells(48, 2)

snbrtcrtaylik = WorksheetFunction.SumIfs(safkidtazm, adsoyad1, Cells(ActiveCell.Row, "A"), Ay, 1)
gunlukucret = snbrtcrtaylik / 30

Err.Clear

giristarihi = Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, "A"), Worksheets("sicil").Range("C:AN"), 38, 0)

giristarihii = Format(giristarihi, "dd.mm.yyyy")

zzz = Application.WorksheetFunction.Days360(DateValue(giristarihii), DateValue(DONEM))



ihbgun = Application.WorksheetFunction.Days360(DateValue(giristarihii), DateValue(DONEM))


If ihbgun < 59 Then

Label1020.Caption = 0

ElseIf ihbgun > 59 And ihbgun < 180 Then

If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 And Sayfa4.Cells(5, 2) Then
a = 35
End If

brutihbtaz = 14 * gunlukucret

ihbartaz = brutihbtaz - (brutihbtaz * a / 100)

damver = brutihbtaz * 0.00759

ihbartazminati = ihbartaz - damver

Label1020.Caption = Format(ihbartazminati, "#,##0.00")


ElseIf ihbgun > 179 And ihbgun < 540 Then

If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 And Sayfa4.Cells(5, 2) Then
a = 35
End If

brutihbtaz = 28 * gunlukucret

ihbartaz = brutihbtaz - (brutihbtaz * a / 100)

damver = brutihbtaz * 0.00759

ihbartazminati = ihbartaz - damver

Label1020.Caption = Format(ihbartazminati, "#,##0.00")


ElseIf ihbgun > 539 And ihbgun < 1080 Then

If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 And Sayfa4.Cells(5, 2) Then
a = 35
End If

brutihbtaz = 42 * gunlukucret

ihbartaz = brutihbtaz - (brutihbtaz * a / 100)

damver = brutihbtaz * 0.00759

ihbartazminati = ihbartaz - damver

Label1020.Caption = Format(ihbartazminati, "#,##0.00")


ElseIf ihbgun > 1079 Then

If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And ocakkgvm < Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And ocakkgvm < Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 Then
a = 35
End If

brutihbtaz = 56 * gunlukucret

ihbartaz = brutihbtaz - (brutihbtaz * a / 100)

damver = brutihbtaz * 0.00759

ihbartazminati = ihbartaz - damver

Label1020.Caption = Format(ihbartazminati, "#,##0.00")


End If


''---ŞUBAT AYI
subatucret = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ab2:ab12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 2)
Label1021.Caption = Format(subatucret, "#,##0.00")

subatisci = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ac2:ac12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 2)
Label1022.Caption = Format(subatisci, "#,##0.00")

subatiszisci = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ad2:ad12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 2)
Label1023.Caption = Format(subatiszisci, "#,##0.00")

subatkgvm = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ae2:ae12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 2)
Label1024.Caption = Format(subatkgvm, "#,##0.00")

subatagvm = WorksheetFunction.SumIfs(Worksheets("datalar").Range("af2:af12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 2)
Label1025.Caption = Format(subatagvm, "#,##0.00")

subatgelv = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ag2:ag12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 2)
Label1026.Caption = Format(subatgelv, "#,##0.00")

subatdamv = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ah2:ah12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 2)
Label1027.Caption = Format(subatdamv, "#,##0.00")

subatbrtucrt = WorksheetFunction.SumIfs(Worksheets("datalar").Range("aI2:aI12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 2)
Label1028.Caption = Format(subatbrtucrt, "#,##0.00")

subatagii = WorksheetFunction.SumIfs(Worksheets("datalar").Range("aj2:aj12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 2)
Label1029.Caption = Format(subatagii, "#,##0.00")

subattopof = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ak2:ak12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 2)
Label1030.Caption = Format(subattopof, "#,##0.00")

subatsgkisver = WorksheetFunction.SumIfs(Worksheets("datalar").Range("al2:al12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 2)
Label1031.Caption = Format(subatsgkisver, "#,##0.00")

subatiszisver = WorksheetFunction.SumIfs(Worksheets("datalar").Range("am2:am12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 2)
Label1032.Caption = Format(subatiszisver, "#,##0.00")

subatTOPISVMAL = WorksheetFunction.SumIfs(Worksheets("datalar").Range("an2:an12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 2)
Label1033.Caption = Format(subatTOPISVMAL, "#,##0.00")

subatDES5510 = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ao2:ao12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 2)
Label1034.Caption = Format(subatDES5510, "#,##0.00")

subatDESARGESGK = WorksheetFunction.SumIfs(Worksheets("datalar").Range("at2:at12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 2)
Label1035.Caption = Format(subatDESARGESGK, "#,##0.00")

subatdesargegv = WorksheetFunction.SumIfs(Worksheets("datalar").Range("au2:au12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 2)
Label1036.Caption = Format(subatdesargegv, "#,##0.00")

subatdesargedv = WorksheetFunction.SumIfs(desargedv, kisi, Cells(ActiveCell.Row, "A"), Ay, 2)
Label1037.Caption = Format(subatdesargedv, "#,##0.00")

subatDESTOP = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ax2:ax12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 2)
Label1038.Caption = Format(subatDESTOP, "#,##0.00")


''Kıdem hesabı
DONEM = Sayfa4.Cells(48, 2) + 28

Err.Clear

giristarihi = Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, "A"), Worksheets("sicil").Range("C:AN"), 38, 0)

giristarihii = Format(giristarihi, "dd.mm.yyyy")

If Year(Sayfa4.Cells(47, 2)) >= Year(giristarihii) Then

If ocakbrtucrt > Sayfa4.Cells(42, 2) Then
snbrtcrtaylik = Sayfa4.Cells(42, 2)
Else
snbrtcrtaylik = ocakbrtucrt
End If

Err.Clear

giristarihi = Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, "A"), Worksheets("sicil").Range("C:AN"), 38, 0)

giristarihii = Format(giristarihi, "dd.mm.yyyy")

zzz = Application.WorksheetFunction.Days360(DateValue(giristarihii), DateValue(DONEM))

kidyili = Int(zzz / 360)
kidayi = Int((zzz Mod 360) / 30)
kidgun = zzz - (kidyili * 360) - (kidayi * 30)

If kidyili > 0 Then

aaa = kidyili * snbrtcrtaylik
bbb = kidayi * (snbrtcrtaylik / 12)
ccc = kidgun * (snbrtcrtaylik / 12 / 30)

ddd = aaa + bbb + ccc


kiddv = ddd * 0.00759

netkidtaz = ddd - kiddv
Label1039.Caption = Format(netkidtaz, "#,##0.00")

Else

Label1039.Caption = 0

End If
End If


''İhbar Hesabı

DONEM = Sayfa4.Cells(48, 2) + 28

snbrtcrtaylik = WorksheetFunction.SumIfs(safkidtazm, adsoyad1, Cells(ActiveCell.Row, "A"), Ay, 1)
gunlukucret = snbrtcrtaylik / 30

Err.Clear

giristarihi = Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, "A"), Worksheets("sicil").Range("C:AN"), 38, 0)

giristarihii = Format(giristarihi, "dd.mm.yyyy")

zzz = Application.WorksheetFunction.Days360(DateValue(giristarihii), DateValue(DONEM))



ihbgun = Application.WorksheetFunction.Days360(DateValue(giristarihii), DateValue(DONEM))


If ihbgun < 59 Then

Label1020.Caption = 0

ElseIf ihbgun > 59 And ihbgun < 180 Then

If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 And Sayfa4.Cells(5, 2) Then
a = 35
End If

brutihbtaz = 14 * gunlukucret

ihbartaz = brutihbtaz - (brutihbtaz * a / 100)

damver = brutihbtaz * 0.00759

ihbartazminati = ihbartaz - damver

Label1040.Caption = Format(ihbartazminati, "#,##0.00")


ElseIf ihbgun > 179 And ihbgun < 540 Then

If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 And Sayfa4.Cells(5, 2) Then
a = 35
End If

brutihbtaz = 28 * gunlukucret

ihbartaz = brutihbtaz - (brutihbtaz * a / 100)

damver = brutihbtaz * 0.00759

ihbartazminati = ihbartaz - damver

Label1040.Caption = Format(ihbartazminati, "#,##0.00")


ElseIf ihbgun > 539 And ihbgun < 1080 Then

If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 And Sayfa4.Cells(5, 2) Then
a = 35
End If

brutihbtaz = 42 * gunlukucret

ihbartaz = brutihbtaz - (brutihbtaz * a / 100)

damver = brutihbtaz * 0.00759

ihbartazminati = ihbartaz - damver

Label1040.Caption = Format(ihbartazminati, "#,##0.00")


ElseIf ihbgun > 1079 Then

If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And ocakkgvm < Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And ocakkgvm < Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 Then
a = 35
End If

brutihbtaz = 56 * gunlukucret

ihbartaz = brutihbtaz - (brutihbtaz * a / 100)

damver = brutihbtaz * 0.00759

ihbartazminati = ihbartaz - damver

Label1040.Caption = Format(ihbartazminati, "#,##0.00")


End If





''---MART AYI
martucret = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ab2:ab12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 3)
Label1041.Caption = Format(martucret, "#,##0.00")

martisci = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ac2:ac12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 3)
Label1042.Caption = Format(martisci, "#,##0.00")

martiszisci = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ad2:ad12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 3)
Label1043.Caption = Format(martiszisci, "#,##0.00")

martkgvm = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ae2:ae12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 3)
Label1044.Caption = Format(martkgvm, "#,##0.00")

martagvm = WorksheetFunction.SumIfs(Worksheets("datalar").Range("af2:af12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 3)
Label1045.Caption = Format(martagvm, "#,##0.00")

martgelv = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ag2:ag12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 3)
Label1046.Caption = Format(martgelv, "#,##0.00")

martdamv = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ah2:ah12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 3)
Label1047.Caption = Format(martdamv, "#,##0.00")

martbrtucrt = WorksheetFunction.SumIfs(Worksheets("datalar").Range("aI2:aI12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 3)
Label1048.Caption = Format(martbrtucrt, "#,##0.00")

martagii = WorksheetFunction.SumIfs(Worksheets("datalar").Range("aj2:aj12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 3)
Label1049.Caption = Format(martagii, "#,##0.00")

marttopof = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ak2:ak12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 3)
Label1050.Caption = Format(marttopof, "#,##0.00")

martsgkisver = WorksheetFunction.SumIfs(Worksheets("datalar").Range("al2:al12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 3)
Label1051.Caption = Format(martsgkisver, "#,##0.00")

martiszisver = WorksheetFunction.SumIfs(Worksheets("datalar").Range("am2:am12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 3)
Label1052.Caption = Format(martiszisver, "#,##0.00")

martTOPISVMAL = WorksheetFunction.SumIfs(Worksheets("datalar").Range("an2:an12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 3)
Label1053.Caption = Format(martTOPISVMAL, "#,##0.00")

martDES5510 = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ao2:ao12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 3)
Label1054.Caption = Format(martDES5510, "#,##0.00")

martDESARGESGK = WorksheetFunction.SumIfs(Worksheets("datalar").Range("at2:at12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 3)
Label1055.Caption = Format(martDESARGESGK, "#,##0.00")

martdesargegv = WorksheetFunction.SumIfs(Worksheets("datalar").Range("au2:au12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 3)
Label1056.Caption = Format(martdesargegv, "#,##0.00")

martdesargedv = WorksheetFunction.SumIfs(desargedv, kisi, Cells(ActiveCell.Row, "A"), Ay, 3)
Label1057.Caption = Format(martdesargedv, "#,##0.00")

martDESTOP = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ax2:ax12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 3)
Label1058.Caption = Format(martDESTOP, "#,##0.00")


''Kıdem hesabı
DONEM = Sayfa4.Cells(48, 2) + 60

Err.Clear

giristarihi = Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, "A"), Worksheets("sicil").Range("C:AN"), 38, 0)

giristarihii = Format(giristarihi, "dd.mm.yyyy")

If Year(Sayfa4.Cells(47, 2)) >= Year(giristarihii) Then

If ocakbrtucrt > Sayfa4.Cells(42, 2) Then
snbrtcrtaylik = Sayfa4.Cells(42, 2)
Else
snbrtcrtaylik = ocakbrtucrt
End If

Err.Clear

giristarihi = Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, "A"), Worksheets("sicil").Range("C:AN"), 38, 0)

giristarihii = Format(giristarihi, "dd.mm.yyyy")

zzz = Application.WorksheetFunction.Days360(DateValue(giristarihii), DateValue(DONEM))

kidyili = Int(zzz / 360)
kidayi = Int((zzz Mod 360) / 30)
kidgun = zzz - (kidyili * 360) - (kidayi * 30)

If kidyili > 0 Then

aaa = kidyili * snbrtcrtaylik
bbb = kidayi * (snbrtcrtaylik / 12)
ccc = kidgun * (snbrtcrtaylik / 12 / 30)

ddd = aaa + bbb + ccc


kiddv = ddd * 0.00759

netkidtaz = ddd - kiddv
Label1059.Caption = Format(netkidtaz, "#,##0.00")

Else

Label1059.Caption = 0

End If
End If


''İhbar Hesabı

DONEM = Sayfa4.Cells(48, 2) + 60

snbrtcrtaylik = WorksheetFunction.SumIfs(safkidtazm, adsoyad1, Cells(ActiveCell.Row, "A"), Ay, 1)
gunlukucret = snbrtcrtaylik / 30

Err.Clear

giristarihi = Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, "A"), Worksheets("sicil").Range("C:AN"), 38, 0)

giristarihii = Format(giristarihi, "dd.mm.yyyy")

zzz = Application.WorksheetFunction.Days360(DateValue(giristarihii), DateValue(DONEM))



ihbgun = Application.WorksheetFunction.Days360(DateValue(giristarihii), DateValue(DONEM))


If ihbgun < 59 Then

Label1060.Caption = 0

ElseIf ihbgun > 59 And ihbgun < 180 Then

If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 And Sayfa4.Cells(5, 2) Then
a = 35
End If

brutihbtaz = 14 * gunlukucret

ihbartaz = brutihbtaz - (brutihbtaz * a / 100)

damver = brutihbtaz * 0.00759

ihbartazminati = ihbartaz - damver

Label1060.Caption = Format(ihbartazminati, "#,##0.00")


ElseIf ihbgun > 179 And ihbgun < 540 Then

If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 And Sayfa4.Cells(5, 2) Then
a = 35
End If

brutihbtaz = 28 * gunlukucret

ihbartaz = brutihbtaz - (brutihbtaz * a / 100)

damver = brutihbtaz * 0.00759

ihbartazminati = ihbartaz - damver

Label1060.Caption = Format(ihbartazminati, "#,##0.00")


ElseIf ihbgun > 539 And ihbgun < 1080 Then

If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 And Sayfa4.Cells(5, 2) Then
a = 35
End If

brutihbtaz = 42 * gunlukucret

ihbartaz = brutihbtaz - (brutihbtaz * a / 100)

damver = brutihbtaz * 0.00759

ihbartazminati = ihbartaz - damver

Label1060.Caption = Format(ihbartazminati, "#,##0.00")


ElseIf ihbgun > 1079 Then

If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And ocakkgvm < Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And ocakkgvm < Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 Then
a = 35
End If

brutihbtaz = 56 * gunlukucret

ihbartaz = brutihbtaz - (brutihbtaz * a / 100)

damver = brutihbtaz * 0.00759

ihbartazminati = ihbartaz - damver

Label1060.Caption = Format(ihbartazminati, "#,##0.00")


End If


''---NİSAN AYI
nisanucret = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ab2:ab12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 4)
Label1061.Caption = Format(nisanucret, "#,##0.00")

nisanisci = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ac2:ac12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 4)
Label1062.Caption = Format(nisanisci, "#,##0.00")

nisaniszisci = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ad2:ad12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 4)
Label1063.Caption = Format(nisaniszisci, "#,##0.00")

nisankgvm = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ae2:ae12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 4)
Label1064.Caption = Format(nisankgvm, "#,##0.00")

nisanagvm = WorksheetFunction.SumIfs(Worksheets("datalar").Range("af2:af12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 4)
Label1065.Caption = Format(nisanagvm, "#,##0.00")

nisangelv = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ag2:ag12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 4)
Label1066.Caption = Format(nisangelv, "#,##0.00")

nisandamv = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ah2:ah12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 4)
Label1067.Caption = Format(nisandamv, "#,##0.00")

nisanbrtucrt = WorksheetFunction.SumIfs(Worksheets("datalar").Range("aI2:aI12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 4)
Label1068.Caption = Format(nisanbrtucrt, "#,##0.00")

nisanagii = WorksheetFunction.SumIfs(Worksheets("datalar").Range("aj2:aj12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 4)
Label1069.Caption = Format(nisanagii, "#,##0.00")

nisantopof = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ak2:ak12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 4)
Label1070.Caption = Format(nisantopof, "#,##0.00")

nisansgkisver = WorksheetFunction.SumIfs(Worksheets("datalar").Range("al2:al12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 4)
Label1071.Caption = Format(nisansgkisver, "#,##0.00")

nisaniszisver = WorksheetFunction.SumIfs(Worksheets("datalar").Range("am2:am12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 4)
Label1072.Caption = Format(nisaniszisver, "#,##0.00")

nisanTOPISVMAL = WorksheetFunction.SumIfs(Worksheets("datalar").Range("an2:an12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 4)
Label1073.Caption = Format(nisanTOPISVMAL, "#,##0.00")

nisanDES5510 = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ao2:ao12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 4)
Label1074.Caption = Format(nisanDES5510, "#,##0.00")

nisanDESARGESGK = WorksheetFunction.SumIfs(Worksheets("datalar").Range("at2:at12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 4)
Label1075.Caption = Format(nisanDESARGESGK, "#,##0.00")

nisandesargegv = WorksheetFunction.SumIfs(Worksheets("datalar").Range("au2:au12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 4)
Label1076.Caption = Format(nisandesargegv, "#,##0.00")

nisandesargedv = WorksheetFunction.SumIfs(desargedv, kisi, Cells(ActiveCell.Row, "A"), Ay, 4)
Label1077.Caption = Format(nisandesargedv, "#,##0.00")

nisanDESTOP = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ax2:ax12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 4)
Label1078.Caption = Format(nisanDESTOP, "#,##0.00")


''Kıdem hesabı
DONEM = Sayfa4.Cells(48, 2) + 90

Err.Clear

giristarihi = Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, "A"), Worksheets("sicil").Range("C:AN"), 38, 0)

giristarihii = Format(giristarihi, "dd.mm.yyyy")

If Year(Sayfa4.Cells(47, 2)) >= Year(giristarihii) Then

If ocakbrtucrt > Sayfa4.Cells(42, 2) Then
snbrtcrtaylik = Sayfa4.Cells(42, 2)
Else
snbrtcrtaylik = ocakbrtucrt
End If

Err.Clear

giristarihi = Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, "A"), Worksheets("sicil").Range("C:AN"), 38, 0)

giristarihii = Format(giristarihi, "dd.mm.yyyy")

zzz = Application.WorksheetFunction.Days360(DateValue(giristarihii), DateValue(DONEM))

kidyili = Int(zzz / 360)
kidayi = Int((zzz Mod 360) / 30)
kidgun = zzz - (kidyili * 360) - (kidayi * 30)

If kidyili > 0 Then

aaa = kidyili * snbrtcrtaylik
bbb = kidayi * (snbrtcrtaylik / 12)
ccc = kidgun * (snbrtcrtaylik / 12 / 30)

ddd = aaa + bbb + ccc


kiddv = ddd * 0.00759

netkidtaz = ddd - kiddv
Label1079.Caption = Format(netkidtaz, "#,##0.00")

Else

Label1079.Caption = 0

End If
End If


''İhbar Hesabı

DONEM = Sayfa4.Cells(48, 2) + 90

snbrtcrtaylik = WorksheetFunction.SumIfs(safkidtazm, adsoyad1, Cells(ActiveCell.Row, "A"), Ay, 1)
gunlukucret = snbrtcrtaylik / 30

Err.Clear

giristarihi = Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, "A"), Worksheets("sicil").Range("C:AN"), 38, 0)

giristarihii = Format(giristarihi, "dd.mm.yyyy")

zzz = Application.WorksheetFunction.Days360(DateValue(giristarihii), DateValue(DONEM))



ihbgun = Application.WorksheetFunction.Days360(DateValue(giristarihii), DateValue(DONEM))


If ihbgun < 59 Then

Label1080.Caption = 0

ElseIf ihbgun > 59 And ihbgun < 180 Then

If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 And Sayfa4.Cells(5, 2) Then
a = 35
End If

brutihbtaz = 14 * gunlukucret

ihbartaz = brutihbtaz - (brutihbtaz * a / 100)

damver = brutihbtaz * 0.00759

ihbartazminati = ihbartaz - damver

Label1080.Caption = Format(ihbartazminati, "#,##0.00")


ElseIf ihbgun > 179 And ihbgun < 540 Then

If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 And Sayfa4.Cells(5, 2) Then
a = 35
End If

brutihbtaz = 28 * gunlukucret

ihbartaz = brutihbtaz - (brutihbtaz * a / 100)

damver = brutihbtaz * 0.00759

ihbartazminati = ihbartaz - damver

Label1080.Caption = Format(ihbartazminati, "#,##0.00")


ElseIf ihbgun > 539 And ihbgun < 1080 Then

If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 And Sayfa4.Cells(5, 2) Then
a = 35
End If

brutihbtaz = 42 * gunlukucret

ihbartaz = brutihbtaz - (brutihbtaz * a / 100)

damver = brutihbtaz * 0.00759

ihbartazminati = ihbartaz - damver

Label1080.Caption = Format(ihbartazminati, "#,##0.00")


ElseIf ihbgun > 1079 Then

If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And ocakkgvm < Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And ocakkgvm < Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 Then
a = 35
End If

brutihbtaz = 56 * gunlukucret

ihbartaz = brutihbtaz - (brutihbtaz * a / 100)

damver = brutihbtaz * 0.00759

ihbartazminati = ihbartaz - damver

Label1080.Caption = Format(ihbartazminati, "#,##0.00")


End If



''---MAYIS AYI
mayisucret = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ab2:ab12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 5)
Label1081.Caption = Format(mayisucret, "#,##0.00")

mayisisci = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ac2:ac12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 5)
Label1082.Caption = Format(mayisisci, "#,##0.00")

mayisiszisci = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ad2:ad12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 5)
Label1083.Caption = Format(mayisiszisci, "#,##0.00")

mayiskgvm = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ae2:ae12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 5)
Label1084.Caption = Format(mayiskgvm, "#,##0.00")

mayisagvm = WorksheetFunction.SumIfs(Worksheets("datalar").Range("af2:af12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 5)
Label1085.Caption = Format(mayisagvm, "#,##0.00")

mayisgelv = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ag2:ag12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 5)
Label1086.Caption = Format(mayisgelv, "#,##0.00")

mayisdamv = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ah2:ah12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 5)
Label1087.Caption = Format(mayisdamv, "#,##0.00")

mayisbrtucrt = WorksheetFunction.SumIfs(Worksheets("datalar").Range("aI2:aI12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 5)
Label1088.Caption = Format(mayisbrtucrt, "#,##0.00")

mayisagii = WorksheetFunction.SumIfs(Worksheets("datalar").Range("aj2:aj12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 5)
Label1089.Caption = Format(mayisagii, "#,##0.00")

mayistopof = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ak2:ak12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 5)
Label1090.Caption = Format(mayistopof, "#,##0.00")

mayissgkisver = WorksheetFunction.SumIfs(Worksheets("datalar").Range("al2:al12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 5)
Label1091.Caption = Format(mayissgkisver, "#,##0.00")

mayisiszisver = WorksheetFunction.SumIfs(Worksheets("datalar").Range("am2:am12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 5)
Label1092.Caption = Format(mayisiszisver, "#,##0.00")

mayisTOPISVMAL = WorksheetFunction.SumIfs(Worksheets("datalar").Range("an2:an12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 5)
Label1093.Caption = Format(mayisTOPISVMAL, "#,##0.00")

mayisDES5510 = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ao2:ao12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 5)
Label1094.Caption = Format(mayisDES5510, "#,##0.00")

mayisDESARGESGK = WorksheetFunction.SumIfs(Worksheets("datalar").Range("at2:at12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 5)
Label1095.Caption = Format(mayisDESARGESGK, "#,##0.00")

mayisdesargegv = WorksheetFunction.SumIfs(Worksheets("datalar").Range("au2:au12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 5)
Label1096.Caption = Format(mayisdesargegv, "#,##0.00")

mayisdesargedv = WorksheetFunction.SumIfs(desargedv, kisi, Cells(ActiveCell.Row, "A"), Ay, 5)
Label1097.Caption = Format(mayisdesargedv, "#,##0.00")

mayisDESTOP = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ax2:ax12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 5)
Label1098.Caption = Format(mayisDESTOP, "#,##0.00")


''Kıdem hesabı
DONEM = Sayfa4.Cells(48, 2) + 121

Err.Clear

giristarihi = Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, "A"), Worksheets("sicil").Range("C:AN"), 38, 0)

giristarihii = Format(giristarihi, "dd.mm.yyyy")

If Year(Sayfa4.Cells(47, 2)) >= Year(giristarihii) Then

If ocakbrtucrt > Sayfa4.Cells(42, 2) Then
snbrtcrtaylik = Sayfa4.Cells(42, 2)
Else
snbrtcrtaylik = ocakbrtucrt
End If

Err.Clear

giristarihi = Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, "A"), Worksheets("sicil").Range("C:AN"), 38, 0)

giristarihii = Format(giristarihi, "dd.mm.yyyy")

zzz = Application.WorksheetFunction.Days360(DateValue(giristarihii), DateValue(DONEM))

kidyili = Int(zzz / 360)
kidayi = Int((zzz Mod 360) / 30)
kidgun = zzz - (kidyili * 360) - (kidayi * 30)

If kidyili > 0 Then

aaa = kidyili * snbrtcrtaylik
bbb = kidayi * (snbrtcrtaylik / 12)
ccc = kidgun * (snbrtcrtaylik / 12 / 30)

ddd = aaa + bbb + ccc


kiddv = ddd * 0.00759

netkidtaz = ddd - kiddv
Label1099.Caption = Format(netkidtaz, "#,##0.00")

Else

Label1099.Caption = 0

End If
End If


''İhbar Hesabı

DONEM = Sayfa4.Cells(48, 2) + 121

snbrtcrtaylik = WorksheetFunction.SumIfs(safkidtazm, adsoyad1, Cells(ActiveCell.Row, "A"), Ay, 1)
gunlukucret = snbrtcrtaylik / 30

Err.Clear

giristarihi = Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, "A"), Worksheets("sicil").Range("C:AN"), 38, 0)

giristarihii = Format(giristarihi, "dd.mm.yyyy")

zzz = Application.WorksheetFunction.Days360(DateValue(giristarihii), DateValue(DONEM))



ihbgun = Application.WorksheetFunction.Days360(DateValue(giristarihii), DateValue(DONEM))


If ihbgun < 59 Then

Label1100.Caption = 0

ElseIf ihbgun > 59 And ihbgun < 180 Then

If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 And Sayfa4.Cells(5, 2) Then
a = 35
End If

brutihbtaz = 14 * gunlukucret

ihbartaz = brutihbtaz - (brutihbtaz * a / 100)

damver = brutihbtaz * 0.00759

ihbartazminati = ihbartaz - damver

Label1080.Caption = Format(ihbartazminati, "#,##0.00")


ElseIf ihbgun > 179 And ihbgun < 540 Then

If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 And Sayfa4.Cells(5, 2) Then
a = 35
End If

brutihbtaz = 28 * gunlukucret

ihbartaz = brutihbtaz - (brutihbtaz * a / 100)

damver = brutihbtaz * 0.00759

ihbartazminati = ihbartaz - damver

Label1100.Caption = Format(ihbartazminati, "#,##0.00")


ElseIf ihbgun > 539 And ihbgun < 1080 Then

If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 And Sayfa4.Cells(5, 2) Then
a = 35
End If

brutihbtaz = 42 * gunlukucret

ihbartaz = brutihbtaz - (brutihbtaz * a / 100)

damver = brutihbtaz * 0.00759

ihbartazminati = ihbartaz - damver

Label1100.Caption = Format(ihbartazminati, "#,##0.00")


ElseIf ihbgun > 1079 Then

If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And ocakkgvm < Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And ocakkgvm < Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 Then
a = 35
End If

brutihbtaz = 56 * gunlukucret

ihbartaz = brutihbtaz - (brutihbtaz * a / 100)

damver = brutihbtaz * 0.00759

ihbartazminati = ihbartaz - damver

Label1100.Caption = Format(ihbartazminati, "#,##0.00")


End If

'---HAZİRAN AYI
haziranucret = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ab2:ab12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 6)
Label1101.Caption = Format(haziranucret, "#,##0.00")

haziranisci = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ac2:ac12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 6)
Label1102.Caption = Format(haziranisci, "#,##0.00")

haziraniszisci = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ad2:ad12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 6)
Label1103.Caption = Format(haziraniszisci, "#,##0.00")

hazirankgvm = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ae2:ae12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 6)
Label1104.Caption = Format(hazirankgvm, "#,##0.00")

haziranagvm = WorksheetFunction.SumIfs(Worksheets("datalar").Range("af2:af12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 6)
Label1105.Caption = Format(haziranagvm, "#,##0.00")

hazirangelv = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ag2:ag12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 6)
Label1106.Caption = Format(hazirangelv, "#,##0.00")

hazirandamv = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ah2:ah12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 6)
Label1107.Caption = Format(hazirandamv, "#,##0.00")

haziranbrtucrt = WorksheetFunction.SumIfs(Worksheets("datalar").Range("aI2:aI12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 6)
Label1108.Caption = Format(haziranbrtucrt, "#,##0.00")

haziranagii = WorksheetFunction.SumIfs(Worksheets("datalar").Range("aj2:aj12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 6)
Label1109.Caption = Format(haziranagii, "#,##0.00")

hazirantopof = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ak2:ak12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 6)
Label1110.Caption = Format(hazirantopof, "#,##0.00")

haziransgkisver = WorksheetFunction.SumIfs(Worksheets("datalar").Range("al2:al12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 6)
Label1111.Caption = Format(haziransgkisver, "#,##0.00")

haziraniszisver = WorksheetFunction.SumIfs(Worksheets("datalar").Range("am2:am12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 6)
Label1112.Caption = Format(haziraniszisver, "#,##0.00")

haziranTOPISVMAL = WorksheetFunction.SumIfs(Worksheets("datalar").Range("an2:an12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 6)
Label1113.Caption = Format(haziranTOPISVMAL, "#,##0.00")

haziranDES5510 = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ao2:ao12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 6)
Label1114.Caption = Format(haziranDES5510, "#,##0.00")

haziranDESARGESGK = WorksheetFunction.SumIfs(Worksheets("datalar").Range("at2:at12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 6)
Label1115.Caption = Format(haziranDESARGESGK, "#,##0.00")

hazirandesargegv = WorksheetFunction.SumIfs(Worksheets("datalar").Range("au2:au12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 6)
Label1116.Caption = Format(hazirandesargegv, "#,##0.00")

hazirandesargedv = WorksheetFunction.SumIfs(desargedv, kisi, Cells(ActiveCell.Row, "A"), Ay, 6)
Label1117.Caption = Format(hazirandesargedv, "#,##0.00")

haziranDESTOP = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ax2:ax12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 6)
Label1118.Caption = Format(haziranDESTOP, "#,##0.00")


''Kıdem hesabı
DONEM = Sayfa4.Cells(48, 2) + 151

Err.Clear

giristarihi = Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, "A"), Worksheets("sicil").Range("C:AN"), 38, 0)

giristarihii = Format(giristarihi, "dd.mm.yyyy")

If Year(Sayfa4.Cells(47, 2)) >= Year(giristarihii) Then

If ocakbrtucrt > Sayfa4.Cells(42, 2) Then
snbrtcrtaylik = Sayfa4.Cells(42, 2)
Else
snbrtcrtaylik = ocakbrtucrt
End If

Err.Clear

giristarihi = Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, "A"), Worksheets("sicil").Range("C:AN"), 38, 0)

giristarihii = Format(giristarihi, "dd.mm.yyyy")

zzz = Application.WorksheetFunction.Days360(DateValue(giristarihii), DateValue(DONEM))

kidyili = Int(zzz / 360)
kidayi = Int((zzz Mod 360) / 30)
kidgun = zzz - (kidyili * 360) - (kidayi * 30)

If kidyili > 0 Then

aaa = kidyili * snbrtcrtaylik
bbb = kidayi * (snbrtcrtaylik / 12)
ccc = kidgun * (snbrtcrtaylik / 12 / 30)

ddd = aaa + bbb + ccc


kiddv = ddd * 0.00759

netkidtaz = ddd - kiddv
Label1119.Caption = Format(netkidtaz, "#,##0.00")

Else

Label1119.Caption = 0

End If
End If


''İhbar Hesabı

DONEM = Sayfa4.Cells(48, 2) + 151

snbrtcrtaylik = WorksheetFunction.SumIfs(safkidtazm, adsoyad1, Cells(ActiveCell.Row, "A"), Ay, 1)
gunlukucret = snbrtcrtaylik / 30

Err.Clear

giristarihi = Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, "A"), Worksheets("sicil").Range("C:AN"), 38, 0)

giristarihii = Format(giristarihi, "dd.mm.yyyy")

zzz = Application.WorksheetFunction.Days360(DateValue(giristarihii), DateValue(DONEM))



ihbgun = Application.WorksheetFunction.Days360(DateValue(giristarihii), DateValue(DONEM))


If ihbgun < 59 Then

Label1100.Caption = 0

ElseIf ihbgun > 59 And ihbgun < 180 Then

If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 And Sayfa4.Cells(5, 2) Then
a = 35
End If

brutihbtaz = 14 * gunlukucret

ihbartaz = brutihbtaz - (brutihbtaz * a / 100)

damver = brutihbtaz * 0.00759

ihbartazminati = ihbartaz - damver

Label1120.Caption = Format(ihbartazminati, "#,##0.00")


ElseIf ihbgun > 179 And ihbgun < 540 Then

If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 And Sayfa4.Cells(5, 2) Then
a = 35
End If

brutihbtaz = 28 * gunlukucret

ihbartaz = brutihbtaz - (brutihbtaz * a / 100)

damver = brutihbtaz * 0.00759

ihbartazminati = ihbartaz - damver

Label1120.Caption = Format(ihbartazminati, "#,##0.00")


ElseIf ihbgun > 539 And ihbgun < 1080 Then

If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 And Sayfa4.Cells(5, 2) Then
a = 35
End If

brutihbtaz = 42 * gunlukucret

ihbartaz = brutihbtaz - (brutihbtaz * a / 100)

damver = brutihbtaz * 0.00759

ihbartazminati = ihbartaz - damver

Label1120.Caption = Format(ihbartazminati, "#,##0.00")


ElseIf ihbgun > 1079 Then

If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And ocakkgvm < Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And ocakkgvm < Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 Then
a = 35
End If

brutihbtaz = 56 * gunlukucret

ihbartaz = brutihbtaz - (brutihbtaz * a / 100)

damver = brutihbtaz * 0.00759

ihbartazminati = ihbartaz - damver

Label1120.Caption = Format(ihbartazminati, "#,##0.00")


End If


End Sub
 
Her ayı farklı bir modüle yerleştirin. Ve buradan modülleri çağırın.
 
Size basit bir örnek vereyim:
Private Sub UserForm_Initialize()
AA
AB
AC
AD
End Sub

Buradaki her bir AA,AB,AC,AD Ayrı koddur.Yani uzun olan kodunuzu uygun yerlerden bölün ve
bu kodların arasına yazın.Aşağıdaki örnekteki gibi.
Sub AA()
----------
--------
End Sub
 
Merhaba
Eğer "Label" noları kodlarınızdaki düzende devam ediyorsa
aşağıdaki gibi deneyelim;
Kodlar içindeki mavi bölümdeki aylara göre eklenen günleri ayarlarsınız

Kod: 
Private Sub UserForm_Initialize()

Dim S11 As Worksheet
Dim S12 As Worksheet
Dim ar, kıd As Variant
Dim GNLISV As Single
Dim STRS, TOPISVMAL
Dim DESTOP, TOPU
Dim X1, Ay, kisi, adsoyad1, zzz
Dim lab, kb1, mm1, ocakkgvm
Dim damver, brutihbtaz, snbrtcrtaylik, ihbartazminati
Dim a As Double
Set kisi = Worksheets("datalar").Range("c2:c12005")
Set adsoyad1 = Worksheets("datalar").Range("C2:C12005")
Set Ay = Worksheets("datalar").Range("f2:f12005")
Set S11 = Sheets("sicil")
Set S12 = Sheets("datalar")
With WorksheetFunction
If .Proper(ActiveCell) = "Sicil Kartı" Then
If .CountIf(S12.Range("C:C"), Cells(ActiveCell.Row, "A")) = 0 Then
MsgBox "Kişi Bulunamadı"
Exit Sub
Else
STRS = .Match(Cells(ActiveCell.Row, "A"), S11.Range("C:C"), 0)
ar = Array("ab2:ab12005", "al2:al12005", "am2:am12005", "AI2:AI12005")
For X1 = 0 To UBound(ar)
TOPU = .SumIfs(S12.Range(ar(X1)), S12.Range("c2:c12005"), Cells(ActiveCell.Row, "A"))
Me.Controls("Label" & X1 + 1).Caption = Format(TOPU, "#,##0.00")
Next
TOPISVMAL = WorksheetFunction.SumIfs(S12.Range("an2:an12005"), Worksheets("datalar").Range("c2:c12005"), Cells(ActiveCell.Row, "A"))
DESTOP = WorksheetFunction.SumIfs(S12.Range("ax2:ax12005"), Worksheets("datalar").Range("c2:c12005"), Cells(ActiveCell.Row, "A"))
GNLISV = TOPISVMAL + DESTOP

Label5.Caption = Format(GNLISV, "#,##0.00")
Label6.Caption = Format(DESTOP, "#,##0.00")
Label7.Caption = Format(TOPISVMAL, "#,##0.00")

Label12.Caption = S11.Cells(STRS, "C")
Label14.Caption = S11.Cells(STRS, "A")
Label16.Caption = S11.Cells(STRS, "AJ") & " / " & S11.Cells(STRS, "AK")
Label18.Caption = S11.Cells(STRS, "AN")

If S11.Cells(STRS, "G") = 1 Then
Label20.Caption = S11.Cells(STRS, "G") & "- " & "Normal Çalışan"
ElseIf S11.Cells(STRS, "G") = 2 Then
Label20.Caption = S11.Cells(STRS, "G") & "- " & "Emekli"
ElseIf S11.Cells(STRS, "G") = 32 Then
Label20.Caption = S11.Cells(STRS, "G") & "- " & "90 Gün F.H.Zamlı"
End If

LABEL22.Caption = "Hayır": LABEL24.Caption = "Hayır"
If S11.Cells(STRS, "H") = "E" Then LABEL22.Caption = "Evet"
If S11.Cells(STRS, "I") = "E" Then LABEL24.Caption = "Evet"

Label26.Caption = Format(S11.Cells(STRS, "J"), "#,##.00") & " TL"
Label28.Caption = "-"
Label30.Caption = "-"
Label32.Caption = "-"

If S11.Cells(STRS, "O") > 1 Then Label28.Caption = Format(S11.Cells(STRS, "O"), "#,##.00") & " TL"
If S11.Cells(STRS, "R") > 1 Then Label30.Caption = Format(S11.Cells(STRS, "R"), "#,##.00") & " TL"
If S11.Cells(STRS, "S") > 1 Then Label32.Caption = Format(S11.Cells(STRS, "S"), "#,##.00") & " TL"

End If: End If: End With
'-----------------------------------------------------------------
''---OCAK AYI label1001,1018,şubat 1021,1038,mart 1041,1058,nisan 1061,1078,mayıs1081,1098,haziran1101,1118

ocakkgvm = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ae2:ae12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 1)
lab = 981
For aylar = 1 To 12
lab = lab + 20
For mm1 = 28 To 50
crt = WorksheetFunction.SumIfs(S12.Range(Cells(2, mm1), Cells(12005, mm1)), kisi, Cells(ActiveCell.Row, "A"), Ay, aylar)
Me.Controls("Label" & lab).Caption = Format(crt, "#,##0.00")
lab = lab + 1
If mm1 = 41 Then mm1 = 45
If mm1 = 48 Then mm1 = 49
Next
Next
'-------------------------------------------------------------------
giristarihi = Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, "A"), Worksheets("sicil").Range("C:AN"), 38, 0)
[COLOR="Blue"]kıd = Array(0, 28, 60, 90, 121, 151, 181, 211, 241, 271, 301, 331)[/COLOR]
For kd1 = 0 To UBound(kıd)
DONEM = Sayfa4.Cells(48, 2) + kıd(kd1)
giristarihii = Format(giristarihi, "dd.mm.yyyy")
If Year(Sayfa4.Cells(47, 2)) >= Year(giristarihii) Then
If ocakbrtucrt > Sayfa4.Cells(42, 2) Then
snbrtcrtaylik = Sayfa4.Cells(42, 2)
Else
snbrtcrtaylik = ocakbrtucrt
End If
zzz = Application.WorksheetFunction.Days360(DateValue(giristarihii), DateValue(DONEM))
kidyili = Int(zzz / 360)
kidayi = Int((zzz Mod 360) / 30)
kidgun = zzz - (kidyili * 360) - (kidayi * 30)
If kidyili > 0 Then
aaa = kidyili * snbrtcrtaylik
bbb = kidayi * (snbrtcrtaylik / 12)
ccc = kidgun * (snbrtcrtaylik / 12 / 30)
ddd = aaa + bbb + ccc
kiddv = ddd * 0.00759
netkidtaz = ddd - kiddv
Me.Controls("Label" & (kd1 * 20) + 1019).Caption = Format(netkidtaz, "#,##0.00")
Else
Me.Controls("Label" & (kd1 * 20) + 1019).Caption = 0
End If
End If
snbrtcrtaylik = WorksheetFunction.SumIfs(S12.Range("bp2:bp12005"), adsoyad1, Cells(ActiveCell.Row, "A"), Ay, kd1 + 1)
gunlukucret = snbrtcrtaylik / 30
Err.Clear
giristarihi = Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, "A"), Worksheets("sicil").Range("C:AN"), 38, 0)
giristarihii = Format(giristarihi, "dd.mm.yyyy")
zzz = Application.WorksheetFunction.Days360(DateValue(giristarihii), DateValue(DONEM))
ihbgun = Application.WorksheetFunction.Days360(DateValue(giristarihii), DateValue(DONEM))
If ihbgun < 59 Then
Me.Controls("Label" & (kd1 * 20) + 1020).Caption = 0
ElseIf ihbgun > 59 And ihbgun < 180 Then
If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And ocakkgvm < Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And ocakkgvm < Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 And ocakkgvm < Sayfa4.Cells(5, 2) Then
a = 35
End If

brutihbtaz = 14 * gunlukucret
ihbartaz = brutihbtaz - (brutihbtaz * a / 100)
damver = brutihbtaz * 0.00759
ihbartazminati = ihbartaz - damver
Me.Controls("Label" & (kd1 * 20) + 1020).Caption = Format(ihbartazminati, "#,##0.00")
ElseIf ihbgun > 179 And ihbgun < 540 Then
If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And ocakkgvm < Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And ocakkgvm < Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 And ocakkgvm < Sayfa4.Cells(5, 2) Then
a = 35
End If
brutihbtaz = 28 * gunlukucret
ihbartaz = brutihbtaz - (brutihbtaz * a / 100)
damver = brutihbtaz * 0.00759
ihbartazminati = ihbartaz - damver
Me.Controls("Label" & (kd1 * 20) + 1020).Caption = Format(ihbartazminati, "#,##0.00")
ElseIf ihbgun > 539 And ihbgun < 1080 Then
If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And ocakkgvm < Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And ocakkgvm < Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 And ocakkgvm < Sayfa4.Cells(5, 2) Then
a = 35
End If
brutihbtaz = 42 * gunlukucret
ihbartaz = brutihbtaz - (brutihbtaz * a / 100)
damver = brutihbtaz * 0.00759
ihbartazminati = ihbartaz - damver
Me.Controls("Label" & (kd1 * 20) + 1020).Caption = Format(ihbartazminati, "#,##0.00")
ElseIf ihbgun > 1079 Then
If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And ocakkgvm < Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And ocakkgvm < Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 Then
a = 35
End If
brutihbtaz = 56 * gunlukucret
ihbartaz = brutihbtaz - (brutihbtaz * a / 100)
damver = brutihbtaz * 0.00759
ihbartazminati = ihbartaz - damver
Me.Controls("Label" & (kd1 * 20) + 1020).Caption = Format(ihbartazminati, "#,##0.00")
End If
Next
End Sub
 
PLİNT' Alıntı:
Merhaba
Eğer "Label" noları kodlarınızdaki düzende devam ediyorsa
aşağıdaki gibi deneyelim;
Kodlar içindeki mavi bölümdeki aylara göre eklenen günleri ayarlarsınız

Kod: 
Private Sub UserForm_Initialize()

Dim S11 As Worksheet
Dim S12 As Worksheet
Dim ar, kıd As Variant
Dim GNLISV As Single
Dim STRS, TOPISVMAL
Dim DESTOP, TOPU
Dim X1, Ay, kisi, adsoyad1, zzz
Dim lab, kb1, mm1, ocakkgvm
Dim damver, brutihbtaz, snbrtcrtaylik, ihbartazminati
Dim a As Double
Set kisi = Worksheets("datalar").Range("c2:c12005")
Set adsoyad1 = Worksheets("datalar").Range("C2:C12005")
Set Ay = Worksheets("datalar").Range("f2:f12005")
Set S11 = Sheets("sicil")
Set S12 = Sheets("datalar")
With WorksheetFunction
If .Proper(ActiveCell) = "Sicil Kartı" Then
If .CountIf(S12.Range("C:C"), Cells(ActiveCell.Row, "A")) = 0 Then
MsgBox "Kişi Bulunamadı"
Exit Sub
Else
STRS = .Match(Cells(ActiveCell.Row, "A"), S11.Range("C:C"), 0)
ar = Array("ab2:ab12005", "al2:al12005", "am2:am12005", "AI2:AI12005")
For X1 = 0 To UBound(ar)
TOPU = .SumIfs(S12.Range(ar(X1)), S12.Range("c2:c12005"), Cells(ActiveCell.Row, "A"))
Me.Controls("Label" & X1 + 1).Caption = Format(TOPU, "#,##0.00")
Next
TOPISVMAL = WorksheetFunction.SumIfs(S12.Range("an2:an12005"), Worksheets("datalar").Range("c2:c12005"), Cells(ActiveCell.Row, "A"))
DESTOP = WorksheetFunction.SumIfs(S12.Range("ax2:ax12005"), Worksheets("datalar").Range("c2:c12005"), Cells(ActiveCell.Row, "A"))
GNLISV = TOPISVMAL + DESTOP

Label5.Caption = Format(GNLISV, "#,##0.00")
Label6.Caption = Format(DESTOP, "#,##0.00")
Label7.Caption = Format(TOPISVMAL, "#,##0.00")

Label12.Caption = S11.Cells(STRS, "C")
Label14.Caption = S11.Cells(STRS, "A")
Label16.Caption = S11.Cells(STRS, "AJ") & " / " & S11.Cells(STRS, "AK")
Label18.Caption = S11.Cells(STRS, "AN")

If S11.Cells(STRS, "G") = 1 Then
Label20.Caption = S11.Cells(STRS, "G") & "- " & "Normal Çalışan"
ElseIf S11.Cells(STRS, "G") = 2 Then
Label20.Caption = S11.Cells(STRS, "G") & "- " & "Emekli"
ElseIf S11.Cells(STRS, "G") = 32 Then
Label20.Caption = S11.Cells(STRS, "G") & "- " & "90 Gün F.H.Zamlı"
End If

LABEL22.Caption = "Hayır": LABEL24.Caption = "Hayır"
If S11.Cells(STRS, "H") = "E" Then LABEL22.Caption = "Evet"
If S11.Cells(STRS, "I") = "E" Then LABEL24.Caption = "Evet"

Label26.Caption = Format(S11.Cells(STRS, "J"), "#,##.00") & " TL"
Label28.Caption = "-"
Label30.Caption = "-"
Label32.Caption = "-"

If S11.Cells(STRS, "O") > 1 Then Label28.Caption = Format(S11.Cells(STRS, "O"), "#,##.00") & " TL"
If S11.Cells(STRS, "R") > 1 Then Label30.Caption = Format(S11.Cells(STRS, "R"), "#,##.00") & " TL"
If S11.Cells(STRS, "S") > 1 Then Label32.Caption = Format(S11.Cells(STRS, "S"), "#,##.00") & " TL"

End If: End If: End With
'-----------------------------------------------------------------
''---OCAK AYI label1001,1018,şubat 1021,1038,mart 1041,1058,nisan 1061,1078,mayıs1081,1098,haziran1101,1118

ocakkgvm = WorksheetFunction.SumIfs(Worksheets("datalar").Range("ae2:ae12005"), kisi, Cells(ActiveCell.Row, "A"), Ay, 1)
lab = 981
For aylar = 1 To 12
lab = lab + 20
For mm1 = 28 To 50
crt = WorksheetFunction.SumIfs(S12.Range(Cells(2, mm1), Cells(12005, mm1)), kisi, Cells(ActiveCell.Row, "A"), Ay, aylar)
Me.Controls("Label" & lab).Caption = Format(crt, "#,##0.00")
lab = lab + 1
If mm1 = 41 Then mm1 = 45
If mm1 = 48 Then mm1 = 49
Next
Next
'-------------------------------------------------------------------
giristarihi = Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, "A"), Worksheets("sicil").Range("C:AN"), 38, 0)
[COLOR="Blue"]kıd = Array(0, 28, 60, 90, 121, 151, 181, 211, 241, 271, 301, 331)[/COLOR]
For kd1 = 0 To UBound(kıd)
DONEM = Sayfa4.Cells(48, 2) + kıd(kd1)
giristarihii = Format(giristarihi, "dd.mm.yyyy")
If Year(Sayfa4.Cells(47, 2)) >= Year(giristarihii) Then
If ocakbrtucrt > Sayfa4.Cells(42, 2) Then
snbrtcrtaylik = Sayfa4.Cells(42, 2)
Else
snbrtcrtaylik = ocakbrtucrt
End If
zzz = Application.WorksheetFunction.Days360(DateValue(giristarihii), DateValue(DONEM))
kidyili = Int(zzz / 360)
kidayi = Int((zzz Mod 360) / 30)
kidgun = zzz - (kidyili * 360) - (kidayi * 30)
If kidyili > 0 Then
aaa = kidyili * snbrtcrtaylik
bbb = kidayi * (snbrtcrtaylik / 12)
ccc = kidgun * (snbrtcrtaylik / 12 / 30)
ddd = aaa + bbb + ccc
kiddv = ddd * 0.00759
netkidtaz = ddd - kiddv
Me.Controls("Label" & (kd1 * 20) + 1019).Caption = Format(netkidtaz, "#,##0.00")
Else
Me.Controls("Label" & (kd1 * 20) + 1019).Caption = 0
End If
End If
snbrtcrtaylik = WorksheetFunction.SumIfs(S12.Range("bp2:bp12005"), adsoyad1, Cells(ActiveCell.Row, "A"), Ay, kd1 + 1)
gunlukucret = snbrtcrtaylik / 30
Err.Clear
giristarihi = Application.WorksheetFunction.VLookup(Cells(ActiveCell.Row, "A"), Worksheets("sicil").Range("C:AN"), 38, 0)
giristarihii = Format(giristarihi, "dd.mm.yyyy")
zzz = Application.WorksheetFunction.Days360(DateValue(giristarihii), DateValue(DONEM))
ihbgun = Application.WorksheetFunction.Days360(DateValue(giristarihii), DateValue(DONEM))
If ihbgun < 59 Then
Me.Controls("Label" & (kd1 * 20) + 1020).Caption = 0
ElseIf ihbgun > 59 And ihbgun < 180 Then
If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And ocakkgvm < Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And ocakkgvm < Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 And ocakkgvm < Sayfa4.Cells(5, 2) Then
a = 35
End If

brutihbtaz = 14 * gunlukucret
ihbartaz = brutihbtaz - (brutihbtaz * a / 100)
damver = brutihbtaz * 0.00759
ihbartazminati = ihbartaz - damver
Me.Controls("Label" & (kd1 * 20) + 1020).Caption = Format(ihbartazminati, "#,##0.00")
ElseIf ihbgun > 179 And ihbgun < 540 Then
If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And ocakkgvm < Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And ocakkgvm < Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 And ocakkgvm < Sayfa4.Cells(5, 2) Then
a = 35
End If
brutihbtaz = 28 * gunlukucret
ihbartaz = brutihbtaz - (brutihbtaz * a / 100)
damver = brutihbtaz * 0.00759
ihbartazminati = ihbartaz - damver
Me.Controls("Label" & (kd1 * 20) + 1020).Caption = Format(ihbartazminati, "#,##0.00")
ElseIf ihbgun > 539 And ihbgun < 1080 Then
If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And ocakkgvm < Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And ocakkgvm < Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 And ocakkgvm < Sayfa4.Cells(5, 2) Then
a = 35
End If
brutihbtaz = 42 * gunlukucret
ihbartaz = brutihbtaz - (brutihbtaz * a / 100)
damver = brutihbtaz * 0.00759
ihbartazminati = ihbartaz - damver
Me.Controls("Label" & (kd1 * 20) + 1020).Caption = Format(ihbartazminati, "#,##0.00")
ElseIf ihbgun > 1079 Then
If ocakkgvm < Sayfa4.Cells(2, 2) Then
a = 15
ElseIf ocakkgvm > Sayfa4.Cells(2, 2) - 1 And ocakkgvm < Sayfa4.Cells(3, 2) Then
a = 20
ElseIf ocakkgvm > Sayfa4.Cells(3, 2) - 1 And ocakkgvm < Sayfa4.Cells(4, 2) Then
a = 27
ElseIf ocakkgvm > Sayfa4.Cells(4, 2) - 1 Then
a = 35
End If
brutihbtaz = 56 * gunlukucret
ihbartaz = brutihbtaz - (brutihbtaz * a / 100)
damver = brutihbtaz * 0.00759
ihbartazminati = ihbartaz - damver
Me.Controls("Label" & (kd1 * 20) + 1020).Caption = Format(ihbartazminati, "#,##0.00")
End If
Next
End Sub
Genişletmek için tıkla ...



Hocam yardımın için teşekkür ederim.

Vermiş olduğun kodu sayfama ekledim.

crt = WorksheetFunction.SumIfs(Worksheets("datalar").Range(Cells(2, mm1), Cells(12005, mm1)), kisi, Cells(ActiveCell.Row, "A"), Ay, aylar)


kısmında sürekli
Run-time error 1004:
Aplication-defined or object-defined error

mesajı alıyorum.

Range(Cells(2, mm1), Cells(12005, mm1)

kısmını farklı şekillerde yazmama rağmen maalesef bir sonuç elde edemedim.

Bu problemin üstesinden nasıl gelebilirim?
 
Merhaba
İmkanı varsa; dosyanızın bir örneğini eklermisiniz?
 
Kullandığınız değişkenler tek prosedurde geçerli olduğundan, böldüğünüzde değişkeni bulamıyor ve hata döndürüyor.

"mm1" ve diğer gerekli değişkenleri modul düzeyinde (en üstte) tanımlayın.
 
PLİNT' Alıntı:
Merhaba
İmkanı varsa; dosyanızın bir örneğini eklermisiniz?
Genişletmek için tıkla ...

Biraz garipte olsa

vv = Split(Cells(1, mm1).Address(1, 1), "$")(1)


Set deneme = Worksheets("datalar").Range(vv & 2 & ":" & vv & 12005)

crt = WorksheetFunction.SumIfs(deneme, kisi, Cells(ActiveCell.Row, "A"), Ay, aylar)


şeklinde bir çözüm ürettim.

Tekrardan yardımlarınız için teşekkür ederim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst