samycalls2020

هذا الملف به الكود السابق ذكره .. قمت بتحديد مدة زمنية كبيرة نسبياً فعند الضغط على زر الماكرو ستجد النسخ الى ملف طباعة تجاوز ال 500 صف .. كود نصفية ونفل.rar

السلام عليكم .. هذا كود يقوم بتصفية على تاريخ بداية فى B3 ونهايه فى B4 وذلك فى ورقة الخزينة تم يقوم بنقل التصفية الى ورقة طباعة .. أحياناً تكون التصفية مثلاً 800 صف ولكن الجدول الذى بنقل اليه فى ورقة طباعة 500 صف فقط . فعند اعطاء الأمر أجد حوالى 300 صف خارج الجدول فى الأسفل فى ورقة الطباعة . المطلوب تحديد قبول ورقة طباعة 500 صف فقط . واعتقد هذا فى As Long Sub للنسخ() Dim ws As Worksheet Dim sh As Worksheet Dim lr As Long Set ws = Sheets("الخزينة") Set sh = Sheets("طباعة") Application.ScreenUpdating = False If Range("B2") = True Then Range("الجدول3").AutoFilter Field:=2, Criteria1:=">=" & [B3], Operator:=xlAnd, _ Criteria2:="<=" & [B4] sh.Range("E8:O507").ClearContents lr = sh.Cells(Rows.Count, 2).End(xlUp).Row + 1 ws.Range("D12:N11011").SpecialCells(xlCellTypeVisible).Copy sh.Range("E" & lr).PasteSpecial xlPasteValues Application.CutCopyMode = False Application.ScreenUpdating = True End If End Sub

مشكوووووووووووووور أخونا الفاضل / سليم

السلام عليكم .. الملف المرفق به كود تصفية محدده بتاريخ بداية وأخر للنهاية . هل من الممكن ادخال من c7 الى d8 فى الكود والأستغناء عن المعادلات تصفية محددة المدة.rar

للرفع

سبحان الله وبحمده .. سبحان الله العظيم

Sub ss() 'يعمل على ورقة واحده بعد أن يوضع فى حدثها' Private Sub Worksheet_Change(ByVal Target As Range) Sheets("DD").Protect _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ AllowFiltering:=True, _ AllowSorting:=True, _ UserInterfaceOnly:=True End End Sub DD اسم الورقة محاوله لقصر الكود على ورقه معينه مع إلغاء الباس ورد .. جربوه وأفيدونى ..

للرفع

هل أصبح الموضوع أكثر وضوحاً .. أم لم أوفق فى شرح ما أريد ..

الأخوة الكرام . السلام عليكم . هذا الكود يختص بمنع الحماية من أعتراضها لأى ماكرو موجود بالملف من التنفيذ .. أى إن كان هناك ماكرو مثل ماكرو التصفية مثلاً الموجود بالملف المرفق فأنه لايعمل إذا كانت الورقة محمية .. أما هذا الكود يحمى الورقة وفى نغس الوقت يعمل على منع الحماية من أعتراضها لتنفيذ الماكرو .. وكل ما طلبته وهو واضح جداً .. إلغاء الباس ورد من الكود .. ؟ وأيضا الكود يحمى جميع أوراق الملف For Each MySheet فهل يمكن تحديد أوراق معينة لحمايتها ؟ ولتوسيع الاستفاده للأخوة هناك طريفتين للكود أولهما كود الحماية فى ماكرو الفتح وهو المستخدم فى حالتنا هذه (Sub AUTO_OPEN) Sub AUTO_OPEN() MyPassword = "123" For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ Password:=MyPassword, _ DrawingObjects:=False, _ Contents:=True, _ Scenarios:=True, _ UserInterfaceOnly:=True, _ AllowFiltering:=True, _ AllowSorting:=True Next MySheet End Sub ثانيهما كود الحماية يوضع فى حدث فتح الملف Private Sub Workbook_Open() Private Sub Workbook_Open() MyPassword = "123" For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ Password:=MyPassword, _ DrawingObjects:=False, _ Contents:=True, _ Scenarios:=True, _ UserInterfaceOnly:=True Next MySheet End Sub وهذا ما أمدنا به أخوتنا فى المنتدى

