İzin programı

[ASLAN7410]

Merhaba, hayırlı geceler.

Ekte gönderdiğim izin programında her şey gayet güzel çalışıyor, küçük bir ihtiyaç oldu.

Yapmak istediğim İZİN sayfası N8 hücresine yazdığım personelin siciline göre, ARŞİV sayfasındaki bilgileri, İZİN sayfasının D29 ile J33 arasına getirmek istiyorum.

Yardımcı olur musunuz?

 

[ASLAN7410]

Yapmak istediğim dosya ekte

 

[ASLAN7410]

Konu günceldir.

 

[YUSUF44]

Aşağıdaki kodları İZİN sayfasının kod bölümüne yapıştırırsanız, N8 hücresini değiştirince istediğiniz listelemeyi yapar:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [N8]) Is Nothing Then Exit Sub
Set s2 = Sheets("ARŞİV")
son = s2.Cells(Rows.Count, "B").End(3).Row
If Target = "" Then
    [D29:K33] = ""
ElseIf WorksheetFunction.CountIf(s2.Range("B1:B" & son), Target) = 0 Then
    MsgBox a & " sicil nolu personele ait izin bilgisi bulunamadı!", vbInformation
    [D29:K33] = ""
Else
    a = 29
    [D29:K33] = ""
    For i = 2 To son
        If s2.Cells(i, "B") = Target Then
            
            Cells(a, "D") = s2.Cells(i, "G")
            Cells(a, "F") = s2.Cells(i, "E")
            Cells(a, "H") = s2.Cells(i, "F")
            Cells(a, "J") = s2.Cells(i, "J")
            a = a + 1
        End If
    Next
End If

End Sub

 

[ASLAN7410]

Sayın Yusuf Bey, ilginiz için çok teşekkür ediyorum, kod gayet güzel çalışıyor, ellerinize sağlık.
Aynı hücrede butonla iki ayrı formül kullanacağım için formülle çözüm istemiştim.

 

[YUSUF44]

Ne fark eder ki, iki farklı formül yerine iki farklı kod kullanırsınız. Diğer durum nedir?

 

[ASLAN7410]

Sayın Yusuf Bey, diğer yapmak istediğim de butana bastığımda cari yılda izne çıkanları getirmekti.

 

[ASLAN7410]

Sayın Yusuf Bey, cari yıla ve bir önceki yıla ait verilerin getirilmesini istemiştim. 4.numaralı mesajızındaki kodlar 2018 yılına ait bilgileride getiriyor, ayrıca eskiden yeniye doğru geliyor bilgiler, yeniden eskiye doğru gelmesini istiyorum.

 

[YUSUF44]

Sayın Yusuf Bey, diğer yapmak istediğim de butana bastığımda cari yılda izne çıkanları getirmekti.

Nasıl yani? Hangi veriler hangi sayfada nereye listelenecek?

 

[YUSUF44]

Sayın Yusuf Bey, cari yıla ve bir önceki yıla ait verilerin getirilmesini istemiştim. 4.numaralı mesajızındaki kodlar 2018 yılına ait bilgileride getiriyor, ayrıca eskiden yeniye doğru geliyor bilgiler, yeniden eskiye doğru gelmesini istiyorum.

Bunu daha önce belirtmemiştiniz. Aşağıdaki kodu deneyin:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [N8]) Is Nothing Then Exit Sub
Set s2 = Sheets("ARŞİV")
son = s2.Cells(Rows.Count, "B").End(3).Row
If Target = "" Then
    [D29:K33] = ""
ElseIf WorksheetFunction.CountIf(s2.Range("B1:B" & son), Target) = 0 Then
    MsgBox a & " sicil nolu personele ait izin bilgisi bulunamadı!", vbInformation
    [D29:K33] = ""
Else
    a = 29
    [D29:K33] = ""
    For i = son To 2 Step -1
        If s2.Cells(i, "B") = Target Then
            If Year(s2.Cells(i, "F")) = Year(Date) Or Year(s2.Cells(i, "F")) = Year(Date) - 1 Then
                Cells(a, "D") = s2.Cells(i, "G")
                Cells(a, "F") = s2.Cells(i, "E")
                Cells(a, "H") = s2.Cells(i, "F")
                Cells(a, "J") = s2.Cells(i, "J")
                a = a + 1
            End If
        End If
    Next
End If
End Sub

 

[ASLAN7410]

Sayın Yusuf Bey, ellerinize sağlık çok teşekkür ediyorum.

Hayırlı akşamlar.