اذهب الي المحتوي
أوفيسنا

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

zakwan

بواسطه zakwan
في منتدى الاكسيل Excel

 مشاركة

الردود الموصى بها

zakwan

zakwan

قام بنشر
قام بنشر (معدل)

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

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

المطلوب هو انني استلم عادة مابين 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

تم تعديل بواسطه zakwan
رابط هذا التعليق
شارك
احمدزمان

احمدزمان

قام بنشر
قام بنشر

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

اخي زكوان

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

On Error Resume Next
Application.ScreenUpdating = False

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

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

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

رابط هذا التعليق
شارك
zakwan

zakwan

قام بنشر
  • الكاتب
قام بنشر

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

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

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept