أيهاب ممدوح

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

شكرا جداااااااااااااااا لكن انا اريد معرفع تغير اسم اليوزرفورم وليس عملها شكراااااااااااااا

شكرا جزيلا لقد تم التعديل بنجاح واشكرك جزيلا وبارك الله لك ويرزقق الجنه ان شاء الله اود ان اطلب منك الاتي :- الاول كود يعمل علي عند قفل الملف وحفظه يرسل بيه الي الاميل الياهو الخاص بي وهو ehabmamdouh28@yahoo.com الثاني اغير اسم اليوزفور من haitham الي ehab الثالث كود رساله ترحيب عند فتح الملف شكرا جزيلا

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

شكرا علي اهتمامك ااولا : اريد زر حمايه واخفار والعكس من نفس الزر برقم سري 123 ثانيا اريد زر في الصفحه الرئيسيه يحولك الي صفحه العمليات اليوميه دون اظار الورقه في الشريط بالاسفل وزر داخل العمليات اليوميه لرجوع الي الصفحه الرئيسيه ثالثا اريد تحويل التاريخ الي هجري ليظهر 1 محرم 1432 وهكذا ...... وشكرا جزيلا واسف لتعبك وشكرا جداااااااااااااا ختي اذا لو تتمكن من العمل جزاك الله خيرا مبيعات الفرع.rar

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

اريد كتابه التاريخ هجري ويظهر هجري كما يلي : محرم 1432 صفر 1432 ربيع اول 1432 ربيع ثاني 1432 جماد اول 1432 جماد ثاني 1432 رجب 1432 شعبان1432 رمضان 1432 شوال 1432 وكذا ................... وشكرا جزيلا

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

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

شكرا جزيلا للجميع

شكر ااااااااااااااا جزيلا لكلا من الاخين الكريمين الذين ساعدوني في الملف ولكني لدي طلب اخر اريد كود لعمل طباعه لنطاق معين

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

ارجوا التوضيح اكثر بمعني كتابه بدايه الكود ونهايه الكود لاني حاولت ولم تنجح وشكرا لتعبك معي

شكرا للجميع الذين قامو بالدخول ومحاوله المساعدة وخاصه الاستاذ عبد الله واكرر شكرا وبالفعل قمت بكل ذلك ونجحت الفكرة ولكن ظهرت مشكله اخري انه يوجد حمايه علي خلايا معينه وبالعمل عليها ااجد انها غير محميه واذا قمت بعمل حمايه يعمل الماكرو مرة ثم المرة الثاني لا يعمل بحجه ان الخليه محميه ماذا افعل وانا اريد حمايه الخلايا المحددة وهي بها معادلات واريد عمل الماكرو وهذا موجود في المرفق مبيعات فرع -.rar

