۩◊۩ أبو حنين ۩◊۩

السلام عليكم اخى الحبيب إبراهيم ابوليله فعلا هذا هو المراد ... ولاكنى اعجز عن تطبيقه على الملف الخاص بى فما الحل

هل يمكن عمل كود باضافه صف عند الضغط على الرز الاحمر اسفل اخر صف مكتوب به وهو الصف 19وهكذا على ان يكون بنفس الفرمات والشروط ولا يؤثر على المعادلات التى فى الخلايا w4 الى w7 كود اخر يقوم بنفس الامر عند الضغط على الرز الازرق على ان يكون اضافه الصف اسفل اخر صف مكتوب به وهو الصف الصف 39 وهكذا على ان يكون بنفس الفرمات والشروط والشروط ولا يؤثر على المعادلات التى فى الخلايا w24 الى w27 ارجو المساعده ترقيه.rar

السلام عليكم الاخ الحبيب حماده عمر رجاء توضويح M = MsgBox("C? ?C?E ?I?? ???E C????? ?C?UU ??? ???", vbCritical + vbYesNo, "E???I") If pasword = InputBox("CII? ???E C????? ??C", "???E C?????") Then MsgBox "??? ?I?? C??? ??E? C?E??C??", vbCritical, "I??" لانها لا تظهر بصوره مقروئه جزاك الله خيرا

السلام عليكم اخى العزيز طارق محمود الكود يعمل بصوره جيده جدا ويبقى طلب اخير ... هل يمكن التغلب على نبض الشاشه .. المترتب على الاخفاء او الاظهار واذا ان ان اغير الشرط الذي علي أساسه يخفي الخلية ويظهرها أن خلية العمود M شرطها أن تحتوي علي 0 ... ويكون الشرط 1 تجنباً لاى خطاء ناتج عن ان اى خليه فى العمود M يكون محتواها 0 سيكون التغير If Range("M" & i) <> 0 Then GoTo 10 كهذا If Range("M" & i) <> 1 Then GoTo 10 سلمت يداك وجعله الله فى ميزان حسناتك ان وجميع من شارك فى الموضوع

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

السلام عليكم الاخت الفاضله ام عبد الله جزاكى الله خيرا ...وحعل سعيك فى ميزان حسناتيك الا ان المطلوب كاتى عندما تكون الخليه M 1 تساوى صفر يتم اخفاء هذا الصف بالاضافه الى 39 صف اسفله مباشرة اى الى الصف 40 عندما تكون الخليه M 41 تساوى صفر يتم اخفاء هذا الصف بالاضافه الى 39 صف اسفله مباشرة اى الى الصف 80 عندما تكون الخليه M 81 تساوى صفر يتم اخفاء هذا الصف بالاضافه الى 39 صف اسفله مباشرة اى الى الصف 120 وهكذا الى انتهاء 120 كارت المتواجدين ويمكن اظهار جميع الصفوف المخفيه مره اخرى عند الضغط على الزر مره اخرى هذا هو المطلوب

السلام عليكم ارجو المساعده اكرمكم الله للرفع للرفع للرفع

السلام عليكم اخى شوقى غريب دائما مبدع... مصدر تعليم لنا جميعا كون الكود مرتبط ب SheetSelectionChange فذلك ابداع .. لان الكود سوف يعمل عند اى تغير يحدث فى ذلك اليوم If Date = CDate("10/04/2014") Then اما اذا اردنا ان يعمل الكود ابتداء من تاريخ محدد If Date >= CDate("10/04/2014") Then وجزاك الله خيرا على مساهماتك فى وضع حلول ابداعايه دائما الى الامام

السلام عليكم اخى ابو اياد حل اخر بالكود الرائع لاخى شوقى غريب تم وضع كود اخى الحبيب شوقى غريب فى THISWORKBOOK وليس فى مديول الكود يعمل بعد مرور تاريخ 25/02/215 وتم تجربتة اكثر من مره ويعمل بصوره جيده كيف يمكن تطبيق هذا الكود3.rar

