عملت كــود وبحاجة لأضافاتكم ومساعدتكم في وضع احتمالات

[zakwan]

ســــــــــــلام الله عليكم اخوتي الافاضل

عملت كود في الاكسيل وبحاجة لمساعدتكم

المطلوب هو انني استلم عادة مابين 8 الى 12 ملف اكسيل من الشركة الاخرى واقوم بتنسيق هذه الملفات واجمعها ضمن ملف اكسيل واحد

ولكن كما هو موجود في الكود المرفق مخصص لأستلام 11 ملف اكسيل ولكن قد استلم غدا 8 ملفات فقط فحينئذا يتوقف الماكروا او الكود عندما لايجد ذلك الملف

فهنا اطلب منكم مساعدتي في كيفية وضع احتمال عدم استلام اي ملف لايتوقف الماكرو بل ينتقل للملف الآخر

وشكرا للمساعدة

مرفق ملف فيه الكود

ملاحظة:

========

الاسطر الاولى من الماكروا هي لعمل 12 صفحة جديدة تلقائيا لنسخ الملفات المستلمة في حال كان احد لدية فكرة افضل من التي واضعها فله جزيل الشكر ومنكم نستفيد

Sub ATM()
'
' ATM Macro
' Macro recorded 20/07/2008 by Zakwan
'
' Keyboard Shortcut: Ctrl+j
'
    Sheets("Sheet2").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Sheet3").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Sheet1").Select
    Sheets.Add
    Sheets("Sheet2").Copy Before:=Sheets(2)
    Sheets("Sheet2 (2)").Copy Before:=Sheets(3)
    Range("A1,D46").Select
    Range("D46").Activate
    Sheets("Sheet2 (3)").Copy Before:=Sheets(4)
    Sheets("Sheet2 (4)").Copy Before:=Sheets(5)
    Sheets("Sheet2 (5)").Copy Before:=Sheets(6)
    Sheets("Sheet2 (6)").Copy Before:=Sheets(7)
    Sheets("Sheet2 (7)").Copy Before:=Sheets(8)
    Sheets("Sheet2 (8)").Copy Before:=Sheets(9)
    Sheets("Sheet2 (9)").Copy Before:=Sheets(10)
    Sheets("Sheet2 (10)").Copy Before:=Sheets(11)
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Sheet2").Select
    Sheets("Sheet2").Name = "1"
    Sheets("Sheet2 (2)").Select
    Sheets("Sheet2 (2)").Name = "2"
    Sheets("Sheet2 (3)").Select
    Sheets("Sheet2 (3)").Name = "3"
    Sheets("Sheet2 (4)").Select
    Sheets("Sheet2 (4)").Name = "4"
    Sheets("Sheet2 (5)").Select
    Sheets("Sheet2 (5)").Name = "5"
    Sheets("Sheet2 (6)").Select
    Sheets("Sheet2 (6)").Name = "6"
    Sheets("Sheet2 (7)").Select
    Sheets("Sheet2 (7)").Name = "7"
    Sheets("Sheet2 (8)").Select
    Sheets("Sheet2 (8)").Name = "8"
    Sheets("Sheet2 (9)").Select
    Sheets("Sheet2 (9)").Name = "9"
    Sheets("Sheet2 (10)").Select
    Sheets("Sheet2 (10)").Name = "10"
    Sheets("Sheet2 (11)").Select
    Sheets("Sheet2 (11)").Name = "11"
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = "12"
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\zakwan\Desktop\ATM\setluaes.xls"
    Windows("setluaes.xls").Activate
    Range("B:C,E:E,J:J").Select
    Range("J1").Activate
    Selection.Delete Shift:=xlToLeft
    Range("D:D,E:E").Select
    Range("E1").Activate
    Selection.ColumnWidth = 4
    Range("c1").Activate
    Selection.ColumnWidth = 27
    ActiveSheet.Shapes("Picture 1").Select
    Selection.ShapeRange.IncrementLeft -288.75
    Cells.Select
    Selection.Copy
    Windows("ATM.xls").Activate
    Sheets("1").Select
    Range("A1").Select
    ActiveSheet.Paste
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True
    Application.CutCopyMode = False
    Windows("setluaes.xls").Activate
    ActiveWorkbook.Saved = True
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\zakwan\Desktop\ATM\setlpic ebimeb.xls"
    Windows("setlpic ebimeb").Activate
    Range("B:C,E:E,J:J").Select
    Range("J1").Activate
    Selection.Delete Shift:=xlToLeft
    Range("D:D,E:E").Select
    Range("E1").Activate
    Selection.ColumnWidth = 4
    Range("c1").Activate
    Selection.ColumnWidth = 27
    ActiveSheet.Shapes("Picture 1").Select
    Selection.ShapeRange.IncrementLeft -288.75
    Cells.Select
    Selection.Copy
    Windows("ATM.xls").Activate
    Sheets("2").Select
    Range("A1").Select
    ActiveSheet.Paste
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True
    Application.CutCopyMode = False
    Windows("setlpic ebimeb").Activate
    ActiveWorkbook.Saved = True
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\zakwan\Desktop\ATM\setlpic cbd.xls"
    Windows("setlpic cbd").Activate
    Range("B:C,E:E,J:J").Select
    Range("J1").Activate
    Selection.Delete Shift:=xlToLeft
    Range("D:D,E:E").Select
    Range("E1").Activate
    Selection.ColumnWidth = 4
    Range("c1").Activate
    Selection.ColumnWidth = 27
    ActiveSheet.Shapes("Picture 1").Select
    Selection.ShapeRange.IncrementLeft -288.75
    Cells.Select
    Selection.Copy
    Windows("ATM.xls").Activate
    Sheets("3").Select
    Range("A1").Select
    ActiveSheet.Paste
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True
    Application.CutCopyMode = False
    Windows("setlpic cbd").Activate
    ActiveWorkbook.Saved = True
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\zakwan\Desktop\ATM\atmwdacq.xls"
    Windows("atmwdacq.xls").Activate
    Columns("A:A").EntireColumn.AutoFit
    Columns("A:A").ColumnWidth = 17.29
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 16.43
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 1.43
    Columns("D:D").ColumnWidth = 8.29
    Columns("D:D").ColumnWidth = 8.57
    Columns("E:E").ColumnWidth = 8
    Columns("F:F").ColumnWidth = 6.14
    Columns("G:G").ColumnWidth = 6
    Columns("H:H").ColumnWidth = 7.57
    Columns("I:I").ColumnWidth = 4.43
    Range("I3").Select
    ActiveCell.FormulaR1C1 = "REF"
    Range("I1").Select
    ActiveCell.FormulaR1C1 = "PAG"
    Range("I2").Select
    Columns("J:J").Select
    Selection.Delete Shift:=xlToLeft
    Cells.Select
    Selection.Copy
    Windows("ATM.xls").Activate
    Sheets("4").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("atmwdacq.xls").Activate
    ActiveWorkbook.Saved = True
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\zakwan\Desktop\ATM\atmsumis.xls"
    Windows("atmsumis.xls").Activate
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 4.57
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 8.71
    Columns("D:D").ColumnWidth = 7
    Columns("E:E").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 6.29
    Columns("F:F").ColumnWidth = 4.86
    Columns("G:G").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 8.71
    Columns("H:H").ColumnWidth = 3.71
    Columns("I:I").ColumnWidth = 5.14
    Columns("J:J").Select
    Selection.Delete Shift:=xlToLeft
    Cells.Select
    Selection.Copy
    Windows("ATM.xls").Activate
    Sheets("5").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("atmsumis.xls").Activate
    ActiveWorkbook.Saved = True
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\zakwan\Desktop\ATM\atmsumaq.xls"
    Windows("atmsumaq.xls").Activate
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 6.57
    Columns("A:A").ColumnWidth = 7.57
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Columns("D:D").ColumnWidth = 5.29
    Columns("E:E").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 6.71
    Columns("F:F").ColumnWidth = 5
    Columns("G:G").Select
    Selection.Delete Shift:=xlToLeft
    Columns("H:H").ColumnWidth = 6
    Columns("I:I").ColumnWidth = 5.43
    Columns("J:J").Select
    Selection.Delete Shift:=xlToLeft
    Cells.Select
    Selection.Copy
    Windows("ATM.xls").Activate
    Sheets("6").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("atmsumaq.xls").Activate
    ActiveWorkbook.Saved = True
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\zakwan\Desktop\ATM\atmissue.xls"
    Windows("atmissue.xls").Activate
    Columns("A:A").ColumnWidth = 14
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 0.75
    Columns("C:C").ColumnWidth = 8.71
    Columns("D:D").ColumnWidth = 8.14
    Columns("E:E").ColumnWidth = 6.57
    Columns("F:F").ColumnWidth = 9.29
    Columns("G:G").ColumnWidth = 16.14
    Columns("H:H").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 6.71
    Columns("J:J").Select
    Selection.Delete Shift:=xlToLeft
    Cells.Select
    Selection.Copy
    Windows("ATM.xls").Activate
    Sheets("7").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("atmissue.xls").Activate
    ActiveWorkbook.Saved = True
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\zakwan\Desktop\ATM\atminqis.xls"
    Columns("A:A").ColumnWidth = 14
    Columns("B:C").Select
    Selection.Delete Shift:=xlToLeft
    Columns("H:H").ColumnWidth = 0.92
    Columns("F:F").ColumnWidth = 16.14
    Columns("G:H").Select
    Selection.Delete Shift:=xlToLeft
    Columns("B:B").ColumnWidth = 4.71
    Columns("C:C").ColumnWidth = 8.43
    Columns("D:D").ColumnWidth = 6.43
    Columns("E:E").ColumnWidth = 7.86
    Columns("G:G").ColumnWidth = 3
    Cells.Select
    Selection.Copy
    Windows("ATM.xls").Activate
    Sheets("11").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("atminqis.xls").Activate
    ActiveWorkbook.Saved = True
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\zakwan\Desktop\ATM\atminqaq.xls"
    Windows("atminqaq.xls").Activate
    Columns("A:A").ColumnWidth = 14.43
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 17
    Columns("C:C").ColumnWidth = 0.92
    Columns("D:D").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 3.43
    Columns("E:E").ColumnWidth = 5.71
    Columns("F:F").ColumnWidth = 8.43
    Columns("G:G").ColumnWidth = 6
    Columns("H:H").ColumnWidth = 5.43
    Columns("I:I").ColumnWidth = 8
    Range("I2").Select
    Columns("J:J").ColumnWidth = 10
    Cells.Select
    Selection.Copy
    Windows("ATM.xls").Activate
    Sheets("8").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("atminqaq.xls").Activate
    ActiveWorkbook.Saved = True
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\zakwan\Desktop\ATM\atmdecis.xls"
    Windows("atmdecis.xls").Activate
    Columns("A:A").ColumnWidth = 13.71
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 15.86
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 1.29
    Columns("D:D").ColumnWidth = 7.14
    Columns("E:E").ColumnWidth = 8.71
    Columns("F:F").ColumnWidth = 5.86
    Columns("G:G").ColumnWidth = 7.29
    Columns("H:H").ColumnWidth = 3.86
    Columns("I:I").ColumnWidth = 2.15
    Columns("J:J").ColumnWidth = 2.15
    Cells.Select
    Selection.Copy
    Windows("ATM.xls").Activate
    Sheets("9").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("atmdecis.xls").Activate
    ActiveWorkbook.Saved = True
    ActiveWindow.Close
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\zakwan\Desktop\ATM\atmdecaq.xls"
    Windows("atmdecaq.xls").Activate
    Columns("A:A").ColumnWidth = 14.14
    Columns("B:B").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 16.86
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 1.14
    Columns("D:D").ColumnWidth = 8.29
    Columns("E:E").ColumnWidth = 8.43
    Columns("F:F").ColumnWidth = 6.14
    Columns("G:G").ColumnWidth = 7.14
    Columns("H:H").Select
    Selection.Delete Shift:=xlToLeft
    Selection.ColumnWidth = 3.14
    Columns("I:I").ColumnWidth = 4.14
    Columns("J:J").ColumnWidth = 5.71
    Cells.Select
    Selection.Copy
    Windows("ATM.xls").Activate
    Sheets("10").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("atmdecaq.xls").Activate
    ActiveWorkbook.Saved = True
    ActiveWindow.Close
    Windows("ATM.xls").Activate
    Sheets("1").Select
    Range("A1").Select
    ActiveWorkbook.Saved = False
    
End Sub

ATM.txt

تم تعديل يوليو 23, 2008 بواسطه zakwan

[احمدزمان]

السلام عليكم و رحمة الله وبركاته

اخي زكوان

اضف في أول الكود السطر التالي

On Error Resume Next
Application.ScreenUpdating = False

وباذن الله لن يتوقف الماكرو كما طلبت و كذلك سوف تكون سرعة تنفيذ الأوامر للماكرو اكبر

واقترح عليك عمل بعض الإختصارات في الكود ليصبح اسرع و اسهل في التنفيذ

مع التحية و التقدير

[zakwan]

اخي القدير احمد يعقوب

جزاك الله كل خير ووفقك لما تحب وترضى

نفذت ماوضعته انت في بداية الماكروا وقمت على سبيل التجربة بحذف ملف وشغلت الماكروا

فحين تنفيذ الماكروا يغلق الملف الاساسي ولايقوم باي عمل ممهو مبرمج له

فهل لديك او لدى الاخوة الافاضل حل مع الشكر الجزيل

[zakwan]

للـــرفع

علي اجد من يساعدني

وشكرا للجميع