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

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


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





نسخ بيانات من مصنف مغلق لمصنف آخر

السلام عليكم ورحمة الله وبركاته تابعت دروس نقل بيانات من مصنف مغلق لمصنف آخر ولكني تهت بالفعل ولم اتمكن من الفهم...رجاءا ..



04-10-2019 02:56 مساء
نصر الإيمان
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 332
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 3
قوة السمعة : 750
الاعجاب : 88
 offline 
السلام عليكم ورحمة الله وبركاته
تابعت دروس نقل بيانات من مصنف مغلق لمصنف آخر
ولكني تهت بالفعل ولم اتمكن من الفهم...رجاءا المساعده بهذا الملف لكي افهم
وجزاكم الله خيرا

MTMzMTg5MQ6565Untitled

 
 
  نقل من مصنف مغلق لآخر.rar   تحميل rar مرات التحميل :(5)
الحجم :(27.27) KB





04-10-2019 04:20 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8257
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24051
الاعجاب : 2567
 offline 
look/images/icons/i1.gif نسخ بيانات من مصنف مغلق لمصنف آخر
وعليكم السلام يا دكتور
الموضوع بسيط جداً إن شاء الله

حاول دائماً ترتيب الخطوات لكي تستطيع حل المشكلة
حل المشكلة يتمثل في فتح المصنف المغلق 
تعيين ورقة العمل المصدر التي فيها البيانات المراد نسخها
تعيين ورقة العمل الهدف التي سيتم لصق البيانات بها

جرب الكود لعله يفي بالغرض

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

أثارت هذه المشاركة إعجاب: نصر الإيمان، ali mohamed ali،



04-10-2019 05:06 مساء
مشاهدة مشاركة منفردة [2]
نصر الإيمان
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 332
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 3
قوة السمعة : 750
الاعجاب : 88
 offline 
look/images/icons/i1.gif نسخ بيانات من مصنف مغلق لمصنف آخر
جزاك الله خيرا
سلمت يداك
 الملف اللي اطلعت عليه كان صعب وتهت فيه
لكن الكود اللي حضرتك ارفقته ما شاء الله وضح لي كل شيء
دا الكود اللي تهت فيه
Sub Test()
    'Q8 >> Cell With Workbook Name | Q12 >> First Cell To Put Results
    '----------------------------------------------------------------
    GetDataFromClosedWorkbook "Q8", "Q12"
    GetDataFromClosedWorkbook "u8", "u12"
    GetDataFromClosedWorkbook "y8", "y12"
End Sub
 
Sub GetDataFromClosedWorkbook(sFileCell As String, sStartCell As String)
    Dim wb              As Workbook
    Dim ws              As Worksheet
    Dim a               As Variant
    Dim strFileName     As String
    Dim sFilter         As String

    Set ws = ThisWorkbook.Worksheets("UIR")
    strFileName = ThisWorkbook.Path & "" & ws.Range(sFileCell).Value & ".xlsx"
    sFilter = "$F$11:$F$141"

    Application.ScreenUpdating = False
        With ws.Range(sStartCell)
            .Resize(.CurrentRegion.Rows.Count, 4).ClearContents
        End With
        ws.Range(sFilter).AutoFilter Field:=1

        If Len(Dir(strFileName)) > 0 Then
            Set wb = Workbooks.Open(Filename:=strFileName)
            With wb.Worksheets(1)
                .Range(sFilter).AutoFilter Field:=1
                a = .Range(sStartCell).Resize(.Range(sStartCell).CurrentRegion.Rows.Count, 4).Value
                ws.Range(sStartCell).Resize(UBound(a, 1), UBound(a, 2)).Value = a
                .Parent.Close False
            End With

            ws.Range(sFilter).AutoFilter Field:=1, Criteria1:="1"
            Application.Goto ws.Range("S2")
        Else
            MsgBox strFileName & " Can't Be Found!", vbExclamation, "File Not Found"
        End If
    Application.ScreenUpdating = True
End Sub


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



04-10-2019 09:23 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8257
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24051
الاعجاب : 2567
 offline 
look/images/icons/i1.gif نسخ بيانات من مصنف مغلق لمصنف آخر
بارك الله فيك يا دكتور
ما يصلح لموضوع قد لا يصلح أحياناً لموضوع آخر

الفكرة في موضوعك أسهل بكثير .. ثم إن الكود الذي أرفقته استخدم لأنه يتعامل مع أكثر من ملف مغلق في نفس الكود

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
فورم ترحيل بيانات واستدعاء وحفظ صور مجدى يونس
5 489 mamdouh
فورم تسجيل البيانات والبحث عنها مع الصور مجدى يونس
2 32 مجدى يونس
لاستعادة البيانات المحذوفة من الهاتف Wondershare Dr.Fone for Android and iOS 10.0.1.54 amiros
1 38 amiros
كود تجميع البيانات khaled alborene
7 122 YasserKhalil
بعض طرق ترحيل البيانات Yasser Elaraby
42 5545 hassona229

الكلمات الدلالية
بيانات ، مصنف ، مغلق ، لمصنف ،


 







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

الساعة الآن 03:03 صباحا

أعلن هنا
أعلن هنا
أعلن هنا