Nadia Khalil

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله أخوتى -- أرجو مساعدتى فى اكمال هذا الملف المرفق واليكم المطلوب : 1. أريد الربط بين شيت Daily Report (MR) وبين شيت Doctor List وذلك عن طريق عمل مربع صغير (لا أعرف اسمه بالظبط) - عند التأشير عليه يتم وضع علامة صح به - وترحيل كلا من (اسم الدكتور - وتخصصه - وتصنيفه) اتوماتيكيا الى شيت Doctor List 2- هل يمكن عمل history sheet لكل مندوب - هذا الشيت يقوم بترحيل جميع البيانات الموجودة فى شيت Daily Report (MR) بناءا على (التاريخ أو اسم المندوب أو كلاهما) - مع عمل شيت آخر فارغ من Daily Report (MR)ولكن بدون بيانات - وظيفته - النظر فى شيت history لتحميل التقرير المطلوب اعتمادا على (التاريخ أو اسم المندوب أو كلاهما) 3- فى شيت Medical Rep. (MR) وتحديدا فى الاحداثى G32 - G33 - أريد عملية جمع اتوماتيكى لعدد الأطباء وعدد الصيدليات الائى تم كتابتهم كل فى احداثيه (D24-D30) & (D12-D19) الملف المطلوب فى المرفقات جزاكم الله خيرا file0132.rar

بسم الله الرحمن الرحيم والله ياأخوة يعجز اللسان عن شكركم التنفيذ تمام ومفيش أحسن من كده جزاكم الله خيرا almaistro نزار سليمان عيد YasserKhalil وآسفة على التأخير

ارجو الرد للأهمية

أخى almaistro أشكرك على سرعة ردك وآسفة على موضوع 2007 ده أخى ياسر شكرا لك على تحويل الملف وفى انتظار ردكم أخوتى ملحوظة : يمكن تغيير ال check box بقائمة منسدلة (أى حاجة تؤدى الغرض وخلاص)

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

UP UP UP UP

Private Sub Worksheet_Change(ByVal Target As Range) Dim Sh_In As Worksheet: Dim Sh_Out As Worksheet, Adv As Range, Cri As Range, Cop As Range Set Sh_In = Sheets("Data"): Set Sh_Out = Sheets("Main"): Set Adv = Sh_In.Range("DB") If Target.Address = "$E$3" Then Range("F3").Value = "" Sh_In.Range("Z2").Value = Range("E3").Text & "*" Set Cri = Sh_In.Range("Z1:Z2"): Set Cop = Sh_In.Range("AA1") GoSub Omar Set Cri = Sh_In.Range("Z1:Z2"): Set Cop = Sh_Out.Range("E5:F5") GoSub Omar End If If Target.Address = "$F$3" Then Set Cri = Sh_Out.Range("F2:F3"): Set Cop = Sh_Out.Range("E5:F5") GoSub Omar End If Exit Sub Omar: Adv.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Cri, CopyToRange:=Cop, Unique:=True Return End Sub كبف أقوم بالتعديل على هذا الكود ليحتوى أكثر من صف وعمود للفلترة المثال اللى تفضلتوا بشرحه والعمل عليه يقوم بفلترة عمودين فقط وهما عمودى الـ Name و الـ Code ما الحل لاقوم بفلترة اكثر من عمود ؟ وكل عام وانتم بخير