نجوم المشاركات

بعد اذن حبيبي سليم معادلة صفيف. أكتب فقط السنة في الخلية g1 =IFERROR(INDEX($A$2:$A$170; MATCH(0;COUNTIF($G$3:G3; IF(($G$1=YEAR($B$2:$B$170)); $A$2:$A$170; $G$3)); 0)); "") إدراج الاسماء تلقائي.xlsx

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

السلام عليكم استعمال دالة المنوال MODE يفي بالغرض... ايجاد الرقم الاكثر تكراراً.xlsx

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

تفضل اخي العزيز ارجو ان يكون طلبك Database10.rar

جرب هذا الكود Option Explicit Sub get_Prof_names() Dim sh As Worksheet, Rg As Range Dim i%, Yer% Dim Salim As Object Set Salim = CreateObject("Scripting.Dictionary") Set sh = Sheets("sheet1") Set Rg = sh.Range("G3").CurrentRegion If Rg.Rows.Count > 1 Then _ Rg.Offset(1).Resize(Rg.Rows.Count - 1).Clear Yer = sh.Range("G1"): i = 2 Do Until sh.Cells(i, 1) = vbNullString If Year(Cells(i, 2)) = Yer Then Salim(Cells(i, 1).Value) = vbNullString End If i = i + 1 Loop If Salim.Count Then With sh.Range("G4").Resize(Salim.Count) .Value = Application.Transpose(Salim.Keys) .Borders.LineStyle = 1 .Font.Bold = True: .Font.Size = 16 .InsertIndent 1: .Interior.ColorIndex = 35 End With End If End Sub الملف مرفق Prof_names.xlsm

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

بعد ادن اخي بن علية العدد الاكثر تكررارا مع اضافة عدد مرات التكرار و اضافة تنسيق شرطيي لتلوين الرقم الاكثر تكرارا ايجاد الرقم الاكثر تكراراً.xlsx

تفضل. نموذج المطلوب.xlsm

ممتازة منك صديقي رائد (لكنها تدرج المكرر في حال وجوده) هذه معادلة احرى (بردو تدرج المكرر في حال وجوده) (سبق وان قلت ان استعمال الدالة IFERROR ) يفضل عدم استعمالها =IF(ROWS($A$1:A1)>SUMPRODUCT(--(YEAR($B$2:$B$50)=$G$1)),"",INDEX($A$2:$A$50,SMALL(IF($A$2:$A$50<>"",IF(YEAR($B$2:$B$50)=$G$1,ROW($A$2:$A$50)-ROW($A$2)+1)),ROWS($A$1:A1)))) اذا لم نتعمل معك استبدل الفاصلة "," بفاصلة منقوطة ";" مع (Ctrl+Shift+Enter) Prof_names.xlsm

تهنئة من قلبى لكل من / @اشرفو @Gamal.Saad الف الف مبروك تستاهلون كل خير وكل عام ونتم بألف خير

وهذا مرفق آخر بدون زر أمر .. date_h.rar

إليك هذا المرفق لعله يفيدك db5.mdb

