أكاديمية الصقر للتدريب

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


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





طلب مساعدة

إستدعاء اسم العميل واظهارعدد فاتورات العميل وجلب رقم الفاتورات مع القيمة و التاريخ المتعلقة بالعميل وترتيبها حسب ر ..


موضوع مغلق


subject icon تمت الإجابة طلب مساعدة
02-12-2021 08:28 مساء
mobhir22
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 28-07-2018
رقم العضوية : 7427
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 4-10-1973
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 10
 offline 

إستدعاء  اسم العميل  واظهارعدد  فاتورات العميل   وجلب رقم الفاتورات  مع القيمة و التاريخ المتعلقة بالعميل وترتيبها حسب رقم الفاتورة 
 
 
  طلب مساعدة.xlsx   تحميل xlsx مرات التحميل :(5)
الحجم :(23.004) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
السلام عليكم نبدأ بها أي موضوع أخي الكريم
اعمل كليك يمين على اسم ورقة العمل الأولى ثم View Code والصق الكود التالي (حدث التغير في ورقة العمل في الخلية التي تختار منها اسم العميل)
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range, m As Long
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Address = "$I$18" Then
        Range("K18").ClearContents: Range("I24:K30").ClearContents
        m = 24
        For Each c In Range("D17:D29").Cells
            If c.Value = Target.Value Then
                Range("I" & m).Resize(1, 3).Value = Array(c.Offset(, -2).Value, c.Offset(, -1).Value, c.Offset(, -3).Value)
                m = m + 1
            End If
        Next c
        Range("K18").Value = m - 24
    End If
End Sub
عرض الإجابة




03-12-2021 05:23 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif طلب مساعدة
السلام عليكم نبدأ بها أي موضوع أخي الكريم
اعمل كليك يمين على اسم ورقة العمل الأولى ثم View Code والصق الكود التالي (حدث التغير في ورقة العمل في الخلية التي تختار منها اسم العميل)
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range, m As Long
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Address = "$I$18" Then
        Range("K18").ClearContents: Range("I24:K30").ClearContents
        m = 24
        For Each c In Range("D17:D29").Cells
            If c.Value = Target.Value Then
                Range("I" & m).Resize(1, 3).Value = Array(c.Offset(, -2).Value, c.Offset(, -1).Value, c.Offset(, -3).Value)
                m = m + 1
            End If
        Next c
        Range("K18").Value = m - 24
    End If
End Sub

03-12-2021 01:24 مساء
مشاهدة مشاركة منفردة [2]
mobhir22
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 28-07-2018
رقم العضوية : 7427
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 4-10-1973
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 10
 offline 
look/images/icons/i1.gif طلب مساعدة
السلام  عليكم أخي الفاضل
بارك الله فيك ومشكور على مساهمتك الرائعة في حل المسألة.
وفي انتظار ان تثم حل المسألة الموجودة في الورقة ( المطلوب رقم 2) المتعلقة  في  استدعاء وترتيب العملاء في الجدولين اسفله  حسب تاريخ الانضمام , مع العلم انه هناك عملاء لهم نفس تاريخ الانضمام ,  كل جدول لا يتجاوز 6 عملاء , حسب استدعاء المسؤول في المنسدلة (B31) و (B42); و(B53).
جزاك الله خيرا.
 

03-12-2021 01:32 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif طلب مساعدة
أخي الكريم الموضوع يخصص لطلب واحد فقط
قم بطرح موضوع جديد بطلبك الجديد ووضح التفاصيل ليستطيع الأخوة الأعضاء تقديم المساعدة.

03-12-2021 02:34 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif طلب مساعدة
يرجى تعديل عنوان الموضوع ليكون معبر عن السؤال حتى يسهل على من يبحث بالمنتدى أن يجد ما يبجث عنه بسهولة



الكلمات الدلالية
مساعدة ،


 










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

الساعة الآن 06:37 مساء