أبو محمد عباس

السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الحبيب محمد الريفي جزاك الله خيرا الحل ب pivottable دائما ممتاز ويفي بالغرض وجربت الكثير من التصفيات بهذه الخاصية الرائعة وجدتها ممتازة تقبل فائق احترامي وتقديري

السلام عليكم ورحمة الله وبركاته الاخ العزيز مختار حسين جزاكم الله خيرا ما شاء الله عمل اكثر من رائع وان شاء الله ستكون اسما بارزا في هذا الصرح الكبير نامل منكم مواصلة اعمالكم المميزة ومشاركاتكم القيمة تقبلوا فائق الاحترام والتقدير

السلام عليكم ورحمة الله وبركاته اخي العزيز لاحظ المرفق ان شاء الله فيه المطلوب تقبل تحياتي واحترامي Vacation Sheet+.rar

Sub تصفير_الرصد() Dim UnionRange As Range Application.ScreenUpdating = False Set UnionRange = Union(Range("F6:H55,J6:L55,O6:O55,R6:T55,V6:X55,AA6:AA55,AD6:AF55,AH6:AJ55,AM6:AM55,AP6:AR55"), _ Range("AT6:AV55,AY6:AY55,BB6:BD55,BF6:BH55,BK6:BK55,BN6:BP55,BR6:BT55,BW6:BW55,BZ6:CB55,CD6:CF55"), _ Range("CU6:CU55,CP6:CR55,CL6:CN55,CI6:CI55,F206:H255,J206:L255,O206:O255,R206:T255,V206:X255,AA206:AA255"), _ Range("AD206:AF255,AH206:AJ255,AM206:AM255,AP206:AR255,AT206:AV255,AY206:AY255,BB206:BD255,BF206:BH255,BK206:BK255,BN206:BP255"), _ Range("BR206:BT255,BW206:BW255,BZ206:CB255,CD206:CF255,CU206:CU255,CP206:CR255,CL206:CN255,CI206:CI255,F406:H455,J406:L455"), _ Range("O406:O455,R406:T455,V406:X455,AA406:AA455,AD406:AF455,AH406:AJ455,AM406:AM455,AP406:AR455,AT406:AV455,AY406:AY455"), _ Range("BB406:BD455,BF406:BH455,BK406:BK455,BN406:BP455,BR406:BT455,BW406:BW455,BZ406:CB455,CD406:CF455,CU406:CU455,CP406:CR455"), _ Range("CL406:CN455,CI406:CI455,F606:H655,J606:L655,O606:O655,R606:T655,V606:X655,AA606:AA655,AD606:AF655,AH606:AJ655"), _ Range("AM606:AM655,AP606:AR655,AT606:AV655,AY606:AY655,BB606:BD655,BF606:BH655,BK606:BK655,BN606:BP655"), _ Range("BR606:BT655,BW606:BW655,BZ606:CB655,CD606:CF655,CU606:CU655,CP606:CR655,CL606:CN655,CI606:CI655")) UnionRange.ClearContents Application.ScreenUpdating = True Range("F1").Select End Sub ​السلام عليكم ورحمة الله وبركاته الاساتذة الكرام والاخوة الاعزاء هذا كود مسح بيانات في خلايا متفرقة للاستاذ الفاضل ابو البراء جزاه الله خيرا في هذا الموضوعhttp://www.officena.net/ib/index.php?showtopic=56943#entry361305 اذا امكن اضافة رسالة تحذيرية تكون اما تنفيذ امر المسح او الغاء امر المسح لربما ضغطت على المسح سهوا ؟؟!! جزاكم الله خيرا

السلام عليكم ورحمة الله وبركاته الاخ العزيز محمد القمجي جزاكم الله خيرا تقبل فائق احترامي وتقديري

وعليكم السلام ورحمة الله وبركاته الاستاذ والاخ العزيز سليم حاصبيا جزاكم الله خيرا فكرة رائعة وتسخير جيد للمعادلات جعله الله في ميزان حسناتكم وفقكم الله وزادكم من فضله تقبلوا فائق احترامي وتقديري

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

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

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

الاستاذ والاخ الحبيب سليم حاصبيا جزاك الله خيرا عمل رائع جعله الله في ميزان حسناتكم وفقك الله وزادكم من فضله علما وشرفا تقبل وافر احترامي وتقديري

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

الاخ العزيز محمد الريفي جزاك الله خيرا وبارك الله فيك

السلام عليكم ورحمة الله وبركاته جزاك الله خيرا اخي العزيز ابراهيم توكل على الله ولكم الاجر والثواب جعل الله عملكم هذا واعمالكم السابقة واللاحقة في موازين حسناتكم وفقكم الله لما فيه خير الاسلام والمسلمين والانسانية جمعاء دمتم في حفظ الله ورعايته

السلام عليكم ورحمة الله وبركاته اخي العزيز رسول جزاك الله خيرا قمت بتعديل معادلة جلب العام الدراسي واصبحت صحيحة الان يمكنك استخدام النموذج المرفق تقبلوا فائق الاحترام والتقدير تعديل استمارة القبول المركزية.rar

السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل ابو البراء جزاك الله خيرا الاخ العزيز KMHB كود اكثر من رائع جزاك الله خيرا اخي العزيز الربيعي (ماهي الصيغة التي يجب ان اكتبها في ملف اخر) العمل يكون بالكود ضع هذا الكود في حدث الشيت الذي تعمل عليه وغير حسب بياناتك Private Sub Worksheet_Change(ByVal Target As Range) 'On Error Resume Next Dim dayDate As String 'dayDate = Format(Range("H"), " dd / mm / yyyy") ' íÊã æÖÚ ÇáÊÇÑíÎ ÊáÞÇÆí Ýí ÇáÚãæÏ ÇáãÞÇÈá(B)ÚäÏ ÇáÊÛííÑ Ýí ÇáÚãæÏ ÇáËÇäí 2 If Target.Column <> 3 Then Exit Sub If Target <> "" Then dayDate = Range("C" & Target.Row) Range("G" & Target.Row) = Format(dayDate, "DD") Range("H" & Target.Row) = Format(dayDate, "MM") Range("I" & Target.Row) = Format(dayDate, "YYYY") On Error GoTo 0 End If End Sub ان شاء الله سيعمل الكود بالشكل الصحيح تقبلوا فائق الاحترام والتقدير

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

السلام عليكم ورحمة الله وبركاته

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

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

السلام عليكم ورحمة الله وبركاته الاخ العزيز King77 اهلا بك في منتدانا الرائع لاحظ هذا الرابط فيه اجابة للاخ العزيز ابن مصر المبدع , ربما فيه ما تريد http://www.officena.net/ib/index.php?showtopic=57133#entry362735 تقبل فائق الاحترام والتقدير

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

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

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

السلام عليكم ورحمة الله وبركاته الاخ العزيز رسول هادي اليك الملف وفيه ترحيل بالكود عسى ان يكون فيه المطلوب تقبلوا فائق الاحترام والتقدير استمارة القبول المركزية.rar

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