سليم حاصبيا

اكتب هذه المعادلة في الخلية A3 ثم اسجب نزولاً =IF($D9=1,$A$2+$E8+$E9,"")

اخي ياسر كود جميل وحان الوقت كي اكشف انا عن الكود يتاعي merge unmerge.rar

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

اليك الحل الجدول يعمل حتى 100 اسم و يمكنك الاضافة بتعديل بسيط test666 SALIM.rar

لغز جديد من الغاز اكسل في المرفق لغز الدمج.rar

اكتب هذه المعادلة اينما تريد واسحب نزولاً ="1/"&ROWS($A$1:A1)

الباسورد غير صحيح تاكد منه

المطلوب بقى التنسيق الشرطي

اخي ياسر انت اطلب فقط و علينا التّنفيذ لغز اخر من الجداول المتحركة الله يخليك انت ما تحركش عن الكرسي بتاعك عشانك مريض جدول متحرك 1.rar

بلاش استاذ دى يا ياسر بص بقى في الصفحة 4 المشاركة 69

كود رائع يا حسام الى المزيد من التقدم

Private Sub Worksheet_selectionChange(ByVal Target As Range) Dim myrange As Range If Not Intersect(Target, Range("f6")) Is Nothing Then Exit Sub Set myrange = Union(Cells(8, 4), Cells(9, 4), Cells(10, 4)) If [f6] <> "" And Range("f6:g6").MergeCells = True Then Cells(8, 4) = 1 Cells(9, 4) = 2 Cells(10, 4) = 3 Exit Sub Else myrange = "" End If End Sub اكتب هذا الكود جربه أولاً في صفحة مستقلة لنعرف النتيجة

اخي ابو ليلة جرب هذا المرفق ابراهيم salim.rar

عسى ان ينال اعجابك هشام_عماد salim.rar

انسخ الكود من السطر الثاني حتى السادس و الصقه قبل كلمة end sub مباشرة و اضف الشروط الجديدة على ما تم لصقه

هل هذا ما تقصده dataval.function.rar

السلام عليكم اكتب هذا الكود و يمكنك تغيير النطاق و الخلية المفتاح حسب ما فهمت من المشاركة لايسمح بالكتابة الا اذا كانت خلية محددة تساوي 30 Private Sub Worksheet_selectionChange(ByVal Target As Range) If [h1] = 30 Then If Not Intersect(Target, Range("a1:a10")) Is Nothing Then Range("B1").Select End If End If End Sub

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

المساعدة على ماذا

اخي الكتب هذا المود في الصفحة الصفحة التي تختارها (المناسبة) بدون ان تدرج module Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If Not Intersect(Target, Range("A2:H2")) Is Nothing Then nor Target.Offset(0, 1).Select Else Range("A2:H2").Select With Selection.Interior .PatternColorIndex = xlAutomatic Selection.NumberFormat = "General" Target.Offset(1, 0).Select End With End If Application.ScreenUpdating = True End Sub Sub nor() Range("A2:H2").Select Selection.NumberFormat = "@" With Selection.Interior .Color = 65535 .PatternTintAndShade = 0 End With End Sub

جزاك الله خيراً اخي بن علية

اكتب هذا الكود Sub form_to_text() Range("H4").Select Selection.NumberFormat = "@" End Sub

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

لا اعرف ماذا تقصد بـ بطيئة حاول ان تغير شيئاً من صفحة الاولى ستجد رأساً ان المعادلة اشتغلت زي الفل

اخي بن علية تعديل بسيط على المعادلة لتعمل اينما وضعتها سواء في B4 او في اي مكان اخر =IF(AND(ROWs($A1:a1)<=$J$2;COLUMN($A$1:a1)<=$K$2);$K$2*(ROWs($A$1:a1)-1)+COLOMNs($A$1:a1);"") تحياتي