سليم حاصبيا

اليك الحل 1212.rar

اليك الحل Test SALIM.rar

تم معاجة الامر حسب ما فهمت من المشاركة برنامج تقديم SALIM.rar

استبدل الكود بهدا Sub hid() Dim myrng As Range lr1 = Cells(Rows.Count, 2).End(xlUp).Row Set myrng = Range("a2:a1048576") myrng.Rows.Hidden = True Range("a" & lr1 + 1 & ":" & "a" & lr1 + 2).Select Selection.Rows.Hidden = False Range("a" & lr1).Rows.Hidden = True 'Range("a" & "2" & ":" & "a" & lr1 - 1).Rows.Hidden = True Range("a" & lr1 + 1).Select Range("a" & lr1 + 1).Activate End Sub Private Sub Worksheet_Change(ByVal Target As Range) lr1 = Cells(Rows.Count, 2).End(xlUp).Row mycell = Range("d" & lr1).Address If Not Intersect(Target, Range(mycell)) Is Nothing And Target.Count = 1 Then If Target.Address = Range("d" & lr1).Address Then On Error Resume Next Application.ScreenUpdating = False hid Range("a" & lr1 + 2 & ":" & "a" & "1084576").Rows.Hidden = True End If End If Application.ScreenUpdating = True End Sub

الك الحل تقريب.rar

جرب هذا الشي =IF(MOD(ROW(A1)-1,10)+3>10,ROWS($A$1:A2)-9,MOD(ROW(A1)-1,10)+3) او هذا =IF(MOD(ROW(B1)-1,5)+3>5,ROWS($A$1:B2)-4,MOD(ROW(B1)-1,10)+3)

عسى ام يكون المطلوب ترتيب عشوائي salim.rar

عسى ان ينال اعجابك اخفاء صفوف.rar

اكثر من رائع يا ملك الكودات

لا تستطيع بواسطة المعادلات ان تدرج هكذا معادلة لانها تعطيك في الخلية B57 وما بعدها Circular reffence يمكنك ان تدرج عامو اضافي و تكتب المعادلة فيه و تخفي الاساسي للتعديل كما في المرفق (العامد D مخفي) انظر الى الصفحة الثانية special copy value.rar

جرب هذه المعادلة =CHOOSE(MATCH($B2,$B$57:$B$61,0),400,500,600,700,800)

جرب هذا الملف لقد وضعته في صيغة 2003 لاكبرعدد من المستفيدين منه تاريخ تلقائي 2003.rar

هذه العبارة ليست X1 بل هي xl ( يعني حرف L ) وهي اختصار لكلمة Excel

اليك الحل كما يجب ان يكون الرقم القومي.rar

ورد خطأ بسيط في المعادلة تتم المعالجة

لك ما تريد تنسيق 2003 Book سليم.rar

تم معالجة الامر اضغط على افضل اجابة ليعلم الأعضاء ان الموضوع مجاب الرقم القومي.rar

1-حدد الخلايا المطلوب التنسيق فيها 2 اضغط ALT+D+L 3- من خانة Allow اختر Custom 4- في خانة Formula اكتب (او انسخ)هذه المعادلة: =AND(ISNUMBER(A1),LEN(A1)=14,COUNTIF($A$1:A1,A1)=1,A1>0) 5- اضغط على OK 6- بالتوفيق (هذا اذا كان العامود المطلوب العمل فيه هو A) يمكنك اختيار النطاق الذي تريده

عفواً تم تحميل الملف الخاطيء 1تنسيق.rar

تم مالجة الامر اليك هذا النموذج special dat.rar

تم معالجة الامر تنسيق.rar

لم افهم عليك ما تريد اعطني مثلاً عن النتيجة التي تريد

ارجو ان يكون المطلوب auto dataval.rar

نحنا العربي مش عم نفهموا مليح

اليك هذا الملف ربما يكون المطلوب تم اقفال الصفحة 1 بواسطة كلمة سر كلمة السر هي salim (الاحرف صغيرة) بعد اقفال الملف يتم حماية الصفحة الياً hiddensheet.rar