حمادة عمر

جميل اخي الكريم وننتظر منك المزيد وان شاء الله تقوم بتطوير كل ملفاتك وقريبا نري برنامج خاص بك متكاملا تقبل تحياتي

رمضـــان كـــريـــم

السلام عليكم الاخ الكريم / trke96 بارك الله فيك لقد قام الاستاذ الاخ الحبيب / عباد - ابو نصار ... جزاه الله خيرا بوضع كود لتنفيذ طلبك تماما وكما تريد علي الرابط التالي في موضوع بعنوان (( أكبر وأصغر قيمة في مدخلات خلية معينه )) http://www.officena.net/ib/index.php?showtopic=44648&hl= ان شاء الله به ما تريد تماما جزاكم الله خيرا

السلام عليكم وبعد اذن استاذي الكريم / بن عليه .. جزاه الله خيرا ولاثراء الموضوع ... وعلي حسب فهمي للطلب اقدم هذا الحل ايضا يقوم بعمل قائمة باسماء الشيتات ... ويتم ربطهم بارتباط تشعبي لسهوله الوصول اليهم مع اضافة زر رجوع للرئيسية في كل الصفحات ... ويتم تسمية الصفحة التي قمت بوضع الكود فيها باسم (LIST) كل ما عليك فقط اختيار الصفحة التي تريد ان تكون بها القائمة وتضع الكود في حدث هذه الصفحة Worksheet_Activate واليكم الكود مع ملف مرفق Private Sub Worksheet_Activate() Dim wSheet As Worksheet Dim l As Long l = 1 With Range("A:A") .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With With Me .Name = "LIST" .Columns(1).ClearContents .Cells(1, 1) = "قائمة الشيتات" .Cells(1, 1).Name = "Index" End With For Each wSheet In Worksheets If wSheet.Name <> Me.Name Then l = l + 1 With wSheet .Range("A1").Name = "Start" & wSheet.Index .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:= _ "Index", TextToDisplay:=" الرئيسية" End With Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="", _ SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name End If Next wSheet End Sub جزاكم الله خيرا عمل قائمة باسماء الشيتات وربطها كازرار.rar

ويمكن ايضا الجمع بين الكودين لاخفاء مجموعة من الصفوف ابتداءا من صف معين واخفاء مجموعة من الاعمدة ابتداءا من عمود معين في ورقة معينة ليكون الكود كما يلي Private Sub Worksheet_Activate() Application.ScreenUpdating = False Rows("301:301").Select Range(Selection, Selection.End(xlDown)).Select Selection.Delete Shift:=xlUp Selection.EntireRow.Hidden = True Columns("J:J").Select Range(Selection, Selection.End(xlToRight)).Select Selection.EntireColumn.Hidden = True Application.ScreenUpdating = True End Sub

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

الاخ الكريم / علي حسن بالنسبة لطلبك سيكون باستخدام نفس الكود تقريبا ولكن بخصوص الاعمدة ليكون الكود بالشكل التالي Private Sub Worksheet_Activate() Application.ScreenUpdating = False Columns("J:J").Select Range(Selection, Selection.End(xlToRight)).Select Selection.EntireColumn.Hidden = True Application.ScreenUpdating = True End Sub ويتم تحديد العمود المطلوب الاخفاء او الحذف من بعده من هذا السطر Columns("J:J").Select ارجو ان يكون هو المطلوب جزاك الله خيرا

السلام عليكم الاخ الكريم / kmgh بارك الله فيك جزاك الله خيرا

السلام عليكم أخي الحبيب / حسام اولا عذرا علي تأخيري المستمر عنك ولكن ذلك نظرا لظروف العمل لدي وكثرة سفري هذه الفترة وأكتب ردي هذا من ع الموبايل الآن وبالنسبة لطلبك أخي قم بالدخول علي الفورم نفسه ستجد في خصائص الفورم يسار الشاشة أحد الخيارات باسم Raight to Left قم بتغيره عكس القيمة الموجودة أمامه لتكون ( true ) و سيتم تنفيذ ما تريد بإذن الله وذلك لحين الاطلاع علي الملف غدا ان شاء الله أكرر لك أعتذاري

السلام عليكم أخي الحبيب اولا عذرا علي تأخيري المستمر عنك ولكن ذلك نظرا لظروف العمل لدي وكثرة سفري هذه الفترة وأكتب ردي هذا من ع الموبايل الآن وبالنسبة لطلبك أخي قم بالدخول علي الفورم نفسه ستجد في خصائص الفورم يسار الشاشة أحد الخيارات باسم Raight to Left قم بتغيره عكس القيمة الموجودة أمامه و سيتم تنفيذ ما تريد بإذن الله وذلك لحين الاطلاع علي الملف غدا ان شاء الله أكرر لك أعتذاري

رمضـــان كـــريـــم

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

رمضـــان كـــريـــم

تقبل خالص تحياتي اخي العزيز / قنديل الصياد

جزاك الله خيرا

رمضـــان كـــريـــم

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

رمضـــان كـــريـــم

راااااااااااااااائع الاخ العزيز المميز / علي جزاك الله خيرا

رمضـــان كـــريـــم

جزاك الله خيرا