اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

  • أفضل إجابة

جرب هذا الملف

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

  • Like 3
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information