الترحيل من مصنف لمصنف آخر

[ايهاب الغريب]

السلام عليكم ورحمة الله وبركاته

الشكر الجزيل لجميع اعضاء المنتدى 

اساتذتي الكرام

بمساعدة اخونا الفاضل بن علية توصلت لطريقة جميلة جدا لترحيل البيانات من ورقة لاخري في نفس المصنف ولكن بالتطبيق العملي وجدت انه من الافضل ان تكون البيانات في مصنف خاص به ويتم ربط البيانات بينهما وبالبحث في المنتدي توصلت الي موضوع جميل جدا في الرابط التالي

http://www.officena.net/ib/topic/60819-%D8%A7%D9%84%D8%AA%D8%B1%D8%AD%D9%8A%D9%84-%D9%85%D9%86-%D9%85%D8%B5%D9%86%D9%81-%D9%84%D9%85%D8%B5%D9%86%D9%81-%D8%A2%D8%AE%D8%B1-%D9%81%D9%8A-%D9%85%D8%B3%D8%A7%D8%B1-%D8%B9%D9%84%D9%89-%D8%A7%D9%84%D8%A8%D8%A7%D8%B1%D8%AA%D8%B4%D9%86-d/#elCreateNew_menu

ولكن لم اصل به الي ما اريد ومرفق المصنفين 1 & 2

المصنف 1 به البيانات

المصنف 2 به الاستمارات المراد تنفيذها

طريقة العمل القديمه التي ارجو عدم تغيرها في ظل تغيير المصدر الي المصنف 1 كالتالي:-

نختار رقم الادارة في الخلية   A9  فيتم استيراد الاسماء في العمود  C  وبالتالي ابدا اختار من القائمة المنسدلة في العمود  F  فيتم استيراد باقي البيانات في الصف المقابل

ولكم جميع خالص التحية

New folder.rar

[ايهاب الغريب]

السلام عليكم

مفيش اي رد من الاخوة الافاضل اهل الاكسل 

[ياسر خليل أبو البراء]

أخي الكريم إيهاب الغريب

طبعاً الملفات بهذا الشكل لا تعجبني (دا مجرد رأيي الشخصي ) ..اسألني ليه ؟ بقولك اسألني ليه؟ مش سامعك كويس

بص يا أخ إيهاب لما تيجي تنسق ورقة عمل تنسق الجزء اللي فيه بيانات بس مش تنسق ورقة العمل بالكامل لأن دا هيخلي الملف تقيل جداً من غير داعي

لاحظت إنك مثلاً مسطر لحد آخر عمود في الشيت ..طيب ليه ؟ هل التنسيق غير مقصود أم مقصود؟

طبعاً دا ممكن يكون سبب في عدم استجابة الأعضاء للموضوع

 

سيبك من الرغي اللي ملوش لازمة (بكلم نفسي)

بص يا سيدي ..طبعاً تم تحويل المصنف المسمى 2 إلى امتداد xlsm ليقبل الأكواد (دي اول نقطة)

في الكود عملت إبطال لتحديث الروابط عشان كل شوية تيجي رسالة عايز تحدث البيانات ولا لا ... !!

في الخلية A9 في المصنف المسمى 2 حضرتك طلبت وضع رقم الإدارة ... ضع رقم الإدارة وانقر على زر الأمر Import Data (دا كان الجزء الأول من طلبك)

أما الجزء الثاني من طلبك فلم أفهمه بشكل جيد ..يرجى ضرب مثال بشكل النتيجة المتوقعة لتتضح الصورة (اعمل زوووووم على الطلب ZOOM IN مش ZOOM OUT)

إليك الكود وأرجو أن يفي بالغرض

