Girilen İzinlerin Aylara Göre Dağılımları

O

omeryılmaz

Katılım
30 Kasım 2006
Mesajlar
411
Excel Vers. ve Dili
Excel 2007 - Türkçe
Altın Üyelik Bitiş Tarihi
05.07.2020
Merhaba Hocam

Konu izinler ve bu başlıkla ilişkili olunca ayrı başlıkta sormak istemedim.

Yıl içersin de Kullanılan izinleri Aylık gün bazında sayenizde forma uyguladık.. Tşk..

Şimdi sizden arzum;
Yıllık olarak işlenen izinler ay ay ayrıntılı olarak belirli bir formatta üst kuruma göndermek zorundayız. UserForm da Seçilen ayda izin kullanan personele ait izin ayrıntısının diğer sayfaya benzersiz toplayarak aktarmam gerekli. Tüm uğraşlarıma rağmen Dosyada uygulamaya çalıştığım bu kodu çalıştıramadım..

Dosyada gerekli bilgilendirme ve açıklamalar yapılmış olup yardım ve önerileriniz için şimdiden şükranlarımı sunuyorum..
 

Ekli dosyalar

Son düzenleme:
halit3

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,842
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
omeryılmaz' Alıntı:
Merhaba Hocam

Konu izinler ve bu başlıkla ilişkili olunca ayrı başlıkta sormak istemedim.

Yıl içersin de Kullanılan izinleri Aylık gün bazında sayenizde forma uyguladık.. Tşk..

Şimdi sizden arzum;
Yıllık olarak işlenen izinler ay ay ayrıntılı olarak belirli bir formatta üst kuruma göndermek zorundayız. UserForm da Seçilen ayda izin kullanan personele ait izin ayrıntısının diğer sayfaya benzersiz toplayarak aktarmam gerekli. Tüm uğraşlarıma rağmen Dosyada uygulamaya çalıştığım bu kodu çalıştıramadım..

Dosyada gerekli bilgilendirme ve açıklamalar yapılmış olup yardım ve önerileriniz için şimdiden şükranlarımı sunuyorum..
Genişletmek için tıkla ...
Kod:
Kod: 
Private Sub CommandButton1_Click()


ay = ComboBox1.Text

sat = 2
sat1 = 0
For k = 7 To 18
sat1 = sat1 + 1

If Sheets("YILLIK").Cells(1, k).Value = ay Then

For r = 2 To Worksheets("YILLIK").Cells(Rows.Count, "B").End(3).Row
aranan1 = Sheets("YILLIK").Cells(r, "b").Value

If WorksheetFunction.CountIf(Worksheets("YILLIK").Range("b2:b" & r), aranan1) = 1 Then
say1 = 0
say2 = 0
For i = 2 To Worksheets("YILLIK").Cells(Rows.Count, "B").End(3).Row

If Sheets("YILLIK").Cells(i, "b").Value <> "" Then
aranan2 = Sheets("YILLIK").Cells(i, "b").Value

If aranan2 = aranan1 Then
If Sheets("YILLIK").Cells(i, "e").Value = "Rapor" Then
say1 = say1 + CDbl(Sheets("YILLIK").Cells(i, k).Value)
End If
If Sheets("YILLIK").Cells(i, "e").Value = "Yıllık İzin" Then
say2 = say2 + CDbl(Sheets("YILLIK").Cells(i, k).Value)
End If
End If


End If
Next i


If say1 + say2 > 0 Then

If sat1 < 12 Then
ekle = sat1 + 1
Else
ekle = 1
End If

tarih = Val(Format(CDate(Format("01" & "." & Format(ekle, "00") & "." & Format(Now, "yyyy"), "dd.mm.yyyy")) - 1, "dd"))
'MsgBox aranan1 & Chr(10) & say1 & Chr(10) & say2 & Chr(10) & tarih
Sheets("AYSONU").Cells(sat, "a").Value = Sheets("YILLIK").Cells(r, "a").Value
Sheets("AYSONU").Cells(sat, "b").Value = Sheets("YILLIK").Cells(r, "b").Value
Sheets("AYSONU").Cells(sat, "e").Value = tarih
Sheets("AYSONU").Cells(sat, "ı").Value = tarih - (say2 + say1)

