أكاديمية الصقر للتدريب

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


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





كود تحديث المعلومات من ملف الى ملف اخر

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



20-06-2020 07:15 مساء
noureddine70
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2019
رقم العضوية : 11894
المشاركات : 73
الدولة : الجزائر
الجنس : ذكر
تاريخ الميلاد : 6-12-1970
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 103
 offline 

السلام عليكم و رحمة الله و بركاته
بارك الله فيكم و جزاكم الله خيرا على كل المجهودات المبذولة من طرف الجميع في المنتدي الرائع و الجميل
اطلب منكم كود تحديث المعلومات 
انا عندي ملفين الملف "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


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

ضع الكود التالي في موديول عادي
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 قم باستدعاء الكود باسمه في بداية الكود في الموديول بهذا الشكل
Private Sub Workbook_Open()
    UpdateFromSource
    ThisWorkbook.Application.Visible = False
    Load FrmImp
    FrmImp.Show
End Sub

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

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

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

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




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


 










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

الساعة الآن 07:43 صباحا