Sub ImportData()
    Dim WB As Workbook, AB As Workbook
    Dim Rng As Range, RngFiltered As Range, R As Range, Area As Range
    Dim vArray, I As Long
    
    Application.DisplayAlerts = False
    Application.AskToUpdateLinks = False
    Application.ScreenUpdating = False
        Set AB = ActiveWorkbook
        Set WB = Workbooks.Open(ThisWorkbook.Path & "\1.xlsx", UpdateLinks:=False)
        
        With AB.Sheets("اطباءوتمريض")
            .Range("C10:C1000").ClearContents
            Set Rng = WB.Sheets("بيانات").Range("A1:D" & Sheets("بيانات").Cells(Rows.Count, "D").End(xlUp).Row)
            
            Rng.AutoFilter Field:=2, Criteria1:=.Range("A9")
            On Error Resume Next
            Set RngFiltered = Rng.Offset(1).Resize(Rng.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
            On Error GoTo 0
            
            If Not RngFiltered Is Nothing Then
                ReDim vArray(2 To Rng.Rows.Count, 1 To 1)
                I = 1
                For Each Area In RngFiltered.Areas
                    For Each R In Area.Rows
                        I = I + 1
                        vArray(I, 1) = R.Cells(4).Value
                    Next R
                Next Area
                
                .Range("C10").Resize(I, 1).Value = vArray
            End If
            WB.Close False
        End With
    Application.ScreenUpdating = True
    Application.AskToUpdateLinks = True
    Application.DisplayAlerts = True
End Sub

طبعاً الكود خد مني حوالي ساعة عشان أقدر ألبي الجزء الأول من طلبك فمتنسناش بدعوة بظهر الغيب (لا تبخل علينا)

Import Data YK.rar

[ايهاب الغريب]

استاذي الفاضل / ياسر خليل

اولا لك كل الشكر والتقدير علي اهتمامك بالموضوع وردك عليه

ثانيا اعجبني كثيرا طريقة عرضك للرد واسلوبك المبسط

ثالثا واخيرا جاري تنزيل المرفق ومعاينته مع احساسي بانه المطلوب

جزاكم الله خيرا ونعدكم بطيب الدعاء ان شاء الله

[ايهاب الغريب]

تمام كدة يا استاذنا بالنسبة للطلب الاول 10/10

الطلب التاني يا سيدي وركز معايا علشان انا اصلا مش مركز معايا

العمود  F والمتضمن الاسماء خلاياه تعتبر قائمة منسدله قيمها من العمود  C مع العلم انه باخيار اسم في العمود  F  يتم مسحه من العمود  C  (قائمة منسدله متناقصة )

وسوف ارف لك المثال الذي اعمل عليه حاليا حتي تتضح لك الرؤيه كامله

وما اريده هو فصل البيانات في مصنف مستقل مع ثبوت نفس طريقة العمل

ومرة اخري لك كل الشكر والامتنان

1.rar

[ياسر خليل أبو البراء]

أخي الحبيب إيهاب الغريب

أولاً الخط صغير جداً حاول تكبر حجم الخط إلى 24 عشان يكون واضح ..

بصراحة الطلب الثاني ما زال غير مقهوم بالنسبة لي ..الأفضل إرفاق شكل النتائج المتوقعة (والله عيني وجعتني من الخط .. في المشاركتين اللي فاتوا)

تقبل تحياتي

[ايهاب الغريب]

تمام كدة يا استاذنا بالنسبة للطلب الاول 10/10

 

 

الطلب التاني يا سيدي وركز معايا علشان انا اصلا مش مركز معايا

 

العمود  F والمتضمن الاسماء خلاياه تعتبر قائمة منسدله قيمها من العمود  C مع العلم انه باخيار اسم في العمود  F  يتم مسحه من العمود  C  (قائمة منسدله متناقصة )

 

وسوف ارفق لك المثال الذي اعمل عليه حاليا حتي تتضح لك الرؤيه كامله

 

وما اريده هو فصل البيانات في مصنف مستقل مع ثبوت نفس طريقة العمل

 

ومرة اخري لك كل الشكر والامتنان

 

 

 

 

 

1.rar

[ياسر خليل أبو البراء]

أخي الكريم إيهاب

جرب الملف التالي عله يكون المطلوب

بعد استيراد الأسماء عن طريق زر الامر

انقر في خلايا العمود F10 لتظهر قائمة منسدلة وعند الاختيار يتم إنشاء قائمة متناقصة ..

 

Import Data YK.rar

[ايهاب الغريب]

السلام عليكم ورحمة الله وبركاته

استاذي الفاضل / ياسر

اسف جدا لازعاجك

ولكن ما تم عمله في المرفق الاخير يؤدي الي جزء بسيط جدا من المطلوب

وارجو من حضرتك الاطلاع علي المرفق حتي تتوصل الي ما اريده بسهوله

وذلك للاتي

هذه استمارة مرتبات

بناء علي اختيار الاسم يتم استيراد باقي الارقام الثابتة الخاصة بذلك الاسم من مصنف بيانات كالاساسي والعلاوات وقسط البنك .......الخ

في الاستمارة الواحدة وارد ان اختار اسماء من عدة ادارات علما بانه بان ما قمت به عند تغيير رقم الادارة والضغط  Import Data  يتم مسح ما تم اختياره من الادارة السابق

 

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

مصنف للاطلاع.rar

[ايهاب الغريب]

Up

[ايهاب الغريب]

اخونا الحبيب استاذ / ياسر

بعد البحث في هذا الموضوع وجدت لكم مشاركة ممكن استغلال الفكرة فيها لحل هذة المشكله ولكن التنفيذ في كود الملف خاصتنا سيكون عكس الكود المشار اليه في تلك المشاركة

حيث اننا نحتاج ان يكون الكود لجلب البيانات وليس لترحيل البيانات

المشاركة المشار اليها تحت العنوان التالي

http://www.officena.net/ib/topic/62057-%D8%AA%D8%B9%D8%AF%D9%8A%D9%84-%D8%B9%D9%84%D9%89-%D9%83%D9%88%D8%AF-%D8%AA%D8%B1%D8%AD%D9%8A%D9%84-%D9%85%D9%86-%D9%85%D8%B5%D9%86%D9%81-%D9%85%D9%81%D8%AA%D9%88%D8%AD-%D9%84%D9%85%D8%B5%D9%86%D9%81-%D9%85%D8%BA%D9%84%D9%82-%D8%A8%D8%AF%D9%88%D9%86-%D9%81%D8%AA%D8%AD%D9%87/#comment-401510

 

مع الاخذ في الاعتبار انه لا يمسح البيانات في مصنف البيانات ولا حتي يسألني عن ذلك كما في كود المشاركة

وارجو التنفيذ علي المرفق التالي

 

 Desktop.rar 

Desktop.rar

[ايهاب الغريب]

Up

[ايهاب الغريب]

الاخوة الافاضل عباقرة المنتدي اين انتم

يبدو ان استاذنا الفاضل ياسر مشغول فمن كان في استطاعته عمل الكود المطلوب اكون شاكر له جزيلا

والشكر موصول للجميع