للرفع

وعليكم السلام .. هذا هو الكود المقصود Sub AUTO_OPEN() MyPassword = "123" For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ Password:=MyPassword, _ DrawingObjects:=False, _ Contents:=True, _ Scenarios:=True, _ UserInterfaceOnly:=True, _ AllowFiltering:=True, _ AllowSorting:=True Next MySheet End Sub المرفق به كود لعدم اعتراض الحماية لتنفيذ الماكرو وهو ما أمدنا به الأساتذة الأجلاء أكرمهم الله. هذا الكود يحتوى على باسورد لألغاء الحماية 123 .. هل من الممكن إلغاء الباسورد ؟ وأيضا الكود لجميع أوراق الملف For Each MySheet فهل يمكن تحديد أوراق معينة ؟

السلام عليكم .. المرفق به كود لعدم اعتراض الحماية لتنفيذ الماكرو وهو ما أمدنا به الأساتذة الأجلاء أكرمهم الله. هذا الكود يحتوى على باسورد لألغاء الحماية 123 .. هل من الممكن إلغاء الباسورد ؟ وأيضا الكود لجميع أوراق الملف For Each MySheet فهل يمكن تحديد أوراق معينة ؟ كل الشكر .. اعتراض الحماية لتنفيذ الماكرو.rar

كل الشكر للأخ الكريم ياسر وكل كن شارك

هذه محاوله تعديل لكود3.rar

كل التقدير للأخ الكريم / ياسر .. الذى دائماً ما يكون سباق بالمشاركة والخير للأخرين .. أولاً : لقد قمت بوضع الكود وهو يعمل على الإيقاف فى حالة خلو k9 من اسم الحساب .. هذا تمام التمام وهل لى أن اطلب شئ لهذا الكود يضف مزيد من الأستفادة .. وهو مع الإيقاف يعطى فى k8 جملة ..من فضلك أدخل اسم الحساب . ثانيا : المقصود بالنقطة الثالثة أن يكون حساب ( البنك ) مثلاً بديل افتراضى فى حالة خلو k9 من اسم حساب كل الشكر .. تعديل لكود2.rar

السلام عليكم .. الأخوة الأعزاء .. الرجاء مشاركتى هذا الموضوع .. تعديل لكود.rar

محاولة أخرى تاريخ اليوم3.rar

حاولت التوصل الى حل .. أرجوا أن أكون قد وفقت تاريخ اليوم2.rar

كل الشكر والتقدير لشخصكم الكريم

السلام عليكم .. أخى الكريم .. لا داعى لشدة اللهجه .. حفظكم الله .. سؤالى الأخير الذى طرحته على اساس أن الكود فى ThisWorkbook وليس هناك أى مانع وإن قمت أنت بتجربة الملف ستجد ما ذكرته فى سؤالى .. تقبل تحياتى

شكراً لك .. على اهتمامك ومتابعتك .. هناك شئ أخر .. لو قمنا بحفظ الملف على أى ورقة غير الورقة الأولى ثم أغلقنا الملف .. ثم أعدنا فتحه مره أخرى سيعطى التاريخ فى E6 فى أى ورقة أغلقنا عليها الملف بعد عمل الحفظ . هل من حل لهذا .. وشكراً

للرفع

اخى الفاضل أ / محمد هل يمكن وضع الكود فى حدث الورقة نفسها ..

السلام عليكم .. هل يمكن عمل كود لتاريخ اليوم عند فتح الملف .. بحيث يمكن تغير التاريخ بعد ذلك .. ويعود عند فتحه مرة أخرى تاريخ اليوم.rar