شرح كود بالتفصيل

[محمد الورفلي1]

السلام عليكم

ارجوا شرح الكود بالتفصيل وشكرا

Sub sajida2()
    Dim lr As Long: Dim i As Long
    Dim j As Long: Dim k As Long
    Dim rng As String: Dim rng1 As Date: Dim rng2 As Date
    rng = [K3]: rng1 = [K4]: rng2 = [K5]
    k = 7
    lr = Cells(Rows.Count, 3).End(xlUp).Row
For i = 3 To lr
  If Range("c" & i) = rng And Range("d" & i) >= rng1 And Range("d" & i) <= rng2 Then
    For j = 5 To 8
    Cells(k, j + 8) = Cells(i, j)
    Next j
       k = k + 1
  End If
Next i
End Sub

بين تاريخين.xlsmFetching info...

[محمد هشام.]