ناصرالمصرى

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

ايها الاحباب الكرام السلام عليكم ورحمته الله وبركاته فى الملف ورقتين الاولى صفحة البيانات الرئيسية للأصناف التى تمتد الى 7000 صنف والثانية هى لطباعة أذون الصرف قابلة للزيادة والنقصان المطلوب بعد إذن حضراتكم استدعاء بيانات الاصناف من الورقة الرئيسية وترحيلها الى ورقة طباعة الأذون على اساس العمود B والبيانات المطلوب استدعاؤها الاعمدة C و D و E الى الاعمدة D و E و F شاكر فضل حضراتكم وجزاكم الله خيرا استدعاء بيانات على اساس اسم الصنف.rar

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

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

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

السلام عليكم بارك الله فيك ابو البراء هذا فى حالة لو المبلغ بعمود واحد المقصود أن مبلغ الــ 80 قرش بعمود خانة القروش ومبلغ الــ 350 جنيه بعمود خانة الجنيهات فرضا مبلغ الــ 350.80 بالعمود A1 بعد إذنك ضع المعادلة التالية بالخلية B1 بخانة القروش =IF(A1="";"";RIGHT(A1*100;2)) وهذة المعادلة بالخلية C1 بخانة بخانة الجنيهات =IF(A1="";"";((A1*100)-B1)/100) يبقى كدة فصلنا المبلغ لخانتين الناتج المطلوب بخانة القروش بالخلية D1 تسعون قرشا وبخانة الجنيهات بالخلية E1 واحد جنيه من أجل الحصول على نتيجه صحيحة وخاصة أن هناك إعفاء 50 جنيها واليك أخى المعادلتين المعمول بهم ولكن بدون إعفاء الــ 50 جنيه الاولى وهذا خطأ فى التطبيق وبعد اذنك ضع المعادلة الاولى بالخلية D1 بخانة القروش =IF(A1="";"";CEILING(MOD(100*ROUND(SUM(C1;B1/100)*0.006;1);100);0.05)) والمعادلة الثانية بالخلية E1 بخانة الجنيهات =IF(A1="";"";CEILING(INT(100*ROUND(SUM(C1;B1/100)*0.006;1)/100);0.05)) فكيف يكون شكل تلك المعادلتين مع تطبيق الكود المرسل شكرا للمساعدة

الله الله الله شكرا لسرعة الاستجابة من أستاذين كبيرين المخضرم ابو عبد الرحمن والمتألق ابو البراء حاجة تانية بعد إذنكم كيف يكون التعديل لو أردنا تقسيم المبلغ على خانتين خانة للقروش وخانة للجنيهات بالفرض ان مبلغ القروش 80 قرش ومبلغ الجنيهات 350 جنيها الناتج فى خانة القروش = 90 قرش والجنيهات 1 جنيه شكرا للمساعدة

الاخ سليم شكرا جزيلا تحياتى

الاخ ياسر شكرا جزيلا تحياتى

السلام عليكم كيف يمكن تحويل المعادلة التالية الى كود vba وهى ذات شرائح متعددة وللأمانة العلمية فهى منقولة من مشاركات الاعضاء هنا الشريحة الاولى أقل من أو يساوى ٥٠ لاتعطى شيئا الشريحة الثانية أكبر من ٥٠ و أقل من ٢٥٠ الناتج × 6 / 1000 الشريحة الثالثة أكبر من ٢٥٠ و أقل من 500 الناتج × 6.5 / 1000 الشريحة الرابعه أكبر من 500 و أقل من ١٠٠٠ الناتج × 7 /1000 الشريحة الخامسة أكبر من ١٠٠٠ و أقل من ٥٠٠٠ الناتج × 7.50 / 1000 الشريحة السادسة أكبر من ١٠٠٠ و أقل من 10000 الناتج × 8 / 1000 الشريحة السابعة أكبر من ١٠٠٠٠ الناتج × 3 / 1000 الى ما لا نهاية شكرا جزيلا للمساعدة =IF(D5<=50;"";CEILING(IF(AND(D5>50;D5<=250);(D5-50)*0.006;IF(AND(D5>250;D5<=500);(D5-250)*65/10000+1.2;IF(AND(D5>500;D5<=1000);(D5-500)*7/1000+2.83;IF(AND(D5>1000;D5<=5000);(D5-1000)*75/10000+6.33;IF(AND(D5>5000;D5<=10000);(D5-5000)*8/1000+36.33;IF(D5>10000;(D5-10000)*3/1000+76.33))))));0.05))

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

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

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

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

للرفع رفع الله قدركم

السلام عليكم ورحمته الله وبركاته هل من الممكن إستبدال خاصية ال RightClick الى استخدام الاسهم لظهور قائمة الاسماء " السهم الى اسفل " بمعنى بمجرد النزول بالسهم لاسفل تظهر قائمة الاسماء برجاء الافادة من السادة الزملاء الافاضل تقبلوا جميعا وافر احترامى وتقديرى وجزاكم الله خيرا

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

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

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

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

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

احلى صباح ياأبو العربى أشتقت اليك أخى الحبيب وأكيد الكتالوج وحشك معلشى انا بتعلم شاهد هذا الكود " معاينه مع الطباعة " هل هذا الكود يعمل على جميع الصفحات المحددة دون غيرها أم هناك تعديلا أخر Sub ãÚÇíäÉ_ãÚ_ÇáØÈÇÚÉ() ActiveWindow.SelectedSheets.PrintPreview A = MsgBox("هل تود الطباعة بعد المعاينه", vbYesNo + vbQuestion, "طبعا أكيد هطبع ولا هو لعب عيال") If A = vbYes Then With ActiveSheet .PrintOut End With End If Range("A1").Activate End Sub وافر تقديرى واحترامى

للرفع

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

السلام عليكم ورحمته الله وبركاته شكرا جزيلا لجميع السادة المشاركين سؤال للتعلم ماذا يعنى هذا الجزء من السطر Field:=5, Criteria1:="<" & 60 ومرة يكون هكذا وماالفرق بين الرقمى 5 و 3 وهل لهما علاقة بعدد صفوف الفلترة؟؟؟ Field:=3, Criteria1:="<>" & "" وجزاكم الله خيرا