(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...