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