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

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


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


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

Preview




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

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



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

MTMzMTg5MQ6565Untitled

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





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

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

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

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




04-10-2019 05:06 مساء
مشاهدة مشاركة منفردة [2]
نصر الإيمان
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-02-2018
رقم العضوية : 4397
المشاركات : 343
الجنس : ذكر
تاريخ الميلاد : 29-12-1985
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 782
الاعجاب : 7
 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





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

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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
البحث عن التكرار وترتيب البيانات بناءً على الأكواد المتشابهة Find Duplicates Sort By Similar IDs YasserKhalil
7 521 YasserKhalil
كود جمع عمودين لحد اخر صف به بيانات احمد 9598
9 71 salim
فورم ترحيل بيانات واستدعاء وحفظ صور مجدى يونس
8 1155 مجدى يونس
ماكرو بحث وتعديل البيانات oshebly
1 47 oshebly
كود استدعاء بيانات من صفحة منه وصفحة له بتاريخ من الى omhamzh
1 75 omhamzh

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


 








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

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

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