رجوا منكم مساعدتي في ايجاد دالة تقوم باستدعاء البيانات

[ademyoucef112@gmail.com]

سلام عليكم

ارجوا منكم مساعدتي في ايجاد دالة تقوم باستدعاء البيانات من اوراق عمل الاشهر الثلاثة لكل عامل

 

الطلب موجود في المرفقات 

استدعاء البيانات - طلب مساعدة -.rar

[ademyoucef112@gmail.com]

......

 

[ademyoucef112@gmail.com]

انتظر مساعدتكم 

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

السلام عليكم

أخي الكريم جرب الكود التالي في حدث ورقة العمل .. المسماة "TABLEAU"

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$G$1" Then
        Dim ws      As Worksheet
        Dim sh      As Worksheet
        Dim c       As Range
        Dim cc      As Range
        
        Set sh = Sheets("TABLEAU")
        
        Application.ScreenUpdating = False
            For Each c In sh.Range("A9:A11")
                For Each ws In ThisWorkbook.Worksheets
                    If InStr(ws.Name, c.Value) > 0 Then
                        For Each cc In ws.Range("B5:B" & ws.Cells(Rows.Count, 2).End(xlUp).Row)
                            If cc.Value = sh.Range("C5").Value Then
                                c.Offset(, 1).Resize(1, 5).Value = cc.Offset(, 1).Resize(1, 5).Value
                                Exit For
                            Else
                                c.Offset(, 1).Resize(1, 5).Value = ""
                            End If
                        Next cc
                    End If
                Next ws
            Next c
        Application.ScreenUpdating = True
    End If
End Sub

 

[ademyoucef112@gmail.com]

اخواني ممكن مساعدة في ادراج هذا الكود في الملف المرفق بارك الله فيكم 

استدعاء البيانات - طلب مساعدة -.rar

تم تعديل يوليو 23, 2017 بواسطه ademyoucef112@gmail.com

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

أخي الكريم

قم بعمل كليك يمين على اسم ورقة العمل المطلوب النتائج فيها ثم اختر View Code ثم ضع الكود .. وفقط

[ademyoucef112@gmail.com]

الحمد لله , شكرا جزيلا لك اخي لقد نجحت بتشغيلها 

لكن هل هناك معادلة " دالة " اخري بدل الكود ان امكن 

جزاك الله الف الف الف خيرا سيدي ياسر

تم تعديل يوليو 23, 2017 بواسطه ademyoucef112@gmail.com

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

الحمد لله أن تم المطلوب على خير .. بالتأكيد يوجد معادلات لكنني أفضل الأكواد

وعموماً سيشارك من لديه خبرة بالمعادلات إن شاء الله .. حيث يمكن استخدام الدالة INDIRECT للحصول على الإشارة لرقم الشيت ولكن أعتقد سيحتاج من يستخدم المعادلات إلى أعمدة مساعدة هذا والله أعلم

[ademyoucef112@gmail.com]

السلام عليكم

 

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

Classeur1.rar

[ademyoucef112@gmail.com]

.........

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

جرب المرفق .. لعله يفي بالغرض

 

Classeur1.rar

[ademyoucef112@gmail.com]

شكرا جزيلا لك سيدي وبارك الله فيك وجزاك الله كل خير 

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

وجزيت خيراً أخي الكريم بمثل ما دعوت لي .. والحمد لله أن تم المطلوب على خير

[ademyoucef112@gmail.com]

هل ممكن طريقة حيث عندما اسحب للاسقل يتفير اسم الورقة من ES0417 الى ES0517 الى ES0617 بالنسبة لدالة البحث و الاستدعاء ؟

Classeur1 (4).rar

تم تعديل يوليو 24, 2017 بواسطه ademyoucef112@gmail.com

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

ربما لو وضعت عناوين أوراق العمل في النطاق A9:A11 لكان الموضوع أيسر ...

[ademyoucef112@gmail.com]

ممكن مثال سيدي