عمل هايبر لينك بشروط محددة

[Amr Ashraf]

السلام عليكم

اساتذتى الافاضل عندى الملف المرفق ومحتاج اطبق عليه فكرة هايبر لينك بشروط محددة وشرح الفكرة ببساطة كالتالى :

فى الملف المرفق شيتين واحد يتم تسجيل فيه حركات دفع (Amr) والثانى بيجمع الحركات لكل مجموعة (Totals) المطلوب عند الضغط على اسم مجموعة فى الشيت الثانى يتم الانتقال الى الشيت الاول مع عمل فلترة على حقل Category بما يساوى ما قمت بالضغط عليه مثال :

عندى عميل اسمه احمد عملت عليه 10 حركات دفع ....  فى شيت Totals هيظهر احمد وبجواره مجموع ال10 حركات الخاصة بيه ... المطلوب عند الضغط على اسم احمد ينتقل لشيت الحركات مع الفلترة على حقل Category على اسم احمد ويظهر الحركات الخاصة به فقط 

اسف على الاطالة وجزاكم الله خير 

Payments Trial.xlsx

تم تعديل أكتوبر 7, 2018 بواسطه Amr Ashraf

[Amr Ashraf]

يرفع للاهمية ... جزاكم الله خير

[Amr Ashraf]

مساعدة جزاكم الله خير

[Emad Sabry]

بص فى صفحة category لازم تكتب الاسماء تمام 

وفى صفحة Amr استخدم الجزء اللى انا عامله بمجرد تغييرك للبيان عن طريق القائمة  فى الخلية D8 هيتغير علطول الناتج E8 واول ما تدوس على على D8 هتتحول ل Amr 2  واول ما تدوس على update الماكرو هيتحدث علطول 

Payments Trial.xlsm

[Amr Ashraf]

6 ساعات مضت, Emad Sabry said:

وفى صفحة Amr استخدم الجزء اللى انا عامله بمجرد تغييرك للبيان عن طريق القائمة  فى الخلية D8 هيتغير علطول الناتج E8 واول ما تدوس على على D8 هتتحول ل Amr 2  واول ما تدوس على update الماكرو هيتحدث علطول 

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

https://www.officena.net/ib/topic/85826-filter-by_selection/

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

جعله الله فى ميزان حسناتك

[Amr Ashraf]

تحديث ... وجدت الكود التالى فى منتدى اجنبى ولكن عند التعديل عليه ينتج خطأ Subscript Out Of Range 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    'Update Table14 to your table name
    'Update Field to column number of the field you are filtering
    'Update Sheet7 to reference the sheet containing your table
    'Change on to the column number where your click should cause this action
    If ActiveCell.Column = 1 Then
    Sheet7.ListObjects("Table14").Range.AutoFilter Field:=1, Criteria1:=ActiveCell.Value
    'Update Sheet7 to reference the sheet containing your table
    Sheet7.Activate
    End If
End Sub

الكود موجود فى Totals ... جزاكم الله خير

Payments Trial 2.xlsm

[Emad Sabry]

انا عملتلك الكود دا 

بس فكرة D8 لسه موجود وتقدر من data validation تعدل كمية البيانات من البيانات الموجود فى  A 

لاحظ انك بمجرد ما تختار الاسم هتدوس عليه هتدخل على عمرو وهتلاقى متفلتر جاهز ولما تدوس show all هتلاقى الكل ظهر 

 

ملحوظة :- مش لازم تفتح كذا موضوع على نفس المشكلة 

 

 

Payments Trial.xlsm

تم تعديل أكتوبر 8, 2018 بواسطه Emad Sabry

[Amr Ashraf]

52 دقائق مضت, Emad Sabry said:

ملحوظة :- مش لازم تفتح كذا موضوع على نفس المشكلة 

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