Merhaba Arkadaşlar;

Sizin yardımınıza ihtiyacım var,

Personeller daha önce çalışmış oldukları görevine göre yüklenici firmalara rucü yapılacaktır. İlgili personelin işe başlama tarihi - bitiş tarihi giriş yapılıp aynı zamanda Görevi seçildiğinde Excel sayfasındaki ilgili göreve ait yüklenici firmaların ismi getirebilir miyiz?


İlginiz için çok teşekkür ederim.

---

Aynı zamanda rucü yüklenci firmasına ilgili personeli hem firma isimleri hem tarihler gelmesi gerekiyor,

Çok teşekkür ederim...

Sonucu Excel dosyada gösterirseniz yardımcı olmaya çalışırız.
Açıklamada ekleyin.

Açıklama olarak Excel içerisine not düştüm...Desteğiniz için çok teşekkür ederim...

Rica ederim.
Tarihler ve görev değişince kod çalışır gifteki gibi.

Yada sayfaya bir buton ekleyip kodu ordan çağırma örneği.

(14/11/2023, 23:26)feraz yazdı: Rica ederim.
Tarihler ve görev değişince kod çalışır gifteki gibi.

PHP Kod:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Long, son As Long, say As Long
    Dim syf As Worksheet
    
    On Error Resume Next
    Set syf = ThisWorkbook.Worksheets(Range("I1").Value)
    On Error GoTo 0
    
    If Not Intersect(Target, Union(Range("B2"), Range("F2"), Range("I1"))) Is Nothing Then
        say = 5
        Union(Range("B5:C" & Rows.Count), Range("E5:E" & Rows.Count)).Value = ""
        If Trim(Target.Value) <> "" And Not syf Is Nothing Then
            With syf
                For i = 2 To .Cells(Rows.Count, "A").End(3).Row + 1
                    If (.Cells(i, "B").Value2) >= Cells(2, "B").Value2 And (.Cells(i, "C").Value2 <= Cells(2, "F").Value2) Then
                        Range("B" & say).Value = .Cells(i, "B").Value
                        Range("C" & say).Value = .Cells(i, "C").Value
                        Range("E" & say).Value = .Cells(i, "A").Value
                        say = say + 1
                    End If
                Next
            End With
        End If
    End If
    Set syf = Nothing
End Sub 


Merhabalar, ilginiz ve emeğiniz için çok teşekkür ederim,

Benim gözümden kaçan bir husus varmış, kusura bakmayın. Kişi iş başlama tarihi örnek yazmış olduğumuz iş başlama -iş bitiş tarihi arasında olduğunda, o satırdaki ilgili firma ismi ve başlangıç tarihi benim gri kısımdaki işe başlangıç tarihi ile başlayacak.

Örneğin kişi işe başlama tarihi 18.05.2005 başladığında

a 16.05.2005 31.05.2005 iki tarih arasında oluyor ve işe başlangıç tarihim 18.05.2005 olup iş bitiş tarihide 31.05.2005 olması gerekiyor..