طلب كيفية الاختيار من عدة جداول بعد تحقق شرطين.

[المالكي333]

السلام عليكم منتدانا.. أحييكم من جديد. السؤال داخل المثال. بارك الله فيكم جميعا.

Example.xlsx

[سليم حاصبيا]

جرب هذا الملف

Option Explicit

Sub One_by_one()
Dim S As Worksheet
Dim F_rg As Range
Set S = Sheets("Salim")

If S.Range("C2") = "" Then S.Range("C2") = 1
If S.Range("D2") = "" Then S.Range("D2") = "السبت"

S.Range("B7").Resize(10, 2).ClearContents
Select Case S.Range("C2")
      Case 1
         Set F_rg = S.Range("B20:N20").Find(S.Range("D2"), lookat:=1)
      Case 2
         Set F_rg = S.Range("B34:N34").Find(S.Range("D2"), lookat:=1)
      Case 3
         Set F_rg = S.Range("B48:N48").Find(S.Range("D2"), lookat:=1)
      Case 4
         Set F_rg = S.Range("B62:N62").Find(S.Range("D2"), lookat:=1)
      Case Else
         Exit Sub
 End Select
 If Not F_rg Is Nothing Then
    Range("B7").Resize(10, 2).Value = _
    F_rg.Resize(10, 2).Value
 End If
End Sub

الملف مرفق

Maliki.xlsm

[المالكي333]

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

[سليم حاصبيا]

تفضل بالمعادلات

Maliki_FORMULA.xlsm

[المالكي333]

الله الله الله ما هذا الإبداع أستاذ سليم حاجة تجنن تطويع المعادلات بهذا الشكل يحتاج إلى مخ. المعادلات في متناول الجميع لكن تطويعها بهذا الشكل ليس في متناول الجميع. أهنؤك أستاذ سليم وأتمنى الإفادة عن الخلية A1 أراها مستخدمة في المعادلة دون أن تحتوي على أي بيانات هل تتفضل علينا بشرح الفكرة شاكرا لك ولهذا المنتدى.💚