logo

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



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





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

CODE
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 وكتابته في المربع المحدد له والضغط على استدعاء
ولترحيل البيانات من ملف البحث الى ملف الداتا
CODE
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




الملفات مرفقة
attachبحث وترحيل لملف مغلق.zip

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


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


توقيع :Yasser Elaraby
663013020

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

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




توقيع :الصقر

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


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




look/images/icons/i1.gif استدعاء بيانات وترحيلها من والى ملف مغلق
  25-11-2017 12:58 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10064
الاعجاب : 66
موقعي : زيارة موقعي
جزاكم الله خيرا اخي الكريم حسام على مروركم الكريم
جزاكم الله خيرا اخي الغالي ابو البراء وحبيبي في الله طبعا مش حب تاني ربنا يسترهاعلينا no_1
تقبلوا تحياتي
142



توقيع :Yasser Elaraby
663013020

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




look/images/icons/i1.gif استدعاء بيانات وترحيلها من والى ملف مغلق
  25-11-2017 01:43 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10064
الاعجاب : 66
موقعي : زيارة موقعي
مشكور اخي الكريم ابو حنين على مروركم العطر
وان شاء الله ان سنحت لنا الفرصة سنقوم بشرح اسطر الكود
تحياتي
142



توقيع :Yasser Elaraby
663013020

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




look/images/icons/i1.gif استدعاء بيانات وترحيلها من والى ملف مغلق
  25-11-2017 02:19 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس :
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4570
الاعجاب : 0
موقعي : زيارة موقعي
بارك الله فيك استاذ ياسرر وزاد الله من علمك



توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب

look/images/icons/i1.gif استدعاء بيانات وترحيلها من والى ملف مغلق
  25-11-2017 02:24 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 28-08-2017
رقم العضوية : 278
المشاركات : 166
الجنس :
تاريخ الميلاد : 19-6-1981
قوة السمعة : 185
الاعجاب : 0
السلام عليكم ورحمة الله وبركاته
اخي ياسر العربي عمل رائع ومجهود مميز جزاك الله خيرا
لي طلب لوسمحت
ممكن تنفيذ طريقة في هذا الملف
جزاك الله خيرا
attachData.zip
 
 
  Data.zip   تحميل zip مرات التحميل :(16)
الحجم :(184.881) KB



تم تحرير المشاركة بواسطة :محمدعبدالسلام بتاريخ:25-11-2017 03:05 مساءً





look/images/icons/i1.gif استدعاء بيانات وترحيلها من والى ملف مغلق
  25-11-2017 02:49 مساءً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس :
تاريخ الميلاد : 2-2-1990
قوة السمعة : 657
الاعجاب : 0
عمل رائع ومجهود مميز جزاك الله خيرا استاذ ياسر العربي




look/images/icons/i1.gif استدعاء بيانات وترحيلها من والى ملف مغلق
  25-11-2017 02:57 مساءً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-09-2017
رقم العضوية : 705
المشاركات : 440
الجنس :
تاريخ الميلاد : 2-2-1990
قوة السمعة : 657
الاعجاب : 0
ارجو ان تشرح كيفيه العمل انا فتحت ملف البحث وعندما اضغط استدعاء يتم المسح




look/images/icons/i1.gif استدعاء بيانات وترحيلها من والى ملف مغلق
  25-11-2017 03:59 مساءً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10064
الاعجاب : 66
موقعي : زيارة موقعي
جزاكم الله خيرا اخي الكريم احمد فاخر والنشيط المتميز اخي محمود ابو الدهب
تحياتي لكم
142



توقيع :Yasser Elaraby
663013020

look/images/icons/i1.gif استدعاء بيانات وترحيلها من والى ملف مغلق
  25-11-2017 04:02 مساءً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10064
الاعجاب : 66
موقعي : زيارة موقعي
اخي الكريم محمد عبدا لسلام لم تحدد ما سيتم داخل الملف
قمت بعمل الترحيل اما البحث فلم اقم بتنفيذه لانه لا يوجد شروط حاليا للبحث خصوصا الفواتير وتكون برقم الفاتورة
ولم يتم توضيح اي شئ للعمل عليه
تفضل الترحيل وان كان هناك اي طلبات اخرى يرجى التوضيح مع مرفق
attachData.zip
تحياتي
142
 
 
  Data.zip   تحميل zip مرات التحميل :(44)
الحجم :(181.542) KB




توقيع :Yasser Elaraby
663013020

اضافة رد جديد اضافة موضوع جديد
الصفحة 2 من 4 < 1 2 3 4 >




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب كود في استدعاء بيانات وترحيلها من ملف مفتوح الى ملف مغلق محمدعبدالسلام
6 2627 karwan
تعديل على كود تغيير البيانات وترحيلها حسب شروط معنية زيد2017
3 1833 زيد2017

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









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

الساعة الآن 05:00 PM