لا يمكن عمل هذا في النموذج المستمر ، اما اذا كان النموذج فردي ، فتستطيع ان تعمل نموذج فرعي للحقول الباقية (نوع الاعانة ، تحديد .... ، ولكن يمكن عمل هذا في التقرير ، بحيث تعمل تجميع وفرز بالرقم ، وهذا الرابط يشرح طريقة العمل : جعفر

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

الف الف مبروك للأساتذة الكرام

وعليكم السلام اتفضل هل هذا ماتريد بالتوفيق اخى cars.rar

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

تفضل شهادة.xlsm

شيت اكسيل به معادلة لحساب الضريبة اعتبار من 1 / 7 / 2020 بعد القانون 26 لسنة 2020 حسبة الضريبة.xls

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

بسم الله الرحمن الرحيم قواعد المشاركة بمنتدي أوفيسنا المنتدى مثله مثل أي عمل جماعي لابد أن تكون هناك أسس واضحة للمشاركة فيه، يقرها ويلتزم بها جميع الأعضاء للحصول على الفائدة العامة. وقبول العضوية بالمنتدى تعني ضمناً الموافقة على قواعد المشاركة المعتمدة به. هذه الوثيقة تشمل قواعد طرح الاسئلة التي يرجي مراعاتها لضمان الحصول على أفضل نتيجة، وهذه القواعد لم توضع بهدف تسلط أو تعقيد، وإنما الهدف منها تحقيق المنفعة العامة من المنتدى، وان لم تمثل الوضع المناسب لجميع المشاركين في جميع المواقف، يجب أن يتم الالتزام بما ورد فيها بصورة كاملة، ومخالفة قواعد المشاركة تعرض المشاركة للإلغاء وفي حال تكرار المخالفة قد يتعرض المخالف لعقوبات تصل لإيقاف العضوية. وأخيرا وقبل أن نعرض إلى القواعد، ندعو الله أن يكون ما يبذل من جهد من الجميع هنا من باب "علم ينتفع به "، فكما قال رسول الله صلي الله عليه وسلم: (إذا مات الإنسان انقطع عنه عمله إلا من ثلاثة: إلا من صدقة جارية. أو علم ينتفع به. أو ولد صالح يدعو له). قبل كتابة موضوع جديد 1. استخدم البحث في المنتدى قبل وضع سؤالك فقد يكون مكررا. وذلك لتفادي عواقب التكرار وأهمها أن تكرار الموضوع سيصعب المهمة على من يبحث بعدك كما أنه يمكنك توفير جهد الأعضاء للإجابة على موضوع آخر لم يطرح سابقاً. 2. يتم طرح السؤال باللغة العربية الفصحى لأنها مفهومة للجميع، وتجنب استخدام اللهجات المحلية 3. تأكد أن طرح سؤالك في المكان المناسب لتحصل على أفضل إجابة، لا تسأل في المنتدى العام عن مشكلة في الاكسيل. وإذا كنت تريد الإعلان أو طلب برنامج بأجر أو بمقابل مادي فيجب نشر موضوعك بقسم إعلانات شخصية بأجر للأعضاء. عنوان المشاركة 4. يجب أن يكون عنوان المشاركة يدل على محتواها 5. أن لا يحتوي على عبارات مثيرة مثل " النجدة "، "الحقونا 6. يمنع منعا باتا توجيه السؤال إلى شخص بعينه لان هذا قد يدفع الآخرين إلى عدم الإجابة، والهدف هو التفاعل من الجميع. 7. يرجى إضافة الكلمات المفتاحية تحت العنوان لتسهيل الوصول إلى الموضوع من خلال عملية البحث لاحقاً، كما أن المنتدى يظهر بطريقة آلية المواضيع الشبيهة تحت الموضوع بناء على الكلمات المفتاحية المسجلة. محتوى المشاركة 8. يجب ذكر كافة المعلومات التي من الممكن أن تُسأل عنها، مع الشرح الوافي للمشكلة لأن الشخص الذي تكتب له ليس ملما بالمشكلة مثلك. ويحبذ وضع مثال للنتيجة التي تريدها (سواء كملف مرفق باستخدام البرنامج المطلوب كالاكسيل او الأكسيس مثلا، او صورة توضيحية، أو تفصيل المطلوب بشرح وافي)، ويجب ان تكون بيانات المثال نابعة من نفس بيانات المرفق كي بمكن الربط و الفهم بسهولة. 9. بخصوص التسميات، يُفضل أن تكون أسماء الكائنات والحقول بالإنجليزية، لان العربية تحدث فيها مشاكل مع الأكواد. 10. اذكر في محتوى مشاركتك عن المجهود الذي قمت به لكيلا يأتيك رد قد قمت بمحاولة تنفيذه بالفعل. 11. ممنوع طرح أكثر من سؤال في موضوع واحد ليسهل البحث عن المواضيع لاحقا. 12. يمنع وضع سؤال لا علاقة له بالموضوع الموضوع فيه التساؤل أو ليس له مناسبة في وضعه معه. 13. - يمنع وضع السؤال داخل المرفق، يجب شرح السؤال بالتفصيل لتعم الفائدة، ولا مانع من اضافة صورة توضيحية 14. - يجب عند الرد، عدم الاكتفاء بإضافة مرفق بالحل، بل يجب التوضيح و الشرح، و اضافة الكود المستخدم (إن وجد) ، بالإضافة للمرفق، و ذلك لتعم الفائدة 15. يفضل عدم طلب عمل برنامج فهذا المنتدى للتبادل العلمي، وليس للبحث عن البرامج الجاهزة، ولكن ابدأ بالعمل واطرح المشاكل التي تواجهك (بعد البحث في المنتدى منعا للتكرار). وما سبق طرحه من برامج يمكنك الوصول إليها باستخدام البحث، ويفضل ألا تخصص مشاركة لهذا الغرض وإن كان ذلك متاح لكن ممنوع الإلحاح في ذلك. 16. عدم طرح أي اقتراح بخصوص المنتدى أو شكوى في الأقسام العامة، فهناك قسم مخصص لذلك المرفقات 17. إذا لم يكن السؤال يسهل فهمه عن طريق الشرح فقط، يجب إرفاق مثال. 18. المرفقات يجب تحوي مثال مبسط وعينة كافية من البيانات بحيث تعم الفائدة دون الحاجة لتحميل ملفات كبيرة الحجم 19. تجنب نشر بيانات حقيقية يخشى نشرها ويمكن أن تطلب حذفها لاحقاً. المحظورات 20. يمنع منعا باتا نشر أية موارد تخالف حقوق الملكية الفكرية بما في ذلك الكتب والكراك وتبادل السيريال، والمخالفة تعرض المشاركة للإلغاء والعضوية للإيقاف. 21. يُمنع منعا باتا الإجابة على سؤالك أو أي حوار فني على الخاص أو إلى بريدك الخاص، الفائدة يجب أن تعم. يجب عدم الاستجابة لأي طلب على الخاص. كما يمنع ذكر وسائل التواصل الخاص أو البريد الإليكتروني في المشاركات لتعم الفائدة. وسيتم حذف وسائل التواصل أو البريد حال إضافتها. 22. يتم حذف أي مشاركة تحتوي على الفاظ وعبارات وأعمال مخالفة للشرع أو الأخلاق العامة أو التي تحوي عبارات عرقية أو دينية أو أي عبارات قد تجرح مشاعر الآخرين. مع إيقاف صاحب المشاركة نهائياً، وحجب البريد المسجل به. متابعة المشاركات 23. ممنوع نهائيا وبشكل قاطع تكرار الموضوع نفسه أو فتح موضوع جديد للمطالبة برد في موضوع سابق، كما يمنع منعا باتا ذكر أكثر من سؤال في نفس الموضوع، وهذا لكي يسهل البحث والحصول على المعلومة على من بعدك. 24. إذا كان الموضوع استكمالا لموضوع موجود مسبقا في الأرشيف فيرجي وضع رابط الموضوع الذي تريد استكماله أو الإضافة عليه لتسهل على الجميع الوصول إلى الموضوع المشابه. الإشارة لمواقع أخرى 25. لا تأخذ مواضيع أو ردود آخرين وتنسبها لنفسك.. هذه سرقه، إذا كنت قد اقتبست، أذكر أسم صاحب الموضوع، أو على الأقل اذكر أن الموضوع منقول. 26. يمنع الرد على الاستفسارات عن طريق الإشارة لموقع آخر، يجب وضع الحل كاملاً هنا ويمنع أن تكون الإجابة عن طريق الإشارة لموقع آخر فقط. ولا مانع من نشر اسم المصدر دون وصلة في نهاية الرد بعد وضع الرد والشرح كاملاً بعد المشاركة 27. لا تتوقع أن يجاب على سؤالك خلال ساعات قليلة، لكن تأكد أولا تأكد سؤالك يستحق الإجابة (غير مكرر، ويوفر معلومات كاملة).. أحيانا يحتاج من يجيب للوقت لجمع معلومات عن الإجابة 28. إذا تأخرت الإجابة فمن حقك الاستعجال فقط بإضافة عبارة "للرفع" على فترات متباعدة بدون أي عبارات أخري لا داعي لها. 29. يجب أن يكتب صاحب الموضوع في حالة حل مشكلته أن المشكلة قد حلت ليتوقف الأعضاء من الاستمرار في حل المشكلة. 30. من الجميل أن تتبع الإجابة عن سؤالك بشكر لمن ساعدك، وبإخبار عن النتيجة، العديد يتابع الأسئلة، ويود أن يعرف عن النتيجة، فمن واجب السائل أن يشكر من حاول مساعداته بالنقر على زر الإعجاب، وأن يختار خيار أفضل إجابة ليعرف الجميع أن موضوعه قد تم حله بطريقة مرضية. 31. على الجانب الآخر إذا لم يأتيك شكر على موضوع قدمته، فنرجو اعتبار كل قراءة من قراءات الموضوع باقة ورد وشكر لك من المشرفين والأعضاء، ونذكرك بأن الموضوع لا تقتصر فائدته علي من قرأوه في وقته فقط، ولكن تصل إلى كل من يبحث لاحقا في المنتدي وهم ان شاء الله أضعاف من يقرأه في وقته، ونسأل الله عز وجل أن يضاعف لك الجزاء عن كل من يستفيد منه. حذف وتنقيح المشاركات 32. ما يتم نشره ويتفاعل الأعضاء معه لا يمكن طلب حذفه، فبنشره يصبح ملكية عامة. 33. إذا كانت المشاركة تحوي بيانات خاصة فلا تنشرها واستبدلها ببيانات غير حقيقية، حتى لا تطالب بحذف المشاركة لاحقا. 34. يتم تنقيح المشاركات دوريا وحذف المشاركات غير المجدية، ودمج ما يلزم من مشاركات. أسماء الدخول للموقع و الأسماء الحقيقية 35. يرجى مراعاة تجنب الأسماء أو الكنيات الغريبة فيما يخض إسم الدخول للموقع User Name 36. يفضل كون اسم الدخول باللغة العربية و عدم استخدام الأسماء الغريبة او غير المعتادة سواء باللغة العربية أو غيرها. 37. يرجى من الجميع اضافة الاسم الحقيقي باللغة العربية فى الحقل المناظر، والهدف هو تسهيل التواصل الفعال بين الأعضاء ، و ان تعذر فيتم اختيار كنية باللغة العربية فى مكان الاسم الحقيقي. 38. سيتم تعديل أي أسماء دخول أو أسماء حال مخالفتها للذوق العام أو احتوائها على أي إيحاءات غير معتادة. لمعرفة كيفية تعديل الإسم أو إسم الدخول يرجى مراجعة هذا الموضوع وأخيرا يرجى الالتزام التام بقواعد المشاركة وفي حال وجود اقتراحات إضافية بشأن القواعد، يمكن إضافة الاقتراح في قسم الاقتراحات بالمنتدى وسيتم دراستها تباعاً.

السلام عليكم 🙂 وهذه عيدية العيد لنا 🙂 شكرا للاخوة الاخوة @اشرف و @Gamal.Saad لكل ما تبذلوه ، مبروك لكم الترقية 🙂 جعفر

جرب هذا الملف MENhOLAHO.xlsm

هل هذا ما تريد أخي @abdalrazag T1.accdb

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

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

تمام تمام اخى / @ازهر عبد العزيز يوجد موضوع من الاستاذ / عبد الله قدورhttps://www.officena.net/ib/topic/71771-حماية-قاعدة-البيانات-باستخدام-الفلاش-ميموري/?tab=comments#comment-464114 بالحماية برقم الفلاشة اي ان حضرتك تقصد ان نختصر كود الاستاذ / عبد الله واثناء التقسيم توضع الجداول داخل الفلاشة ان كان الامر كذلك فتكون الفكرة رائعة منكم وجزاكم الله خيرا عنها بارك الله فيك اخى / ازهر وانا سعيد جدا بانك اشرت بجملة " لتعم الفائدة للجميع" تدل على طيب خاطرك

تفضل اضافة زر لحدف الصورة من الشيت في الملف المرفق و ادا اردت من زر التصدير الى الشيت أن يحذف الصورة و يرسل الجديدة مكانها بدون زر حذف على الفورم غير كود التصدير الى هذا Private Sub CommandButton10_Click() Dim Image As Variant Dim L As Single, T As Single, W As Single, H As Single ActiveSheet.Pictures.Delete L = Range("n32:r38").Left T = Range("n32:r38").Top W = Range("n32:r38").Width H = Range("n32:r38").Height Image = TextBox1.Value If Image <> False Then Sheet4.Shapes.AddPicture Image, True, True, L, T, W, H End If End Sub تواتي 23.xlsm

تفضل كود استيراد الصور Private Sub CommandButton9_Click() Dim IMPATH As String Dim IMNAME As String With Application.FileDialog(msoFileDialogOpen) .InitialFileName = ThisWorkbook.Path .Filters.Clear .Filters.Add JPEG, "*.JPG, .JPEG" .Title = "ادراج صورة" .ButtonName = "ادراج الصورة مع تحيات االرائد" .AllowMultiSelect = False If .Show = True Then Me.TextBox1.Visible = True IMPATH = .SelectedItems(1) Me.TextBox1.Text = IMPATH Me.Image1.Picture = LoadPicture(IMPATH) Else MsgBox "تم تحميل الصورة" End If End With End Sub كود نقل الصورة الى الشيت Private Sub CommandButton10_Click() Dim Image As Variant Dim L As Single, T As Single, W As Single, H As Single L = Range("n32:r38").Left T = Range("n32:r38").Top W = Range("n32:r38").Width H = Range("n32:r38").Height Image = TextBox1.Value If Image <> False Then Sheet4.Shapes.AddPicture Image, True, True, L, T, W, H End If End Sub تواتي 23.xlsm

اخي الفاضل اشرف جزاك الله خير الجزاء ولك يعتمد ولك خالص التحية والتقدير

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

جرب هذا الملف تم حماية الصفحة لعدم العيث بالمعادلات عن طريق الخطا (بدون باسورد) dATA_Ameel.xlsm

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

اتفضل اخى @nabil2255 المفروض السجلين يظهروا لان البيانات مختلفه بالنسبه للجدول الثانى قمت بتصفيتهم واظهار اعلى تاريخ DMax("d_Aide";"Aide";"benficie=" & [nid]) جزاك الله خيرا اخى ومعلمى العزيز @jjafferr 💐 dtb1.accdb

وعليكم السلام 🙂 استعلامين ، وانت اختار اللي تريده : . . جعفر 1226.dtb1.accdb.zip

تهنئة من قلبى لكل من / @اشرفو @Gamal.Saad بالترقيه وننتظر مزيد من التألق فهم فعلا اهل ثقة ويستحقون

ما شاء الله الف مبروك لاساتذتي واحبتي استاذ اشرف استاذ Gamal.Saad ودوام الموفقية والنجاح

الف مبروك @Gamal.Saad @اشرف تستاهلون وبجدارة

مبروك العيدية احبتنا @Gamal.Saad و @اشرف بارك الله لكم وفيكم ونفع بكم .. وكل عام وانتم بخير

مبارك لكما @اشرف و @Gamal.Saad نفع الله بكما

الف الف مبروك اخوانى واساتذتى @Gamal.Saad و @اشرف 💐 بارك اله فيكم وجزاكم الله كل خير واعانكم الله وتقبل منكم صالح الاعمال

ما شاء الله تبارك الله اللهم ادم علينا الفرح والسرور مبارك استاذي @Gamal.Saad واستاذي @اشرف ... تستاهلون هذا اللقب ومزيد من التألق🌷

تم التعديل. استبدل الكود السابق بهذا Sub pdfcopy2() Application.Calculation = xlCalculationAutomatic Application.DisplayStatusBar = False Application.EnableEvents = False Dim wsA As Worksheet Dim wbA As Workbook Dim strName As String Dim strPath As String Dim strFile As String Dim strPathFile As String Dim myFile As Variant Dim lOver As Long On Error GoTo errHandler Set wbA = ActiveWorkbook Set wsA = ActiveSheet strPath = ThisWorkbook.Path If strPath = "" Then strPath = Application.DefaultFilePath End If strPath = strPath & "\" For i = 2 To 4 If i <> "" Then strName = i & "-" & Sheets(i).Name & "-" & Sheets(i).Range("b3").Value strFile = strName & ".pdf" strPathFile = strPath & strFile If bFileExists(strPathFile) Then lOver = MsgBox("ÇáãáÝ ãæÌæÏ ãÓÈÞÇ.åá ÊÑíÏ ÇÓÊÈÏÇáå¿", _ vbQuestion + vbYesNo, "ãáÝ ãæÌæÏ") If lOver <> vbYes Then myFile = Application.GetSaveAsFilename _ (InitialFileName:=strPathFile, _ FileFilter:="PDF Files (*.pdf), *.pdf", _ Title:="ÅÎÊíÇÑ ãÌáÏ ÇáÍÝÙ") If myFile <> "False" Then strPathFile = myFile Else GoTo exitHandler End If End If End If Sheets(i).ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=strPathFile, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False End If Next i MsgBox "Êã ÅäÔÇÁ ÇáãáÝ ÈÅÓã ÇáãÚäí: " & vbCrLf & strPathFile errHandler: Resume exitHandler exitHandler: Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Application.DisplayStatusBar = True Application.EnableEvents = True End Sub 17 (1).xlsm

http://www.real-statistics.com/ موقع مميز للاحصاء من خلال الاكسيل

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

تفضلوا إخوتي الكرام البرنامج الآن يعمل على صيغة accde و لا يفتح النموذج في وضع التصميم شريط طباعة accde.rar شريط طباعة.rar

الأساتذة الافاضل السلام عليكم ورحمة الله وبركاته لدي برنامج يحتاج من سيادتكم مشكورين التدخل في حله ... حاولت جاهداً منذ أيام ولكن صعب علي تنفيذه .... اليكم البرنامج مضغوط ان الله في عون العبد مادام العبد في عون أخيه والسلام عليكم ورحمة الله وبركاته TRANSFER-CELL.rar

030-Hide Show Columns Based On Specific Value YasserKhalil.rar أستاذي الفاضل ياسر خليل أبو البراء وجدت كوداً جميلاً في أحد أعمالك ,ووجدت أنه باعتقادي يمكن تطبيقه على عملي المرفق في بداية الموضوع . وأردت إذا كان في الإمكان أن تشرحه لي وهل بالإمكان تطبيقه فعلاً على ملفي بنفس طريقتك أو بنفس الفكرة مع تغيير اللازم. Option Explicit Sub HideShowColumns() If Not IsEmpty(Range("A1")) And IsNumeric(Range("A1")) And Range("A1") <> 1 And Range("A1") < 13 Then Dim iMon As Integer iMon = Range("A1").Value + 1 iMon = Range("b1").Value + 1 Columns("C:N").Hidden = False Range(Cells(1, 3), Cells(1, iMon)).EntireColumn.Hidden = True Else MsgBox "Cell A1 Should Be Numeric And Not Emtpy" & Chr(10) & "You Should Type From 2 To 12 Only", 64 Columns("C:N").Hidden = False If Not IsEmpty(Range("A1")) And IsNumeric(Range("A1")) And Range("A1") <> 1 And Range("A1") < 13 Then Columns("m:z").Hidden = False Range(Cells(1, 3), Cells(1, iMon)).EntireColumn.Hidden = True Else MsgBox "Cell b1 Should Be Numeric And Not Emtpy" & Chr(10) & "You Should Type From 2 To 12 Only", 64 Columns("o:z").Hidden = False End If End If End Sub 030-Hide Show Columns Based On Specific Value YasserKhalil.rar

السلام عليكم ورحمة الله وبركاته لقد تناولت فى موضوعى السابق " إزالة أو إبقاء آثار التنسيق الشرطى " على الرابط التالى http://www.officena.net/ib/topic/64950-%D8%A5%D8%B2%D8%A7%D9%84%D8%A9-%D8%A3%D9%88-%D8%A5%D8%A8%D9%82%D8%A7%D8%A1-%D8%A2%D8%AB%D8%A7%D8%B1-%D8%A7%D9%84%D8%AA%D9%86%D8%B3%D9%8A%D9%82-%D8%A7%D9%84%D8%B4%D8%B1%D8%B7%D9%89/ كيفية ازالة التنسيق الشرطى و تبعاته من تنسيقات ... أو الابقاء على تلك التبعات والتنسيقات و تحويلها من تنسيقات شرطية الى تنسيقات عادية و اليوم بإذن الله تعالى أقدم لكم كودا بسيطا لكن يمكن أن تكون آثاره و نتائجه من وجهة نظرى المتواضعة جميلة و مبهرة و الرأى لكم فى النهاية الكود : Sub creatingFormats() On Error Resume Next For Each cell In Range("data") Range("formats").Cells(cell.Value).Copy cell.PasteSpecial Paste:=xlPasteFormats Next cell On Error GoTo 0 Application.CutCopyMode = False End Sub الكود يقوم بعمل تنسيقات عادية فى نطاق محدد هو data طبقا لتنسيقات يمكنك تعييرها فى خلايا نطاق آخر هو formats يمكن تطويع هذا الكود فى حال الرغبة فى عمل تنسيقات عادية متعددة داخل نطاق . تحياتى لكم و الى اللقاء بإذن الله تعالى مع كل جديد ومفيد كن حذرا ... أبو ضحكة جنان قاعد لك فى الملف أخوكم مختار حسين محمود الصعيدى تنسيقات بلا حدود.rar تنسيقات بلا حدود.rar