عبدالله المجرب

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

سيصبح لدينا مرجع دائري

السلام عليكم كل عام وانتم بخير ملف رائع ====================== اخي ابو انس كل عام وانت بخير وشكراً على مشاعرك الكريمة

كل عام والجميع بخير الافضل نقل الوضوع الى المنتدى المفتوح

السلام عليكم اعذرني لعدم تواجدي بسبب انشغالي هذه الايام ====== مبدئياً جرب التعديل الذي تم على ملف الصورة في الورقة 1 الى العمود P البحث.rar

شاهد هذا الرابط http://www.officena.net/ib/index.php?showtopic=38999&hl=

بارك الله فيك اخي ابوتميم

كل عام والجميع بخير ونسأل الله في هذه الايام المباركة ان يمن على اخواننا في سوريا بالنصر المؤزر على الطاغية بشار اللهم آمين

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

ملف رائع واختصارات مفيدة بارك الله فيك اخي احمد وسلمت يمينك اخي الشهابي

السلام عليكم بداية لااعتقد انه يمكن عمل زر يعمل بالمعادلات == بما ان الترقيم تلقائي لما لا يتم استعمال الاسم في النقل (ما رايك)

بارك الله فيك استاذ مجدي

بارك الله فيك استاذنا الفاضل عبدالله باقشير

تفضل المرفق New folder (3).zip

ضع مرفق يوضح المشكلة

حياك الله اخي عباس شكراً على مداخلتك وتعليقك

نرجو الالتزام بقواعد المشاركة بخصوص العنوان وعدم وضع شرح للمطلوب في المشاركة ====== شاهد الصور المرفقة (من خصائص عناصر التحكم اضبطها مثل الصور)

عمل موفق اخي ابو حنين بارك الله فيك

السلام عليكم ضع مرفق به ما تريد بالضبط

في التنسيق الشرطي للخلايا استعمل هذه المعادلة (في الخلية B1) وانسخ للباقي =WEEKDAY($B1) = 6

السلام عليكم جرب هذا Private Const M As String = "C1:C120" Sub MyPrnt() Dim cl As Range Set MyRng = Range(M) For Each cl In MyRng If IsEmpty(cl) Then cl.EntireRow.Hidden = True Next ActiveSheet.PageSetup.PrintArea = "$A$1:$F$120" Activewindow.SelectedSheets.PrintOut Copies:=1, Collate:=True MyRng.EntireRow.Hidden = False End Sub

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

ممتاز استاذ مجدي ارجو تكملة الفكرة وشكراً على ردك السريع

جرب هذا الكود Private Sub CommandButton1_Click() Dim cl As Range, cel As Range For Each cl In Range("C2:C" & [C10000].End(xlUp).Row) For Each cel In Range("B2:B65535") If cl = cel Then cel.Delete Shift:=xlUp: GoTo 1 End If Next 1 Next End Sub

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