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



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







20-06-2020 07:15 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2019
رقم العضوية : 11894
المشاركات : 67
الدولة : الجزائر
الجنس :
تاريخ الميلاد : 6-12-1970
قوة السمعة : 110
الاعجاب : 2
السلام عليكم و رحمة الله و بركاته
بارك الله فيكم و جزاكم الله خيرا على كل المجهودات المبذولة من طرف الجميع في المنتدي الرائع و الجميل
اطلب منكم كود تحديث المعلومات
انا عندي ملفين الملف "SOURCE" و الملف "MOI" الي انا اعمل فيه و فيه اليوزرفورم
اريد كود عندما اقوم بفتح الملف "MOI" يقوم بنقل المعلومات الجديدة التي دخلت في الملف "SOURCE" الى الملف "MOI" دون فتح الملف "SOURCE" و يقوم مباشرة باظهار اليوزرفورم الموجود في الملف "MOI"
و المعلومات التي يتم نقلها هي الموجودة بالأعمدة A B C D
و بارك الله فيكم
و السلام عليكم و رحمة الله و بركاته
 
 
  SOURCE.xlsx   تحميل xlsx مرات التحميل :(11)
الحجم :(10.381) KB
  MOI.xlsm   تحميل xlsm مرات التحميل :(12)
الحجم :(20.658) KB


أثارت هذه المشاركة إعجاب: محمد أبو عبدو،



look/images/icons/i1.gif كود تحديث المعلومات من ملف الى ملف اخر
  21-06-2020 08:32 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10516
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36718
الاعجاب : 170
وعليكم السلام أخي الكريم
الرجاء وضع صورة لبروفايك ..

ضع الكود التالي في موديول عادي
CODE
Sub UpdateFromSource()
    Dim wb As Workbook, ws As Worksheet, sh As Worksheet, lr As Long
    Application.ScreenUpdating = False
        Set wb = Workbooks.Open(ThisWorkbook.Path & "\SOURCE.xlsx")
        Set ws = wb.Worksheets(1)
        Set sh = ThisWorkbook.Worksheets("BD")
        lr = ws.Cells(Rows.Count, 1).End(xlUp).Row
        sh.Range("A2:E" & Rows.Count).ClearContents
        ws.Range("A2:D" & lr).Copy sh.Range("A2")
        wb.Close False
        With sh.Range("E2:E" & lr)
            .Formula = "=C2*D2"
        End With
    Application.ScreenUpdating = True
End Sub


والكود بسيط ولا يحتاج لشرح حيث يقوم بفتح المصنف Source ثم يقوم بنسخ البيانات منه من الأعمدة التي ذكرتها ثم يغلق الملف ، وفي نهاية الكود يتم وضع المعادلة المذكورة في العمود الخامس.

وفي موديول ThisWorkbook قم باستدعاء الكود باسمه في بداية الكود في الموديول بهذا الشكل
CODE
Private Sub Workbook_Open()
    UpdateFromSource
    ThisWorkbook.Application.Visible = False
    Load FrmImp
    FrmImp.Show
End Sub


أثارت هذه المشاركة إعجاب: noureddine70، ali mohamed ali، abouelhassan، ashraf_hertlion،



look/images/icons/i1.gif كود تحديث المعلومات من ملف الى ملف اخر
  21-06-2020 10:40 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2019
رقم العضوية : 11894
المشاركات : 67
الدولة : الجزائر
الجنس :
تاريخ الميلاد : 6-12-1970
قوة السمعة : 110
الاعجاب : 2
بارك الله فيك و جزاك الله خيرا
فعلا كود سهل و بسيط و رائع استاذ تستهل ملايير الاعجاب
حفظك الله اخي ياسر
اما عن صورة البروفايل ان شاءالله ساغيرها

أثارت هذه المشاركة إعجاب: YasserKhalil،



look/images/icons/i1.gif كود تحديث المعلومات من ملف الى ملف اخر
  21-06-2020 11:15 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10516
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36718
الاعجاب : 170
بارك الله فيك أخي الكريم نور الدين ومشكور على كلماتك الطيبة
والحمد لله الذي بنعمته تتم الصالحات

أثارت هذه المشاركة إعجاب: noureddine70،



look/images/icons/i1.gif كود تحديث المعلومات من ملف الى ملف اخر
  22-06-2020 12:24 صباحاً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس :
قوة السمعة : 423
الاعجاب : 3
شكر وتقدير واحترام من اخيك استاذنا ابو البراء

أثارت هذه المشاركة إعجاب: YasserKhalil،



look/images/icons/i1.gif كود تحديث المعلومات من ملف الى ملف اخر
  22-06-2020 08:01 صباحاً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10516
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36718
الاعجاب : 170
بارك الله فيك أخي العزيز أبا الحسن ومشكور على مرورك العطر.




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
خطأ عند تحويل معادلة MAXIFS الى كود VBA EM_ACC
0 30 EM_ACC
طلب كود VBA لتحويل المعادلة في خلية ما الى قيمة ثابتة بشرط ادخال بيانات في خلية اخرى منير 75
1 209 منير 75
اصلاح كود الترحيل من عدة صفحات الى صفحة واحدة هانى على
10 2994 hassona229
اريد تحويل المعادلة الى كود بسام جمال
1 813 بسام جمال
تحويل من معادلة الى كود حسين الحمادي
3 1234 حسين الحمادي

الكلمات الدلالية
تحديث ، المعلومات ،








اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 05:10 PM.