If say2 > 0 Then
Sheets("AYSONU").Cells(sat, "f").Value = say2
End If
If say1 > 0 Then
Sheets("AYSONU").Cells(sat, "g").Value = say1
End If
sat = sat + 1
End If



End If

Next r
End If
Next
End Sub
 
O

omeryılmaz

Katılım
30 Kasım 2006
Mesajlar
411
Excel Vers. ve Dili
Excel 2007 - Türkçe
Altın Üyelik Bitiş Tarihi
05.07.2020
Hocam Elinize yüreğinize sağlık, aylık izin aktarma işlemi tamamlandı

Ancak; Açıklama olan K sütununa personelin Kullandığı izin ayrıntısını nasıl alabiliriz..

Arzu Taban İçin ---K sütunu: 01.01.2013 tarihinden 5 gün Rapor - 07.01.2013 tarihinden 12 gün Yıllık İzin - 20.01.2013 tarihinden 8 gün Yıllık İzin



Yazdırabilirim.....


İlginiz için şükranlarımı sunuyorum...
 
halit3

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,842
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
omeryılmaz' Alıntı:
Hocam Elinize yüreğinize sağlık, aylık izin aktarma işlemi tamamlandı

Ancak; Açıklama olan K sütununa personelin Kullandığı izin ayrıntısını nasıl alabiliriz..

Arzu Taban İçin ---K sütunu: 01.01.2013 tarihinden 5 gün Rapor - 07.01.2013 tarihinden 12 gün Yıllık İzin - 20.01.2013 tarihinden 8 gün Yıllık İzin



Yazdırabilirim.....


İlginiz için şükranlarımı sunuyorum...
Genişletmek için tıkla ...
kod:

Kod: 
Private Sub CommandButton1_Click()

Sheets("AYSONU").Range("A2:K500").ClearContents
ay = ComboBox1.Text

sat = 2
sat1 = 0
For k = 7 To 18
sat1 = sat1 + 1

If Sheets("YILLIK").Cells(1, k).Value = ay Then

For r = 2 To Worksheets("YILLIK").Cells(Rows.Count, "B").End(3).Row
aranan1 = Sheets("YILLIK").Cells(r, "b").Value

If WorksheetFunction.CountIf(Worksheets("YILLIK").Range("b2:b" & r), aranan1) = 1 Then
say1 = 0
say2 = 0
say3 = ""
For i = 2 To Worksheets("YILLIK").Cells(Rows.Count, "B").End(3).Row

If Sheets("YILLIK").Cells(i, "b").Value <> "" Then
aranan2 = Sheets("YILLIK").Cells(i, "b").Value

If aranan2 = aranan1 Then

If Sheets("YILLIK").Cells(i, "e").Value = "Rapor" Then
say1 = say1 + CDbl(Sheets("YILLIK").Cells(i, k).Value)
End If
If Sheets("YILLIK").Cells(i, "e").Value = "Yıllık İzin" Then
say2 = say2 + CDbl(Sheets("YILLIK").Cells(i, k).Value)
End If
If Sheets("YILLIK").Cells(i, "e").Value = "Rapor" Or Sheets("YILLIK").Cells(i, "e").Value = "Yıllık İzin" Then
If Sheets("YILLIK").Cells(i, k).Value > 0 Then
say3 = say3 & Sheets("YILLIK").Cells(i, "f").Value & " tarinde " & Sheets("YILLIK").Cells(i, k).Value & " gün " & Sheets("YILLIK").Cells(i, "e").Value & " - "
End If
End If

End If


End If
Next i


If say1 + say2 > 0 Then

If sat1 < 12 Then
ekle = sat1 + 1
Else
ekle = 1
End If

tarih = Val(Format(CDate(Format("01" & "." & Format(ekle, "00") & "." & Format(Now, "yyyy"), "dd.mm.yyyy")) - 1, "dd"))
'MsgBox aranan1 & Chr(10) & say1 & Chr(10) & say2 & Chr(10) & tarih
Sheets("AYSONU").Cells(sat, "a").Value = Sheets("YILLIK").Cells(r, "a").Value
Sheets("AYSONU").Cells(sat, "b").Value = Sheets("YILLIK").Cells(r, "b").Value
Sheets("AYSONU").Cells(sat, "e").Value = tarih
Sheets("AYSONU").Cells(sat, "ı").Value = tarih - (say2 + say1)
Sheets("AYSONU").Cells(sat, "k").Value = Mid(say3, 1, Len(say3) - 3)

