أبو سجده

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

اقتراح جميل والأجمل منه ان يكون على حسابك يكفينا شرف إلتقاء الأرواح العامرة بنورالايمان الخالية من الرياء فإن كان فى الدنيا عز اللقاء ****** ففى يوم الحشر نلقاكم ويكفينا

اخى الحبيب ابو البراء السلام عليكم ليس عندى مشكلة فى عامل الوقت اعتقد ان الامور اتضحت الان نحو المطلوب ولى رجاء الا وهو الاطلاع على المرفق التالى حيث يقوم بجمع وفلترة الاصناف تلقائيا وماهو الا مجرد مثال لتقريب وجهة النظر نحو المطلوب تقبل وافر تقديرى واحترامى **** وجزاكم الله خيرا Extract Unique Values From Multiple Sheets YasserKhalil (1).rar

أخى فى الله ابو البراء السلام عليكم ورحمته الله وبركاته برجاء الاطلاع على المرفق التالى فقط 3 دقائق من وقتك مع ملاحظة التوضيح المشفوع بالمرفق تقبل وافر تقديرى واحترامى *** وجزاكم الله خيرا تجميع وترحيل البيانات بالفلترة +1111.xlsb.rar

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

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

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

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

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

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

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

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

بسم الله الرحمن الرحيم وبه نستعين أخى وحبيبى فى الله // ابو البراء وعليكم السلام ورحمته الله وبركاته ***** وصباح الفل والياسمين بشأن الكود المبين بالمرفق نعم اخى الحبيب بسم الله ماشاء الله هو يؤدى المطلوب نحو الترحيل لاكثر من ذلك ولكن دون تجميع للأصناف برجاء الاطلاع على المرفق التالى ومن حيث التجربة ابقيتها على مخزن 1 ذات اللون الاصفر ارقام 2 و 6 و 11 ولتقريب وجهة النظر نحو المطلوب وبعد إذنك برجاء الاطلاع على المرفقين بمعنى أدق المطلوب هو تجميع الاصناف وترحيل كل صنف على مخزنه مع كل عمل بيان جديد أو فاتورة جديده على إعتبار ان بيانات الفاتورة أو بيان الاسعار متغير وليس ثابتا تقبل وافر احترامى وتقديرى **** وجزاكم الله خيرا Extract Unique Values From Multiple Sheets YasserKhalil (1).rar تجربة1.xlsb.rar

بسم الله الرحمن الرحيم وبه نسستعين السادة الزملاء الافاضل السلام عليكم ورحمته الله وبركاته أسعد الله أيامكم بكل خير وكل عام أنتم جميعا بخير الكود المبين بالمرفق التالى يُرحل البيانات لعدة شيتات ايا كان عددها بدلالة عمود معين باستخدام المصفوفات المطلوب بإذن الله تعالى بعد إذن حضراتكم المساهمة فى عمل كود من شأنه فلترة وتجميع الاصناف المدونة بالورقة data وترحيلها بدلالة إسم المخزن التابع لهذه الاصناف كلما أعددنا بيان جديد تقبلوا وافر تقديرى وإحترامى **** وجزاكم الله خيرا تجميع وترحيل البيانات بالفلترة.xlsb.rar

للرفع

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

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

حبيبى وحبيب قلبى ابو البراء الملف شغال ميت فل واربعة عشر مافيش فيه اى مشكلة بشأن طباعة الثلاث نسخ برجاء الاطلاع على محرر الاكواد ستجد السطرين المراد إضافتهم باللون الاخضر الا وهما ' المطلوب هنا اضافة سطرين اسفل عبارة ماعدا السهو والخطأ 'السطر الاول .Offset(2, 0).Value = "استلمت البضاعة الواردة بحالة جيدة" 'السطر الثانى .Offset(3, 0).Value = "تحريرا فى /" اريد هنا ان يتم إظهارتلك السطرين مع أمر الطباعة ومن ثم إخفاؤهم مرة أخرى كما بالتفقيط وعبارة ماعدا السهو والخطأ وللتأكيد برجاء حذف محتوى الخليتين B 41 و B 42 بالورقة " بيان " ومن ثم تنفيذ الكود Print_All ستلاحظ أن السطرين المراد اضافتهم ظلوا ثابتين دون إخفاء تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

هههههههههههههههه اخى وحبيبى ابو البراء أجل أخى بتعطيش الجيم ***** يُقال ان عبد الرحمن أستأجرنى كى اكون والده بخمسة جنيهات فى الساعة والحسابه بتحسب المطلوب ببساطة اننى حاولت فى هذا الجزء من الكود Print_All لاظهار واخفاء السطرين المراد اضافتهم For Each Cel In Range("A8:A" & LR) If Left(Cel.Value, 6) = "ماقبله" Then Cel.Offset(-3, 0).Resize(3).EntireRow.Hidden = True Next Cel Range("A" & LR).Offset(3, 0).Resize(3).EntireRow.Hidden = True ActiveSheet.PrintOut Copies:=1 Range("A8:A" & LR + 5).EntireRow.Hidden = False دون جدوى وقد يكون الامر يسير ولكن لم أتحقق من الامر جيدا نظرا لصغر البنط فى محرر الاكواد اما الباقى يا إما على البراء أو على عبد الرحمن ***** وهناك إضافة أخرى بعد إذنك وكما يترائى لكم أخى ابو البراء بشأن عمل سريال نمبر لهذا البيان أريد هنا عمل سريال نمبر يعمل تلقائيا بعد اعطاء أمرالطباعة مثالا على ذلك سنبدأ السريال للبيان أو الفاتورة برقم 1 فى أى خلية تحددها وليكن الخلية C2 بعد الانتهاء من عملية الطباعة يتم تغيير الرقم الى 2 وهكذا على ان يكون السريال نمبرغير محدد العدد تقبل وافر تقديرى واحترامى وجزاكم الله خيرا

السلام عليكم ورحمته الله وبركاته السادة الزملاء برجاء الاطلاع على المرفق التالى ***** ربما هناك ماأغفو عنه الاضافة المطلوبة من داخل المرفق تقبلوا وافر تقديرى واحترامى **** وجزاكم الله خيرا طلب إضافة.xlsb.rar

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

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

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

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

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