(17/11/2023, 09:25)cdenktas yazdı: [quote="feraz" pid="191106" dateline="1700125099"]
Resimden anladığım kadarıyla B5 e giriş(B2) C deki son tarihede çıkış tarihi yazılacak F2 deki.

PHP Kod:

Private Sub CommandButton1_Click()
    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
    
    say = 5
    Union(Range("B5:C" & Rows.Count), Range("E5:E" & Rows.Count)).Value = ""
    If 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
                    If say = 5 Then Range("B5").Value = Range("B2").Value
                    say = say + 1
                End If
            Next
        End With
    End If
    If say > 5 Then Range("C" & say - 1).Value = Range("F2").Value
    Set syf = Nothing
End Sub 


Kusura bakmayın, emeğinize sağlık, çok teşekkür ederim. Ufak bir yerde sorun var. Resmi atarken bir sorun oldu, zip dosya atıyorum...