samycalls2020

للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع للرفع

للرفع كل عام وأنتم بخير

للرفع

للرفع جزاكم الله خيراً

للرفع أكرمكم الله

للرفع

للرفع

السلام عليكم .. كود بسيط لنسخ خلية Sub S() Sheets("WW").Range("D7").Value = Range("H10").Value End Sub بتغير الخلية H10 والضغط غلى زر الماكرو تنسخ الخلية H10 فى الخلية D7 فى ورقة WW هذا الكود البسيط يعنى أن الخلية D7 فى ورقة WW تساوى الخلية H10 فى ورقة GG ** فلو أردنا استبدال الخلية المعطى H10 فى ورقة GG بخلية أخرى فى ملف أخر .. وليكن خلية C8 فى ورفة BB فى ملف CUSTOMER .. فكيف يكون الكود ؟؟ ** أو العكس استبدال الخلية المستقبل D7 فى ورقة WW بخلية أخرى فى ملف أخر .. وليكن خلية C8 فى ورفة BB فى ملف CUSTOMER .. فكيف يكون الكود ؟؟ CUSTOMER.rar

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

بفضل الله .. وبمساعدة أخونا الكريم ياسر .. أعتقد أنه تم عمل الماستر باسورد وأن أراد أحد المشاركة بفكرة أو رأى فمرحباً به .. ماستر باسورد.rar

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

السلام عليكم الكود يعمل ولكن عند فتح الملف تظهر رسالة كما فى الصورة وبالضغط على END تختفى الرسالة وتجد أن الكود يعمل * هل من المكن جعل هذه الرسالة لاتظهر .. أو اصلاح الخظأ بالكود الرجاء المساعده أيها الأخوة .. كم ناديت .. ولا مجيب .. إن الله في عون العبد ما دام العبد في عون أخيه Sub AUTO_OPEN() MyPassword = Sheets("SS").Range("A1") For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ Password:=MyPassword, _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ AllowFormattingColumns:=True, _ AllowFiltering:=True, _ AllowSorting:=True, _ UserInterfaceOnly:=True Next MySheet End Sub عملاء.rar

للرفع أرجوا المساعدة أخى الكريم / ياسر

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

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

تحديد التصفية بعدد معين من الصفوف هل يمكن عمل كود لتصفية وتحدد فيه عدد الصفوف الناتجة .. بمعنى تصفية معينة لعمود فى جدول ناتجها 100 صف . هل يمكن ان يكون ناتجها الخمسين صف الأولى فقط مع اعطاء جمله تنبيهيه بعدد إجمالى صفوف التصفية فى أى خليه .. طرح هذه الفكره لعدم وصولى الى حل فى موضوع " تحديد مدى النسخ "

للرفع

للرفع

السهل الممتنع .. أخونا ياسر وأخونا سليم .. بارك الله فيكما ..

للرفع

للرفع

للرفع

السلام عليكم .. معنا كود يقوم بتصفية لمده زمنيه لتاريخ بداية فى B3 ونهايه فى B4 وذلك فى ورقة الخزينة تم يقوم بنقل نسخة من التصفية الى ورقة طباعة .. أحياناً تكون التصفية مثلاً 800 صف ولكن الجدول الذى بنقل اليه فى ورقة طباعة 500 صف فقط . فعند اعطاء الأمر أجد حوالى 300 صف اسفل الجدول فى ورقة الطباعة . الرجاء .. تحديد مدى النسخ فى ورقة طباعة 500 صف فقط . هل As long لها علاقة تعديل مدى النسخ.rar

أفيدونى يرحمكم الله للرفع

للرفع