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

السلام عليكم بارك الله فيك استاذ رجب على هذا النشاط الرائع للفائدة == هذا السطر عبارة عن ضغط زري ال SHIFT و ALT معاً لتغيير اللغة Application.SendKeys "%" & "+"

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

ما شاء الله تبارك الله ابداع متواصل بلا حدود سلمت يمينك استاذ عبدالله

السلام عليكم جرب هذا التعديل Public T As Integer Sub Macro1() If T = 1 Then [B6:C9,E6:H6,K6:O9].Merge: T = 0: Exit Sub If T = 0 Then [B6:C9,E6:H6,K6:O9].UnMerge: T = 1: Exit Sub End Sub

السلام عليكم بعد إذن الأستاذ الفاضل ابو خليل == شاهد المرفق وقارن بين خصائص مربعي التحرير والسرد كومبوبوكس.rar

بمعنى انه اذا كانت قيمة الخلية لا تساوي فراغ يتم تنفيذ جملة الشرط

ضع مرفقك وسيكون الحل هذه المرة بالاكواد

كل سنة وانت طيب اخي جمال

السلام عليكم بعد إذن الاستاذ بن عليه هذا كود بحلقات التكرار Sub Abu_Ahmed() Dim cl As Range: T = 3 Set MyRng = Range("B3:B" & Range("B65000").End(xlUp).Row) Set MyRng1 = Range("A3:A" & Range("B65000").End(xlUp).Row) MyRng1.Value = "" For Each cl In MyRng X = Application.CountIf(Range("B3:B" & T), cl) If X = 1 Then cl.Offset(0, -1) = Application.Max(MyRng1) + 1 If X > 1 Then For Each cll In MyRng If cll = cl Then cl.Offset(0, -1) = cll.Offset(0, -1): Exit For Next End If T = T + 1 Next Set MyRng = Nothing: Set MyRng1 = Nothing End Sub

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

لا لن تعمل بالشكل الحالي السبب في ان المدى المعرف فقط يشمل هذه الاعمدة

حياك الله اخي محمود ان شاء الله تعجب السائل

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

السلام عليكم هذه محاولة بالدوال جرب بوضع الID No المطلوب.rar

بارك الله اخي محمود كل سنة وانت طيب == واليك هذا الرابط عله يفي بالغرض http://www.officena.net/ib/index.php?showtopic=37455

أخى الحبيب / محمود جزاك الله كل خير على هذه الروح الطيبة وكل عام وأنتم بخير تقبل الله منا ومنكم صالح الأعمال

بارك الله فيك اخي محمود على هذا النشاط المتمييز

اي صفحتين

اعتقد بأن كود الاخ ابو حنين يفي بالغرض اتمنى التوضيح اكثر بطلبك الحصول على كود مثل كود لاخ ابو ردينة

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

ان شاء الله ان توفر الوقت ساقوم بشرحه

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

كل عام وانتم بخير وعساكم من عواده

اكتب في الخلية هذه الدالة =now()

السلام عليكم حل موفق استاذ الخالدي === ويمكن استخدام هذا السطر لنفس الغرض Rows([J2] & ":" & [K2]).EntireRow.Hidden = True