İzin listeleme

[mcetinkaya65]

Formda Necdet YEŞERTENER in hazırladığı bir çalışmayı buldum.Ama bunu benim kendi proğramıma uyarlayamadım.Aynı mantıkla İzin izlenimindeki izinlerin Yıl içindeki aylardaki günlere dökümünü uyarlayabilirmiyiz.300kişilik bir personelimiz var.Listeleme sınır koymadan yapılabilinirse iyi olur.Yıl içinde bir personel farklı tarihlerde birden çok da izin alabilir.İzin olan benim dosyam Diğeri
Necdet YEŞERTENER in dosyası
Selamlar..

Özür dilerim ama benim izin dosyasındaki sayfa1 Ay olarak değişmesi gerekiyor.

 

[mcetinkaya65]

İzin onayladı ise şartı olamadan(hiç bir şart olmadan) o listedeki isimleri listeye aktar butonuna tıklayınca Ay sayfasının uygun tarihleri arasına yerlerine aktarması.
Mümkün mü? bilmiyorum ama o listeye yazılan isimin direk aktarılması da daha ala.

 

[Necdet]

Merhaba,

Kodların sizin dosyanıza uyarlanmış hali :

Onay (N sütunu) şartı aranmak istenmiyorsa Kırmızı olan satırları silebilirsiniz.

Sub Izin_Listele()
 
    Dim i   As Integer, _
        j   As Date, _
        Gun As Integer, _
        Ay  As Integer, _
        si  As Worksheet, _
        sa  As Worksheet
 
    Set si = Sheets("izin izlenimi")
    Set sa = Sheets("Ay")
 
    si.Select
 
    On Error Resume Next
 
    sa.Range("B2:M32").ClearContents
 
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
 
       [B][COLOR=red] If Not Cells(i, "N") = "" Then[/COLOR][/B]  'İzin Onaylandıysa Aktar
            For j = Cells(i, "C") To Cells(i, "D")
                Ay = Month(j) + 1
                Gun = Day(j) + 1
                If sa.Cells(Gun, Ay) > "" Then
                    sa.Cells(Gun, Ay) = sa.Cells(Gun, Ay) & Chr(10) & _
                    Cells(i, "A")
                Else
                    sa.Cells(Gun, Ay) = Cells(i, "A")
                End If
            Next j
        [B][COLOR=red]End If[/COLOR][/B]
 
    Next i
 
    sa.Select
    MsgBox "Listeleme Tamamlanmıştır....", vbInformation, "Necdet YEŞERTENER ---> [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
 
End Sub

 

[mcetinkaya65]

Emeğinize sağlık hocam.

 

[Necdet]

Güle güle kullanınız. Hoca sayılmayız da idare ediyoruz işte

 

[mcetinkaya65]

Bilgisayarı neden bu kadar kasıyor çok ağır bir makromu? i7 işlemcili bilgisayarın cpu su hiç %40 ı geçmemişti bu işlemde %100 kullanıma ulaştı buna ragmen 10-15 dakikada bitiriyor.Bilgisayar dondu zannediyorsun.Bu işlemi daha kolay yapma yolu var mı?

 

[Necdet]

Herhangi bir fikrim yok, Dosya çok mu büyük?

 

[mcetinkaya65]

250 satır civarıydı makrolanıp listelenmesi istenilen.

 

[Necdet]

Aslında çok ta fazla bir veri yok, o kadar uzun sürmemesi gerekir. İlginç. Dosyayı görmeden yorum yapamayacağım.

 

[mcetinkaya65]

Sayfa gönderilme mb ın üstünde onun için gönderemiyorum. 5 modül ve 1 sayfada makro var.7 sayfanın hemen hemen hepsinin çeşitli yerlerinde formüller var.Bu son modül e kadar hiç bir yavaşlama yok tu.Belki diğer makrolarla çakışmış ola bilir.Size de zahmet verdik.Bilginize sağlık.

 

[Necdet]

rica ederim. birde şunu deneyin eğer çok hesaplanacak hücre varsa hesaplamayı otomatiğe alıp öyle makroyu çalıştırın.

 

[mcetinkaya65]

Sayın Necdet Yeşertener,
Yukarda hazırladığınız proğrama nasıl bir şeyler ekleyelim ki,resmi tatilleri,dini ve milli bayramları da işaretletip,bir memurun izinleri ve tatilleri hariç mesayi günlerini hesaplayabilelim.Örnek:Bir memur istediğimiz bir ay içersinde net olarak kaç gün çalışmış.
Saygılarımla.