abouelhassan

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

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

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

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

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

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

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

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

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

تظهر عندى صحيحة راجع اعدادات اللغة من كنترول بانل

فكرة رائعة استاذنا الرائد سلمت يمينك فعلا جميلة ومفيدة

الملف محمى بباسورد اخى اسم المستخدم ayman الباس 123

تفضل فتح صفحة انترنت بالفورم.xlsm

شاهد هذا الموضوع عله يفيدك

للرفع رفع الله مقداركم

جرب الريجيسترى التالى عله يفيدك Excel_11.rar وجرب الكود التالى للاستاذ محمد طاهر ان شاء الله تتحل المشكلة Sub Enable_All_Right_Click_Menus() 'This will enable all BuiltIn Command bars Dim Cbar As CommandBar For Each Cbar In Application.CommandBars Cbar.Enabled = True Next End Sub

ربنا يبارك لك استاذ سليم

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

الملف يعمل لدى وزر تكبير وتصغير تمام تواتي 31.xlsm

نفس مهمة الفورم بالمعادلات اتمنى تعجبك USER_FORM - Copy.xlsm

تفضل USER_FORM - Copy.xlsm

تفضل تواتي 31.xlsm

اخواتى هذا الكود اهدانى اياه الاستاذ ياسر خليل موسوعة الاكسيل يقوم بترحيل البيانات الى الصفحات المختارة بقائمة منسدلة فى سطور الى عمود اختار العمود المرحل اليه من قائمة منسدلة موضح بالملف التعديل المطلوب هو بدل ما اكتب التاريخ ورقم المستند فى كل سطر تحديد خلية واحدة اكتب بها التاريخ وخلية اكتب فيها رقم المستند واختار الصفحات عادى من كل سطر واضيف المبالغ فيتم الترحيل الى كل الصفحات Sub Test() Dim x, ws As Worksheet, sh As Worksheet, sName As String, lr As Long, r As Long, m As Long Application.ScreenUpdating = False Set ws = ThisWorkbook.Worksheets(1) lr = ws.Cells(25, 1).End(xlUp).Row For r = 3 To lr sName = CStr(ws.Cells(r, 5).Value) If Evaluate("ISREF('" & sName & "'!A1)") Then Set sh = ThisWorkbook.Worksheets(sName) m = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1 x = Application.Match(ws.Range("G2").Value, sh.Rows(1), 0) If Not IsError(x) Then sh.Cells(m, 1).Resize(1, 4).Value = ws.Cells(r, 1).Resize(1, 4).Value sh.Cells(m, x).Value = ws.Cells(r, 6).Value End If End If Next r Application.ScreenUpdating = True Range("A3:f24").ClearContents MsgBox "Done...", 64, "" End Sub اخيكم بحاجة للمساعدة فى هذا الموضوع مع الشكر تعديل كود الترحيلل بتثبيت التاريخ ورقم المستند.xlsm

شكر وتقدير واحترام استاذنا

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