abouelhassan

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

الاساتذة اريد معرفة اين الخطأ فى كود حذف كافة البيانات فى النطاق من a4:j10000 لكافة الشيتات ماعدا ثلاث شيتات data &datab&datac بعد كتابة الباسورد فجأة الكود وقف مع انه كان يعمل واصبح يمسح اول صفحة فقط Sub DelAll() x = InputBox("إدخل الرقم السري لمسح البيانات", "كلمة سر مسح كافة البيانات") If x = "0" Then Dim ws As Worksheet Application.ScreenUpdating = False For Each ws In ThisWorkbook.Worksheets If ws.Name <> "data" And ws.Name <> "datab" And ws.Name <> "datac" Then Range("A5:J10000").ClearContents End If With ws On Error Resume Next On Error GoTo 0 End With Next ws Application.ScreenUpdating = True Else MsgBox " غير مسموح لك بمسح البيانات", vbCritical, "تنبيه": Exit Sub End If End Sub مع خالص احترامى وتقديرى كود مسح كافات البيانات.xlsm

نفس المشكلة حدثت معى والله اخى

مشكور استاذنا بارك الله فيك

ربنا يكرمك يا استاذ سليم اللهم امين بارك الله فيك احترامى

الله يبارك لك استاذ عبدالفتاح حضرتك مبدع بارك الله فيك الكود ممتاز اشكر حضرتك جدا اخيك باحترام

هاهو الملف استاذى ارجو الاطلاع عليه مشكوووور جدا تنسيق شرطى لكل الملف.xlsm

تسلم ايدك استاذنا الفاضل ربنا يحفظك يارب ويديك الصحة والعافية تمام ربنا يبارك لك في اسرتك الكريمة يارب

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

مشكور استاذ الرائد ربنا يحفظك يارب بس كده هيبقى الارقام فى العمود d كثيرة اوى خصوصا انى عاوز اللكود يعمل على العمود بالكامل بس هى فكرة حلوة جدا تسلم يارب استاذ عبد الله المشاركة جميلة وهى المطلوبة بس محتاج اعرف المبالغ التى ادخلتها بمعنى لما اكتب 123 بيكتب الرقم6 انا عايز اقف على الخلبة اعرف ان المبلغ 1+2+3 مع الشكر الجزيل لحضرتك

الاخوة الاساتذة الافاضل هل من كود للجمع فى نفس الخلية بمعنى عندما اقف على a1 واكتب 5 واضغط انتر واكتب رقم 10 فى نفس الخلية اجد انه تم كتابة 15 وعندما اقف على الخلية اجد كأنى عامل معادلة sum يعنى اجد =sum(5+10) مع الشكر الجمع.xlsx

مشكور استاذنا سلمت يمينك

غير الى dd-mm-yyyy

فى كود الفورم انشأ تكست واعرف رقمها وليكن 100 واكتب هذا الكود فى الفورم Private Sub UserForm_Initialize() TextBox100.Text = Date End Sub ثم هذا الكود Private Sub UserForm_Activate() TextBox100.Value = Application.WorksheetFunction.Text(Date, "yyyy/mm/dd") t = 0 End Sub

الله ينور استاذى عبد الفتاح الكود ممتاز هل من امكانية لوضع الكود فى صفحة thisworkbook حتى يتفعل الكود لكل الصفحات فى الحدث chinge بدل من وضعه بموديول وتفعيله بزر اشكر حضرتك رنا يبارك لك والله

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

مرورك كريم استاذى بارك الله فيك

ساعة ديجيتال موجودة على الفورم لمن يحتاجها طبعا الكود منقول مش عارف صاحبه اضعها لمن احتاجها رائعة فعلا احترامى ساعة ديجيتال.xlsm

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

تمام استاذنا الكريم بس التاريخ الى انا كاتبه من 2/1 الى 20/1 هو الى ظهر هل ده معناه انى اكتب تاريخ الى اريد اظهاره مشكوررررررررررر ياباشا ربنا يحفظك يارررررررررررررررب ويخليك لينا اللهم امين

هذا ما يحدث استاذى مع الشكر

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

حضرتك حبيبى ياباشا والله الكود لم ينفذ اضغط على فيلتر وشو لا يحدث شىء لا املك مكان بالشيت لوضع الخليتين الخاصتين بالتاريخ اريد االفلترة او الاخفاء يتم لكل الصفحات بدأ من الصفحة 3 اول صفحتين لا لذلك لجئت لفكرة الفورم ربنا يبارك لك فى كل اسرتك الكريمة وكل احبائك

السلام عليكم اخواتى الاساتذة احتاج كود للفورم لاخفاء الاسطر التى تحمل تواريخ من تاريخ الى تاريخ فى كل الصفحات ماعدا اول صفحتين مع الشكر مثلا اخفاء السطور من تاريخ 2/1/2020 الى 30/1/2020 مع الشكر اخفاء السطور وظهارها بالتاريخ.xlsm

معادلة جميلة استاذ احمد فكرة هايلة بصراحة