طلب مساعدة في كيفية برمجة هذا الإكسيل؟؟؟

[hicham2610]

 

 

الإخوة الكرام

 

أشكركم على المجهودات الجبارة التي تبذلونها

 

المرجو توضيح كيفية برمجة الوثيقة المسماة أكسيل لحساب المجمل بحيث توضع في ملف أصفر مع ثلاث وثائق أخرى وبمجرد فتحها تستورد المعطيات من تلك الوثائق كالتالي:

 

المطلوب في وثيقة مع الملفات المرفقة

 

إذا نجحت هذه العملية فعندنا في 1 معدلات المواد للدورة الأولة وفي 2 معدلات للدورة 2 وبذلك المجمل سيحسب أوطوماتيكيا المعدل السنوي للمواد

 

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

الملف.rar

تم تعديل يونيو 27, 2016 بواسطه hicham2610

[hicham2610]

السلام عليكم

في انتظار ردكم إخوتي للأهمية

وجزاكم الله خيرا

[hicham2610]

أنا في الانتظار إخوتي الكرام

إن كان ليس هذا القسم المناسب لوضع هذا الطلب المرجو إرشادي للقسم المناسب

جزاكم الله خيرا

[hicham2610]

الاخوة الكرام

هل طلبي صعب؟ أم ليس له حل؟

وشكرا

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

السلام عليكم أخي الكريم هشام

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

Sub CopyFromClosedWB(strSourceWB As String, strSourceWS As String, strSourceRange As String, rngTarget As Range)
    Dim WB As Workbook
    
    Application.ScreenUpdating = False
    Application.StatusBar = "Copying Data From " & strSourceWB & "..."
        On Error Resume Next
            Set WB = Workbooks.Open(strSourceWB, True, True)
        On Error GoTo 0
        
        If Not WB Is Nothing Then
            On Error Resume Next
                With WB.Worksheets(strSourceWS).Range(strSourceRange)
                    .Copy rngTarget
                End With
            On Error GoTo 0
            
            WB.Close False
            Set WB = Nothing
        End If
        
    Application.StatusBar = False
    Application.ScreenUpdating = True
End Sub

Sub TestCopyFromClosedWB()
    CopyFromClosedWB ThisWorkbook.Path & "\TestBook.xls", "Sheet1", "B1:F10", Range("A1")
End Sub

تقبل تحياتي

 

Get Data From Closed Workbook UDF Function YasserKhalil.rar

[hicham2610]

جزاك الله خيرا أخي ياسر على ردك

سأحاول معه وإن كنت لا اعرف شيئا في البرمجة 

كنت أريد كودا حسب يحل طلبي 

مرة أخرى جزاك الله خيرا