السلام عليكم ورحمه الله وبركاته انا عندي مشكله في الاكسل والاكواد الخاصه بيه عند كود خاص بقائمه منسدله لاظهار نطاق معين وبالفعل نجحت لكن المشكله انها تعمل بدون حمايه الملف والمعادلات اريد فقط ان تعمل مع وضع الحمايه علي الشيت الخاص بها واليكم الكود واود ان اعرف هل المشكله في الكود ام في الشيت نفسه Sub Macro2() ' ' Macro2 Macro ' ' ActiveSheet.Unprotect Password:="haitham29181" Range("it1").Select If ActiveCell.FormulaR1C1 = "1" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("l:iq").Select Selection.EntireColumn.Hidden = True Range("d6").Select ActiveSheet.Unprotect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "2" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:k").Select Selection.EntireColumn.Hidden = True Columns("t:iq").Select Selection.EntireColumn.Hidden = True Range("l6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "3" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:s").Select Selection.EntireColumn.Hidden = True Columns("ab:iq").Select Selection.EntireColumn.Hidden = True Range("t6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "4" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:aa").Select Selection.EntireColumn.Hidden = True Columns("aj:iq").Select Selection.EntireColumn.Hidden = True Range("ab6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "5" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:ai").Select Selection.EntireColumn.Hidden = True Columns("ar:iq").Select Selection.EntireColumn.Hidden = True Range("aj6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "6" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:aq").Select Selection.EntireColumn.Hidden = True Columns("az:iq").Select Selection.EntireColumn.Hidden = True Range("ar6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "7" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:ay").Select Selection.EntireColumn.Hidden = True Columns("bh:iq").Select Selection.EntireColumn.Hidden = True Range("az6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "8" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:bg").Select Selection.EntireColumn.Hidden = True Columns("bp:iq").Select Selection.EntireColumn.Hidden = True Range("bh6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "9" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:bo").Select Selection.EntireColumn.Hidden = True Columns("bx:iq").Select Selection.EntireColumn.Hidden = True Range("bp6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "10" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:bw").Select Selection.EntireColumn.Hidden = True Columns("cf:iq").Select Selection.EntireColumn.Hidden = True Range("bx6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "11" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:ce").Select Selection.EntireColumn.Hidden = True Columns("cn:iq").Select Selection.EntireColumn.Hidden = True Range("cf6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "12" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:cm").Select Selection.EntireColumn.Hidden = True Columns("cv:iq").Select Selection.EntireColumn.Hidden = True Range("cn6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "13" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:cu").Select Selection.EntireColumn.Hidden = True Columns("dd:iq").Select Selection.EntireColumn.Hidden = True Range("cv6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "14" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:dc").Select Selection.EntireColumn.Hidden = True Columns("dl:iq").Select Selection.EntireColumn.Hidden = True Range("dd6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "15" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:dk").Select Selection.EntireColumn.Hidden = True Columns("dt:iq").Select Selection.EntireColumn.Hidden = True Range("dl6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "16" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:ds").Select Selection.EntireColumn.Hidden = True Columns("eb:iq").Select Selection.EntireColumn.Hidden = True Range("dt6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "17" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:ea").Select Selection.EntireColumn.Hidden = True Columns("ej:iq").Select Selection.EntireColumn.Hidden = True Range("eb6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "18" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:ei").Select Selection.EntireColumn.Hidden = True Columns("er:iq").Select Selection.EntireColumn.Hidden = True Range("ej6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "19" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:eq").Select Selection.EntireColumn.Hidden = True Columns("ez:iq").Select Selection.EntireColumn.Hidden = True Range("er6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "20" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:ey").Select Selection.EntireColumn.Hidden = True Columns("fh:iq").Select Selection.EntireColumn.Hidden = True Range("ez6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "21" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:fg").Select Selection.EntireColumn.Hidden = True Columns("fp:iq").Select Selection.EntireColumn.Hidden = True Range("fh6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "22" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:fo").Select Selection.EntireColumn.Hidden = True Columns("fx:iq").Select Selection.EntireColumn.Hidden = True Range("fp6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "23" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:fw").Select Selection.EntireColumn.Hidden = True Columns("gf:iq").Select Selection.EntireColumn.Hidden = True Range("fx6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "24" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:ge").Select Selection.EntireColumn.Hidden = True Columns("gn:iq").Select Selection.EntireColumn.Hidden = True Range("df6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "25" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:gm").Select Selection.EntireColumn.Hidden = True Columns("gv:iq").Select Selection.EntireColumn.Hidden = True Range("gn6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "26" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:gu").Select Selection.EntireColumn.Hidden = True Columns("hd:iq").Select Selection.EntireColumn.Hidden = True Range("gv6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "27" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:hc").Select Selection.EntireColumn.Hidden = True Columns("hl:iq").Select Selection.EntireColumn.Hidden = True Range("hd6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "28" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:hk").Select Selection.EntireColumn.Hidden = True Columns("ht:iq").Select Selection.EntireColumn.Hidden = True Range("hl6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "29" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:hs").Select Selection.EntireColumn.Hidden = True Columns("ib:iq").Select Selection.EntireColumn.Hidden = True Range("ht6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "30" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:ia").Select Selection.EntireColumn.Hidden = True Columns("ij:iq").Select Selection.EntireColumn.Hidden = True Range("ib6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "31" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False Columns("d:ii").Select Selection.EntireColumn.Hidden = True Range("ij6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "32" Then Columns("a:iq").Select Selection.EntireColumn.Hidden = False ActiveSheet.Outline.ShowLevels ColumnLevels:=1 Range("k6").Select ActiveSheet.Protect Password:="haitham29181" ElseIf ActiveCell.FormulaR1C1 = "33" Then Columns("a:ir").Select Selection.EntireColumn.Hidden = False ActiveSheet.Outline.ShowLevels ColumnLevels:=2 Range("e6").Select ActiveSheet.Protect Password:="haitham29181" End If End Sub ارجوا الافاده مع العلم ان القائمه تعمل في خطوة والثانيه ترفض بداعي الحمايه مختلفه

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