If say2 > 0 Then
Sheets("AYSONU").Cells(sat, "f").Value = say2
End If
If say1 > 0 Then
Sheets("AYSONU").Cells(sat, "g").Value = say1
End If
sat = sat + 1
End If



End If

Next r
End If
Next
End Sub
 
O

omeryılmaz

Katılım
30 Kasım 2006
Mesajlar
411
Excel Vers. ve Dili
Excel 2007 - Türkçe
Altın Üyelik Bitiş Tarihi
05.07.2020
halit3' Alıntı:
kod:

Kod: 
Private Sub CommandButton1_Click()

Sheets("AYSONU").Range("A2:K500").ClearContents
ay = ComboBox1.Text

sat = 2
sat1 = 0
For k = 7 To 18
sat1 = sat1 + 1

If Sheets("YILLIK").Cells(1, k).Value = ay Then

For r = 2 To Worksheets("YILLIK").Cells(Rows.Count, "B").End(3).Row
aranan1 = Sheets("YILLIK").Cells(r, "b").Value

If WorksheetFunction.CountIf(Worksheets("YILLIK").Range("b2:b" & r), aranan1) = 1 Then
say1 = 0
say2 = 0
say3 = ""
For i = 2 To Worksheets("YILLIK").Cells(Rows.Count, "B").End(3).Row

If Sheets("YILLIK").Cells(i, "b").Value <> "" Then
aranan2 = Sheets("YILLIK").Cells(i, "b").Value

If aranan2 = aranan1 Then

If Sheets("YILLIK").Cells(i, "e").Value = "Rapor" Then
say1 = say1 + CDbl(Sheets("YILLIK").Cells(i, k).Value)
End If
If Sheets("YILLIK").Cells(i, "e").Value = "Yıllık İzin" Then
say2 = say2 + CDbl(Sheets("YILLIK").Cells(i, k).Value)
End If
If Sheets("YILLIK").Cells(i, "e").Value = "Rapor" Or Sheets("YILLIK").Cells(i, "e").Value = "Yıllık İzin" Then
If Sheets("YILLIK").Cells(i, k).Value > 0 Then
say3 = say3 & Sheets("YILLIK").Cells(i, "f").Value & " tarinde " & Sheets("YILLIK").Cells(i, k).Value & " gün " & Sheets("YILLIK").Cells(i, "e").Value & " - "
End If
End If

End If


End If
Next i


If say1 + say2 > 0 Then

If sat1 < 12 Then
ekle = sat1 + 1
Else
ekle = 1
End If

tarih = Val(Format(CDate(Format("01" & "." & Format(ekle, "00") & "." & Format(Now, "yyyy"), "dd.mm.yyyy")) - 1, "dd"))
'MsgBox aranan1 & Chr(10) & say1 & Chr(10) & say2 & Chr(10) & tarih
Sheets("AYSONU").Cells(sat, "a").Value = Sheets("YILLIK").Cells(r, "a").Value
Sheets("AYSONU").Cells(sat, "b").Value = Sheets("YILLIK").Cells(r, "b").Value
Sheets("AYSONU").Cells(sat, "e").Value = tarih
Sheets("AYSONU").Cells(sat, "ı").Value = tarih - (say2 + say1)
Sheets("AYSONU").Cells(sat, "k").Value = Mid(say3, 1, Len(say3) - 3)

If say2 > 0 Then
Sheets("AYSONU").Cells(sat, "f").Value = say2
End If
If say1 > 0 Then
Sheets("AYSONU").Cells(sat, "g").Value = say1
End If
sat = sat + 1
End If



End If

Next r
End If
Next
End Sub
Genişletmek için tıkla ...


Hocam size nasıl şükranlarımı sunacağımı bilemiyorum..

Allah ne muradınız varsa versin..
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst