Çözüldü Farklı sayfadan kritere göre veri alma

[tukayf]

Yapmak istediğim işlem. E sütununda bulunan personelin F sütunundaki tarihte izin sorgusunun İzin sayfasından yapılması. İzin sayfasında izin başlangıç tarihi F sütunda izin bitiş tarihi H sütununda.
Eğer ki personel belirtilen tarihlerde izindeyse G ve H sütunlarına izin yazdırılması.
Dosya içerisinde de açıklama yaptım.
Çözümler makro ile olursa çok daha makbule geçer. Şimdiden teşekkürler.

 

[Haluk]

Sub checkIzin()
    Dim Sh1 As Worksheet, Sh2 As Worksheet, NoE_1 As Integer, NoE_2 As Integer
    Dim izin_baslangic As Double, izin_bitis As Double, i As Integer, j As Integer
    
    Set Sh1 = Sheets("Sheet1")
    Set Sh2 = Sheets("Sayfa1")
    
    NoE_1 = Sh1.Range("E" & Rows.Count).End(xlUp).Row
    NoE_2 = Sh2.Range("E" & Rows.Count).End(xlUp).Row
    
    For i = 3 To NoE_1
        For j = 3 To NoE_2
            izin_baslangic = CDbl(Sh2.Range("F" & j))
            izin_bitis = CDbl(Sh2.Range("H" & j))
            
            If Sh1.Range("E" & i) = Sh2.Range("E" & j) Then
                If CDbl(Sh1.Range("F" & i)) >= izin_baslangic And Sh1.Range("F" & j) <= izin_bitis Then
                    Sh1.Range("G" & i) = Sh2.Range("I" & j)
                    Sh1.Range("H" & i) = Sh2.Range("I" & j)
                End If
            End If
    Next j, i
End Sub

.

 

[tukayf]

Hocam harikasınız teşekkür ederim.