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

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


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





استدعاء بيانات وترحيلها من والى ملف مغلق

بسم الله الرحمن الرحيم اليوم نقدم لكم مثال طلبه الكثير من الاعضاء وهو كيفية عرض بيانات او ترحيل بيانات من ملف مغلق لملف ..



25-11-2017 10:16 صباحا
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1293
الجنس : ذكر
الدعوات : 13
يتابعهم : 2
يتابعونه : 724
قوة السمعة : 9894
موقعي : زيارة موقعي
عدد الإجابات: 9
 offline 

بسم الله الرحمن الرحيم
MjE1OTY3MQ222232132132
اليوم نقدم لكم مثال طلبه الكثير من الاعضاء
وهو كيفية عرض بيانات او ترحيل بيانات من ملف مغلق لملف مفتوح
المثال المرفق عبارة عن ملفين Data.xlsm و  Search.xlsm
ملف داتا وملف بحث
نقوم بفتح ملف البحث ونبحث عن اي بيان موجود في الملف داتا وجلبه الى ملف البحث
ويمكن ترحيل البيان الموجود في الملف البحث الى ملف الداتا
الكود الخاص بالبحث واستدعاء البيانات من الملف داتا الى ملف البحث

Sub Yasser()
    Dim serch As Worksheet
    Dim wkb As Workbook
    Dim lr As Long, x, n, z
    Dim targt As String
    Dim myArray As Variant
    Set serch = Sheets("Sheet1")
    Application.ScreenUpdating = 0
    serch.Range("A7:M1000").ClearContents
    Set wkb = Workbooks.Open(ThisWorkbook.Path & "Data.xlsm")
    lr = wkb.Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    myArray = wkb.Sheets("sheet1").Range("A7:M" & lr)
    ReDim y(1 To UBound(myArray, 1), 1 To UBound(myArray, 2))
    With serch
        srchNum = .Application.WorksheetFunction.Match(.Range("E1"), .Range("A1:C1"), 0)
        targt = .Cells(2, srchNum)
        If targt = "" Then Exit Sub
        For z = LBound(myArray) To UBound(myArray)
            If targt Like myArray(z, srchNum) Then
                x = x + 1
                For n = 1 To 13
                    y(x, n) = myArray(z, n)
                Next
            End If
        Next
        If x > 0 Then .Cells(7, 1).Resize(x, 13).Value = y()
    End With
    wkb.Close SaveChanges:=True
    Application.ScreenUpdating = 1
End Sub

كل ما علينا هو اختيار شرط البحث من الخلية E1 وكتابته في المربع المحدد له والضغط على استدعاء
ولترحيل البيانات من ملف البحث الى ملف الداتا
Sub Yasser2()
    Dim wkb As Workbook
    Dim myArr As Variant
    Dim lr As Long
    Application.ScreenUpdating = 0
    lr = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    myArr = Sheets("Sheet1").Range("A7:M" & lr)
    Set wkb = Workbooks.Open(ThisWorkbook.Path & "Data.xlsm")
    wkb.Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp)(2, 1).Resize(UBound(myArr, 1), UBound(myArr, 2)).Value = myArr
    wkb.Close SaveChanges:=True
    Application.ScreenUpdating = 1
End Sub



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

تحياتي
ياسر العربي
 
 
 
  بحث وترحيل لملف مغلق.zip   تحميل zip مرات التحميل :(412)
الحجم :(39.463) KB

توقيع :Yasser Elaraby
663013020


25-11-2017 10:30 صباحا
مشاهدة مشاركة منفردة [1]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس : ذكر
الدعوات : 21
يتابعهم : 0
يتابعونه : 748
قوة السمعة : 19987
موقعي : زيارة موقعي
عدد الإجابات: 2
 offline 
look/images/icons/i1.gif استدعاء بيانات وترحيلها من والى ملف مغلق

جزاكم الله خيرا يا عربى 123


توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله


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

25-11-2017 12:58 مساء
مشاهدة مشاركة منفردة [3]
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1293
الجنس : ذكر
الدعوات : 13
يتابعهم : 2
يتابعونه : 724
قوة السمعة : 9894
موقعي : زيارة موقعي
عدد الإجابات: 9
 offline 
look/images/icons/i1.gif استدعاء بيانات وترحيلها من والى ملف مغلق
جزاكم الله خيرا اخي الكريم حسام على مروركم الكريم
جزاكم الله خيرا اخي الغالي  ابو البراء وحبيبي في الله طبعا مش حب تاني ربنا يسترهاعلينا no_1
تقبلوا تحياتي
142

توقيع :Yasser Elaraby
663013020


25-11-2017 01:27 مساء
مشاهدة مشاركة منفردة [4]
ahmed moh
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 330
المشاركات : 240
الجنس : ذكر
يتابعهم : 6
يتابعونه : 3
قوة السمعة : 324
 offline 
look/images/icons/i1.gif استدعاء بيانات وترحيلها من والى ملف مغلق
السلام عليكم
اخى الحبيب  الاستاذ  Yasser Elaraby
جزاك الله كل الخير والتقدير على ما تقدمه
امر مبدع ان تكون صفحه الترحيل هى هى صفحه الاستدعاء
وبرجاء شرح الاكواد حتى تتم الاستفاده

25-11-2017 01:43 مساء
مشاهدة مشاركة منفردة [5]
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1293
الجنس : ذكر
الدعوات : 13
يتابعهم : 2
يتابعونه : 724
قوة السمعة : 9894
موقعي : زيارة موقعي
عدد الإجابات: 9
 offline 
look/images/icons/i1.gif استدعاء بيانات وترحيلها من والى ملف مغلق
مشكور اخي الكريم ابو حنين على مروركم العطر
وان شاء  الله ان سنحت لنا الفرصة سنقوم بشرح اسطر الكود
تحياتي
142

توقيع :Yasser Elaraby
663013020


25-11-2017 01:52 مساء
مشاهدة مشاركة منفردة [6]
احمد فاخر
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-09-2017
رقم العضوية : 662
المشاركات : 47
الجنس : ذكر
يتابعهم : 5
يتابعونه : 1
قوة السمعة : 55
 offline 
look/images/icons/i1.gif استدعاء بيانات وترحيلها من والى ملف مغلق
مجهود رائع اخي ياسر بارك الله فيك 




الكلمات الدلالية
استدعاء ، بيانات ، وترحيلها ، والى ، ملغق ،


 










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

الساعة الآن 04:44 مساء