أيهاب ممدوح قام بنشر يوليو 26, 2011 مشاركة قام بنشر يوليو 26, 2011 كل المشكله اني اريد التعديل علي الماكرو الذي يجعل القائمه المنسدله تعرض ما يطلب منها ولكن اريد عند اختيار التاريخ يظهر لي الاعمده وليس الصفوف كما في الملف المرفق اريد التعديل فقط وشكرا علي التعاون مبيعات فرع.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يوليو 26, 2011 مشاركة قام بنشر يوليو 26, 2011 كل المشكله اني اريد التعديل علي الماكرو الذي يجعل القائمه المنسدله تعرض ما يطلب منها ولكن اريد عند اختيار التاريخ يظهر لي الاعمده وليس الصفوف كما في الملف المرفق اريد التعديل فقط وشكرا علي التعاون اخي الكريم الميكرو تم تسجيله لاظهار واخفاء صفوف محددة في الكود لاستبدال الصفوف بالاعمدة استبدل هذه الجملة في الكود للاخفاء للصفوف Selection.EntireRow.Hidden = False والاظهار للصفوف Selection.EntireRow.Hidden = True بهذه الدالة على الاعمدة (لكن حدد الاعمدة التي تريد ظهورها واخفاءها كما هو معمول مع الصفوف) للاخفاء Selection.EntireColumn.Hidden = False للاظهار Selection.EntireColumn.Hidden = True ملاحظه تعريف الصفوف التي يتم اخفائها او اظهارها في الكود Rows("1:745").Select والتي تعني ان الصفوف من 1 الى 745 سيتم اظهارها او اخفاءها وتعريف الاعمدة في الكود كالتالي Columns("IR:IS").Select والتي تعني ان العمودين IR & IS سيتم اخفاءها او اظهارها حسب الاختيار والله اعلم رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر يوليو 26, 2011 مشاركة قام بنشر يوليو 26, 2011 الاستاذ ابو احمد : ماشاء الله ... تسم ايد وجزاك الله كل الخير وفقك الله ياسر الحافظ " ابو الحارث " رابط هذا التعليق شارك More sharing options...
MAHMOUD ALI YOUSSEF قام بنشر يوليو 26, 2011 مشاركة قام بنشر يوليو 26, 2011 السلام عليكم اخي ابو احمد معلومة جميلة جزاك الله كل خير :clapping: :fff: :fff: :fff: رابط هذا التعليق شارك More sharing options...
أيهاب ممدوح قام بنشر يوليو 29, 2011 الكاتب مشاركة قام بنشر يوليو 29, 2011 شكرا للجميع الذين قامو بالدخول ومحاوله المساعدة وخاصه الاستاذ عبد الله واكرر شكرا وبالفعل قمت بكل ذلك ونجحت الفكرة ولكن ظهرت مشكله اخري انه يوجد حمايه علي خلايا معينه وبالعمل عليها ااجد انها غير محميه واذا قمت بعمل حمايه يعمل الماكرو مرة ثم المرة الثاني لا يعمل بحجه ان الخليه محميه ماذا افعل وانا اريد حمايه الخلايا المحددة وهي بها معادلات واريد عمل الماكرو وهذا موجود في المرفق مبيعات فرع -.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يوليو 29, 2011 مشاركة قام بنشر يوليو 29, 2011 شكرا للجميع الذين قامو بالدخول ومحاوله المساعدة وخاصه الاستاذ عبد الله واكرر شكرا وبالفعل قمت بكل ذلك ونجحت الفكرة ولكن ظهرت مشكله اخري انه يوجد حمايه علي خلايا معينه وبالعمل عليها ااجد انها غير محميه واذا قمت بعمل حمايه يعمل الماكرو مرة ثم المرة الثاني لا يعمل بحجه ان الخليه محميه ماذا افعل وانا اريد حمايه الخلايا المحددة وهي بها معادلات واريد عمل الماكرو وهذا موجود في المرفق اخي الكريم سوال لماذ هذا الكود مكرر بشكل كبير ActiveSheet.Protect Password:="haitham29181" الافضل وضع فك الحماية في بداية الكود ووضع الحماية في نهاية الكود فقط وليس تكرارها مرات كثيرة ولحماية الخلايا التي بها المعادلات ضع هذا الكود في النهاية Selection.SpecialCells(xlCellTypeFormulas, 23).Select Selection.Protect Password:="haitham29181" والله اعلم رابط هذا التعليق شارك More sharing options...
أيهاب ممدوح قام بنشر يوليو 29, 2011 الكاتب مشاركة قام بنشر يوليو 29, 2011 ارجوا التوضيح اكثر بمعني كتابه بدايه الكود ونهايه الكود لاني حاولت ولم تنجح وشكرا لتعبك معي رابط هذا التعليق شارك More sharing options...
الحسامي قام بنشر يوليو 29, 2011 مشاركة قام بنشر يوليو 29, 2011 السلام عليكم اخي الكريم وبعد اذن اخي وحبيبي ابو احمد لا يوجد داعي لهذا الكود الضخم والمعقد بعض الشئ والذي يصعب تتبعه ويمكنك الاستغناء عته وقد قمت بعمل كود مختصر يلبي طلبك Dim x1, i As Integer Application.ScreenUpdating = False ActiveSheet.Unprotect Password:="haitham29181" Columns("d:iq").EntireColumn.Hidden = True If ActiveSheet.Shapes("Drop Down 283").ControlFormat.Value = 33 Then Columns("d:iq").EntireColumn.Hidden = False Range("d6").Select ElseIf ActiveSheet.Shapes("Drop Down 283").ControlFormat.Value = 32 Then For i = 11 To 251 Step 8 Cells(1, i).EntireColumn.Hidden = False Next Range("k6").Select Else x1 = ActiveSheet.Shapes("Drop Down 283").ControlFormat.Value Range(Cells(1, ((x1 - 1) * 5) + x1 * 3 + 1), _ Cells(1, ((x1 - 1) * 5) + x1 * 3 + 8)).EntireColumn.Hidden = False Cells(6, ((x1 - 1) * 5) + x1 * 3 + 1).Select End If ActiveSheet.Protect Password:="haitham29181" وبالنسبة لحماية الخلايا فقط قم بغلق الخلايا التي تحتوي على معادلات من خلال كليك يمين format cells ومن ثم protection ثم قم بتفعيل خاصية louck وقد قمت بعمل الخلايا لتاريخ 1/8 كعينة ويمكنك اجراء الباقي على باقي الخلايا مبيعات فرع -1.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يوليو 29, 2011 مشاركة قام بنشر يوليو 29, 2011 (معدل) ارجوا التوضيح اكثر بمعني كتابه بدايه الكود ونهايه الكود لاني حاولت ولم تنجح وشكرا لتعبك معي تم التعديل لكبر حجم الكود ولكون الكود المضاف من الاستاذ الحسامي ادى الغرض المطلوب والله اعلم تم تعديل يوليو 30, 2011 بواسطه عبدالله المجرب رابط هذا التعليق شارك More sharing options...
أيهاب ممدوح قام بنشر يوليو 29, 2011 الكاتب مشاركة قام بنشر يوليو 29, 2011 السلام عليكم اخي الكريم وبعد اذن اخي وحبيبي ابو احمد لا يوجد داعي لهذا الكود الضخم والمعقد بعض الشئ والذي يصعب تتبعه ويمكنك الاستغناء عته وقد قمت بعمل كود مختصر يلبي طلبك Dim x1, i As Integer Application.ScreenUpdating = False ActiveSheet.Unprotect Password:="haitham29181" Columns("d:iq").EntireColumn.Hidden = True If ActiveSheet.Shapes("Drop Down 283").ControlFormat.Value = 33 Then Columns("d:iq").EntireColumn.Hidden = False Range("d6").Select ElseIf ActiveSheet.Shapes("Drop Down 283").ControlFormat.Value = 32 Then For i = 11 To 251 Step 8 Cells(1, i).EntireColumn.Hidden = False Next Range("k6").Select Else x1 = ActiveSheet.Shapes("Drop Down 283").ControlFormat.Value Range(Cells(1, ((x1 - 1) * 5) + x1 * 3 + 1), _ Cells(1, ((x1 - 1) * 5) + x1 * 3 + 8)).EntireColumn.Hidden = False Cells(6, ((x1 - 1) * 5) + x1 * 3 + 1).Select End If ActiveSheet.Protect Password:="haitham29181" وبالنسبة لحماية الخلايا فقط قم بغلق الخلايا التي تحتوي على معادلات من خلال كليك يمين format cells ومن ثم protection ثم قم بتفعيل خاصية louck وقد قمت بعمل الخلايا لتاريخ 1/8 كعينة ويمكنك اجراء الباقي على باقي الخلايا شكرا جزيلا علي المجهود وتم نجاح الكود بنجاح ولكن اريد شرح هذا الكود المتميز الذي وفر المجهود والوقت ايضا رابط هذا التعليق شارك More sharing options...
أيهاب ممدوح قام بنشر يوليو 29, 2011 الكاتب مشاركة قام بنشر يوليو 29, 2011 شكر ااااااااااااااا جزيلا لكلا من الاخين الكريمين الذين ساعدوني في الملف ولكني لدي طلب اخر اريد كود لعمل طباعه لنطاق معين رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يوليو 30, 2011 مشاركة قام بنشر يوليو 30, 2011 شكر ااااااااااااااا جزيلا لكلا من الاخين الكريمين الذين ساعدوني في الملف ولكني لدي طلب اخر اريد كود لعمل طباعه لنطاق معين اولاً اوجه الشكر للاستاذ الفاضل الحسامي على الكود المميز اخي الفاضل هذا كود للطباعة مباشرة للنطاق A4:H34 ويمكنك تعديله Sub Print1() ActiveSheet.PageSetup.PrintArea = "$A$4:$H$34" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Range("H9").Select End Sub وهذا كود للمعاينة ثم الطباعة لنفس النطاق Sub Preview_Print() ActiveSheet.PageSetup.PrintArea = "$A$4:$H$34" ActiveWindow.SelectedSheets.PrintPreview ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Range("H9").Select End Sub والله اعلم رابط هذا التعليق شارك More sharing options...
أيهاب ممدوح قام بنشر يوليو 30, 2011 الكاتب مشاركة قام بنشر يوليو 30, 2011 شكرا جزيلا للجميع رابط هذا التعليق شارك More sharing options...
أيهاب ممدوح قام بنشر يوليو 31, 2011 الكاتب مشاركة قام بنشر يوليو 31, 2011 لدي فكرة ولا اعرف هل ممكنه من الناجيه العمليه او لا واريد المساعده اريد عمل قائمه باسماء المنتجات الرئسيه لاختار المنتج وفي نفس الوقت القائمه التاريخ تعمل ؟؟؟؟ اي اريد عمل قائمه بجوار قائمه التاريخ لاختار المنتج الرئيسي في اليوم المعين ؟؟؟ وشكرا جزيلا رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يوليو 31, 2011 مشاركة قام بنشر يوليو 31, 2011 لدي فكرة ولا اعرف هل ممكنه من الناجيه العمليه او لا واريد المساعده اريد عمل قائمه باسماء المنتجات الرئسيه لاختار المنتج وفي نفس الوقت القائمه التاريخ تعمل ؟؟؟؟ اي اريد عمل قائمه بجوار قائمه التاريخ لاختار المنتج الرئيسي في اليوم المعين ؟؟؟ وشكرا جزيلا اخي الحبيب المطلوب غير واضح يفضل ارفاق ملف به المطلوب وستجد بإذن الله من يساعدك من ابطال هذا الصرح العظيم ابواحمد رابط هذا التعليق شارك More sharing options...
أيهاب ممدوح قام بنشر يوليو 31, 2011 الكاتب مشاركة قام بنشر يوليو 31, 2011 يوجد في الملف قائمه تعمل علي اظهار تاريخ معين وهي فعاله جدا ؟ ولكن اريد عمل قائمه اخري تعمل علي اظهار المنتجات الرئيسيه من الصفوف للتسهيل العمل علي الملف؟؟؟ظ يوجد مرفق كما اريد ان اعمل ماكرو حمايه للمصنف بالكامل عند الضغط عليه يغلق الاوراق بالكامل والعكس صحيح شكرا جزيلا مبيعات الفرع.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يوليو 31, 2011 مشاركة قام بنشر يوليو 31, 2011 اخي الفاضل اولاً ما هو موجود في ملفك المرفق ليست قائمة منسدلة بالمعنى الحقيقي للقائمة المنسدلة ولكن هذا مربع الكومبوبوكس وضع ليناسب عمل الكود الخاص باخفاء واظهار الاعمدة حسب قيمة الخلية (IT1) المرتبطة بهذا الكومبوبوكس والتي ينتج اخفاء اعمد حسب الرقم بهذه الخلية ثانياً بماذا تريد ان تربط القائمة المنسدلة (اين البيانات الخاصة بالمنتجات) وهل تريدها للاختيار فقط ام سترتبط بالكود ثالثاً بشان زر الحماية هل تريد عند الضغط عليه يتم اخفاء اوراق العمل ام مجرد الحماية فقط والله اعلم رابط هذا التعليق شارك More sharing options...
أيهاب ممدوح قام بنشر يوليو 31, 2011 الكاتب مشاركة قام بنشر يوليو 31, 2011 اخي الفاضل اولاً ما هو موجود في ملفك المرفق ليست قائمة منسدلة بالمعنى الحقيقي للقائمة المنسدلة ولكن هذا مربع الكومبوبوكس وضع ليناسب عمل الكود الخاص باخفاء واظهار الاعمدة حسب قيمة الخلية (IT1) المرتبطة بهذا الكومبوبوكس والتي ينتج اخفاء اعمد حسب الرقم بهذه الخلية ثانياً بماذا تريد ان تربط القائمة المنسدلة (اين البيانات الخاصة بالمنتجات) وهل تريدها للاختيار فقط ام سترتبط بالكود ثالثاً بشان زر الحماية هل تريد عند الضغط عليه يتم اخفاء اوراق العمل ام مجرد الحماية فقط والله اعلم الي الاخ ابو احمد شكرا علي الرد اولا : شكرا علي التوضيح بالنسبه لقائمه المنسدله او الاصح مربع الكومبوبوكس ثانيا : اريد كود لاخفاء الصفوف بدلا من الاعمده بنفس اطريقه الكود الموجود من قبل الاخ الحسامي ثالثا : اريد زر للحمايه فقط رابعا زر في الصفحه الرئسيه يحولك الي صفحه العمليات اليوميه وزر داخل العمليات اليوميه لرجوع الي الصفحه الرئيسيه وذلك بدون اظهار اي اسم الشيت في الاسقل خامسا : اريد التاريخ يظهر هجري بصيغه ( 1محرم 1432 ) وشكرا جزيلا وانا اسف لاني هتعبك معايا لكن والله انا في امس الحاجه الي هذة الطلبات واكرر اسفي وشكرا حتي لو لم تقدر علي هذة الاشياء رابط هذا التعليق شارك More sharing options...
أيهاب ممدوح قام بنشر يوليو 31, 2011 الكاتب مشاركة قام بنشر يوليو 31, 2011 اخي الفاضل اولاً ما هو موجود في ملفك المرفق ليست قائمة منسدلة بالمعنى الحقيقي للقائمة المنسدلة ولكن هذا مربع الكومبوبوكس وضع ليناسب عمل الكود الخاص باخفاء واظهار الاعمدة حسب قيمة الخلية (IT1) المرتبطة بهذا الكومبوبوكس والتي ينتج اخفاء اعمد حسب الرقم بهذه الخلية ثانياً بماذا تريد ان تربط القائمة المنسدلة (اين البيانات الخاصة بالمنتجات) وهل تريدها للاختيار فقط ام سترتبط بالكود ثالثاً بشان زر الحماية هل تريد عند الضغط عليه يتم اخفاء اوراق العمل ام مجرد الحماية فقط والله اعلم شكرا علي اهتمامك ااولا : اريد زر حمايه واخفار والعكس من نفس الزر برقم سري 123 ثانيا اريد زر في الصفحه الرئيسيه يحولك الي صفحه العمليات اليوميه دون اظار الورقه في الشريط بالاسفل وزر داخل العمليات اليوميه لرجوع الي الصفحه الرئيسيه ثالثا اريد تحويل التاريخ الي هجري ليظهر 1 محرم 1432 وهكذا ...... وشكرا جزيلا واسف لتعبك وشكرا جداااااااااااااا ختي اذا لو تتمكن من العمل جزاك الله خيرا مبيعات الفرع.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يوليو 31, 2011 مشاركة قام بنشر يوليو 31, 2011 ااولا : اريد زر حمايه واخفار والعكس من نفس الزر برقم سري 123 ثانيا اريد زر في الصفحه الرئيسيه يحولك الي صفحه العمليات اليوميه دون اظار الورقه في الشريط بالاسفل وزر داخل العمليات اليوميه لرجوع الي الصفحه الرئيسيه المطلوب في المرفق ثالثا اريد تحويل التاريخ الي هجري ليظهر 1 محرم 1432 وهكذا ...... من تنسيق الخلايا اختر صيغة التاريخ هجري مبيعات فرع -1.rar رابط هذا التعليق شارك More sharing options...
أيهاب ممدوح قام بنشر يوليو 31, 2011 الكاتب مشاركة قام بنشر يوليو 31, 2011 شكرااااااااااااااااااا جدا علي هذا المجهود الرائع لاكن لي بعض الطلبات عايز اعرف ازاي وضع جميع اسماء الملف في الفور كما انت فعلت لا اعرف وكما تعلم انني انقل كل مافعلته انت الي الملف الاصلي الذي يستحيل تحميله علي المنتدي لذلك اريد شرح هذة الخطوة رابط هذا التعليق شارك More sharing options...
أيهاب ممدوح قام بنشر يوليو 31, 2011 الكاتب مشاركة قام بنشر يوليو 31, 2011 شكرا جزيلا لقد تم التعديل بنجاح واشكرك جزيلا وبارك الله لك ويرزقق الجنه ان شاء الله اود ان اطلب منك الاتي :- الاول كود يعمل علي عند قفل الملف وحفظه يرسل بيه الي الاميل الياهو الخاص بي وهو ehabmamdouh28@yahoo.com الثاني اغير اسم اليوزفور من haitham الي ehab الثالث كود رساله ترحيب عند فتح الملف شكرا جزيلا رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أغسطس 1, 2011 مشاركة قام بنشر أغسطس 1, 2011 شكرا جزيلا لقد تم التعديل بنجاح واشكرك جزيلا وبارك الله لك ويرزقق الجنه ان شاء الله اود ان اطلب منك الاتي :- الاول كود يعمل علي عند قفل الملف وحفظه يرسل بيه الي الاميل الياهو الخاص بي وهو ehabmamdouh28@yahoo.com الثاني اغير اسم اليوزفور من haitham الي ehab الثالث كود رساله ترحيب عند فتح الملف شكرا جزيلا السلام عليكم اخي الفاضل تم حل الطلبين الثاني والثالث في المرفق للطلب الاول راجع الرابط http://www.officena.net/ib/index.php?showtopic=26407 مبيعات فرع -1.rar رابط هذا التعليق شارك More sharing options...
أيهاب ممدوح قام بنشر أغسطس 1, 2011 الكاتب مشاركة قام بنشر أغسطس 1, 2011 شكرا جداااااااااااااااا لكن انا اريد معرفع تغير اسم اليوزرفورم وليس عملها شكراااااااااااااا رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أغسطس 1, 2011 مشاركة قام بنشر أغسطس 1, 2011 (معدل) شكرا جداااااااااااااااا لكن انا اريد معرفع تغير اسم اليوزرفورم وليس عملها شكراااااااااااااا تفضل الشرح في المرفق الشرح1.rar تم تعديل أغسطس 1, 2011 بواسطه عبدالله المجرب رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.