أبو سجده

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

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

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

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

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

بسم الله الرحمن الرحيم وبه نستعين أخى وحبيبى فى الله // ابو البراء وعليكم السلام ورحمته الله وبركاته ***** وصباح الفل والياسمين بشأن الكود المبين بالمرفق نعم اخى الحبيب بسم الله ماشاء الله هو يؤدى المطلوب نحو الترحيل لاكثر من ذلك ولكن دون تجميع للأصناف برجاء الاطلاع على المرفق التالى ومن حيث التجربة ابقيتها على مخزن 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

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

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

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

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

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

والله اللى قلبه ابيض ميعرفشى ينتقم وانت قلبك أبيض بياض القمراللى بينورالدنيا كلها وان كان على خسارتك فى الــ 15 دولار ياسيدى اخينا رجب جاويش يعوضها فى عزومة البط وانا عليّ الساقع وافر تقديرى وجزاكم الله خيرا

للرفع

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

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

للرفع

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

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