السلام عليكم اخى الحبيب او اباد الكود يعمل بصوره جيده المطلوب تعير التاريخ من (#1/15/2015#) الى (#1/15/2014#) فى THISWORKBOOK واغلق الملف ثم فم بفتحه مره اخرى او عن طريق تاريخ الجهاز. كيف يمكن تطبيق هذا الكود2.rar

السلام عليكم اخى الحبيب ابو اياد سوف يعمل الكود فى شهر يناير يوم 15 سنه 2015 ارجو ان يفى بالامر كيف يمكن تطبيق هذا الكود2.rar

السلام عليكم اخى الحبيب ابو اياد استعانه بالكود الجميل الذى اضافه اخى الحبيب شوقى ... جزاه الله كل الخير تم اضافه لكى يقوم الكود بفك الحمايه ... وثم وضع الحمايه مره اخرى وهى 123 ارجو ان يفى بالامر Sub Test() Application.ScreenUpdating = False On Error Resume Next ActiveSheet.Unprotect "123" For Each cl In ActiveSheet.UsedRange If cl.HasFormula Then cl.Value = cl.Value ActiveSheet.Protect "123" Next End Sub كيف يمكن تطبيق هذا الكود.rar

السلام عليكم الاخ الحبيب شوقى غريب ... جزاك الله خيرا على اهتمامك ... اخى العزيز عن تطبيق الكود ... يظل الكود قيد التنفيذ ولا ينتهى واجد الشاشه تنبض ويستغرق دقيقه ونصف الا ان لا يتم شئ ... لا تختفى الصفوف المطلوب لن تختفى مرفق الملف بعد اضافه الكود ارجو المساعده كود اخفاء واظهار2.rar

للرفع

السلام عليكم اخى الحبيب شوقى غريب اخى الحبيب حماده عمر هلى يمكن جعل الكود عن طريق رز .... ويكون الكود به حاصيه الاخفاء والاظهار ( كود واحد ) ارجو المساعده جزاكم الله خيرا

اسأل الله الكريم رب العرش العظيم ان يشفي والدتك ويعافيها شفاء لا يغادر سقما اسأل الله الكريم رب العرش العظيم ان يشفي والدتك ويعافيها شفاء لا يغادر سقما اسأل الله الكريم رب العرش العظيم ان يشفي والدتك ويعافيها شفاء لا يغادر سقما اللهم اشفها شفاء ليس بعده سقما ابدا..اللهم خذ بيدها اللهم احرسها بعينك التى لا تنام .. و اكفها بركنك الذى لا يرام و احفظها بعزك الذى لا يُضام . . و ارحمها بقدرتك عليها ّ.. أنت ثقتها و رجائها يا كاشف الهم . يا مُفرج الكرب يا مُجيب دعوة المُضطرين .اللهم البسها ثوب الصحة والعافية عاجلا غير اجلا يا أرحم الراحمين.. اللهم اشفي والدة اخينا واستاذنا الاخ الحبيب رجب جاويش اللهم آمين .. اللهم آمين .. اللهم آمين

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

للرفع

السلام عليكم اخى الحبيب شوقى ربيع .... اخى الحبيب حماده عمر .... هل يمكن جعل الكود عن طريق زر بدلا من CommandButton لانه يوجد 12 شيت واريد ان اطبق الاخفاء والاظهار عليهم من خلال زر فى كل شيت على اساس ان زر واحد يقوم بعمليه الاخفاء وعند الظغط عليه مره اخرى يتم الاظهار **** ملحوظة عن استخدام كود الاظهار ... توميض الشاشه .. وتنبض حتى ينتهى الكود من العمل مثل هذا الكود Sub dahmour() If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData Else Range("D3:D" & Cells(Rows.Count, "D").End(xlUp).Row).AutoFilter field:=1, Criteria1:="<>0", visibleDropDown:=False End If End Sub

السلام عليكم الاخ العزيز ضاحى الغريب هل يمكن اضفه الشريط لاى كود ... يظهر عن تنقيز الكود وكيف جزاك الله خير

السلام عليكم اخى الحبيب شوقى ربيع .... اخى الحبيب حماده عمر .... هل يمكن جعل الكود عن طريق زر بدلا من CommandButton لانه يوجد 12 شيت واريد ان اطبق الاخفاء والاظهار عليهم من خلال زر فى كل شيت على اساس ان زر واحد يقوم بعمليه الاخفاء وعند الظغط عليه مره اخرى يتم الاظهار **** ملحوظة عن استخدام كود الاظهار ... توميض الشاشه .. وتنبض حتى ينتهى الكود من العمل مثل هذا الكود Sub dahmour() If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData Else Range("D3:D" & Cells(Rows.Count, "D").End(xlUp).Row).AutoFilter field:=1, Criteria1:="<>0", visibleDropDown:=False End If End Sub

السلام عليكم اخى الحبيب شوقى ربيع .... جزاك الله خيرا سلمت يداك ... تم الامر بصورة جيده اخى الحبيب حماده عمر .... جزاك الله خيرا

السلام عليكم يرجاء شرح كيفيه عمل امر CommandButton لانى لم اعمل به من قبل جزاكم الله خيرا

السلام عليكم اخى العزيز شوقى غريب ... الاخ الفاضل حماده عمر جزاكم الله خيرا .... تم الامر لجعل الامر بصوره افضل ... خل يمكن جعل الامر بكود واحد ... بمعنى الضعط على الزر يخفى الصفوف .... ثن الضغط على الز مره الزر مره اخرى يظهر الضفوف المخفيه ... وكيف الامر اذا ارت ان يعمل الكود على اكثر من شيت جزاكم الله كل الخير على المساعده

السلام عليكم اخى االعزيز شوقى مع الاسف تم تغير المطلوب ليصبح الامر على اساس ان اسم الشيت لدى اسمة 1 الا انه لم تعمل ظهر خطاء اخر Dim Lr As Long, I As Long Sub Test1() ' áÇÎÝÇÁ ÇáÕÝæÝ ÚäÏ ÊÍÞíÞ ÇáÔÑØ 1 Lr = .Cells(.Rows.Count, 1).End(xlUp).Row For I = 1 To Lr Step 40 If .Range("M" & I) = 0 Then Rows(I & ":" & I + 39).EntireRow.Hidden = True End If Next End With End Sub Sub Test2() ' áÇÖåÇÑ ÇáÕÝæÝ ÇáãÎÝíÉ 1 Lr = .Cells(.Rows.Count, 1).End(xlUp).Row For I = 1 To Lr If Rows(I).EntireRow.Hidden = True Then Rows(I).EntireRow.Hidden = False Next End With End Sub ارجو اضافه الكود على المرفق جزاك الله خير