اعداد تقارير عن حركة السيارات

[mahmoud_saa6]

السلام عليكم  الرجاء المساعدة في اعداد تقارير عن حركة السيارات بشيت اكسيل مرفق مثل تقرير منفصل لكل تريلا او سيارة وادخال البيانات فى صفحة واحدة 

سوف اوضح المطلوب بالشيت ... انتبه من فضلك فقد تـــم تعديل رفع الملف بإمتداد XLSM ,طالما انك تريد العمل بالأكواد

تقرير كامل تشغيل.xlsm

[lionheart]

Sub Test()
    Const col As Integer = 3
    Dim a, e, dic As Object, k As String, i As Long
    Application.ScreenUpdating = False
        Set dic = CreateObject("Scripting.Dictionary")
        With Sheets(1).Range("A1:AA" & Sheets(1).Cells(Rows.Count, "B").End(xlUp).Row)
            a = .Columns(col).Resize(, 2).Value
            For i = 6 To UBound(a, 1)
                k = a(i, 1) & Space(1) & a(i, 2)
                If Not dic.Exists(k) Then
                    Set dic(k) = Union(.Rows("1:5"), .Rows(i))
                Else
                    Set dic(k) = Union(dic(k), .Rows(i))
                End If
            Next i
        End With
        For Each e In dic
            If Not Evaluate("ISREF('" & e & "'!A1)") Then
                Sheets.Add(, Sheets(Sheets.Count)).Name = e
            End If
            With Sheets(e)
                .DisplayRightToLeft = True
                .UsedRange.Clear
                dic(e).Copy .Cells(1)
                .Columns.AutoFit
            End With
        Next e
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Delete the columns from column AB to column AK first then run the code

1تقرير كامل تشغيل.xlsm

[mahmoud_saa6]

بارك الله  فبكم جميعا

 

[lionheart]

Press Alt + F8 and run the code Test

Report.xlsm