شرح هذا الكود

[مؤمن خليل]

ارجو منكم شرح هذا الكود بالتفصيل الممل حيث اني مبتدأ ومعلومات بسيطه جدا جدا ولكم وافر الاحترام

Sub tareq()

LR = Cells.SpecialCells(xlLastCell).Row

Range("A2:H" & LR).ClearContents

Sheets(1).Select

[C1,E1:G1].Copy ([N1])

[A1,C1:E1,G1:H1].Copy ([L5])

[P1].Copy ([R5])

If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData

Sheets(2).[I2:L2].Copy

[N2].PasteSpecial Paste:=xlPasteValues

[P2].Cut

[R2].Select

Selection.Insert Shift:=xlToRight


LR = [A9999].End(xlUp).Row

Range("A1:K" & LR).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[N1:Q2], CopyToRange:=[L5:R5], Unique:=True

LR = [L9999].End(xlUp).Row

Range("L5:R" & LR).Copy

n = ActiveWorkbook.Name

   p = ActiveWorkbook.Path

   Workbooks.Add

    ActiveSheet.Paste

[A1].Select

ActiveSheet.DisplayRightToLeft = True

tt = Format(Time, "H_mm_ss")

dd = Format(Date, "mmm_dd") & "_" & tt

    ActiveWorkbook.SaveAs Filename:=p & "\" & dd & ".xls", FileFormat:=xlExcel8

    ActiveWorkbook.Close

Range("L1:T" & LR).FillLeft

Sheets(2).Select

[A1].Select

End Sub

تم تعديل ديسمبر 23, 2012 بواسطه عبدالله المجرب

[ياسر خليل أبو البراء]

الأخ السائل

الأكواد لا ترفق هكذا ... ارفق ملف للتوضيح

وإن شاء المولى ستجد من يساعدك