م/ مغترب

بارك الله فيكم الفضل يعود لكم ولجهودكم الكريمة

شكرا للاخ حمادة على الرابطة وشكرا للأخ عبادة ( تم الوصول للحل عن طريق رابطة الأخ حمادة )

السلام عليكم ورحمة اللهو بركاته اخواننا الكرام عندي سؤال ان شاء الله سهل انا عندي ملف واريده ان يعمل طبيعي لتاريخ معين ثم يقفل او يتغير محتواه أي لا يعود له فائده بعد التاريخ المحدد وشكرا

ممكن احد يشرح لنا بالتفصيل وشكرا

السلام عليكم ورحمة الله و بركاته أنا مستخدم جديد للأوتلوك وعندي سؤالين لاهل الخبرة س1/ عند القيام بإرسال رسالة لاي شخص مثلا aaa@gmail.com يقوم الاوتلوك بحفظ الايميل ، فاول ما اقوم بإرسال رسالة اخرى لشخص أخر يبدأ ب حرف a يظهر الايميل السابق و انا لا اريده ان يظهر اريد اخفاء او حذف بعض الايميلات نهائيا ؟ س2/ كيف اجعل الاوتلوك أن يفرز الرسائل المستلمة و المرسلة حسب الايميل المستلم او المرسل الى مجلدات مخصصه ؟ وشكرا

أخ حمادة شكرا على ردك لكن استطيع المسح و استطيع الكتابة فوق الخلية الغير فارغة اريد منع العمليتين السابقتين ان امكن وشكرا

السلام عليكم وأنا اتصفح فيديوهات اليوتيوب الخاصة بالاكسيل و جدت هذا الفيديو الخاص بالحماية لكن لا يوجد شرح ولم نستطع تحميل الكود http://www.youtube.com/watch?v=laoOfVtwPXg هل ممكن من المبرمجين شرحه بارك الله فيكم

شكرا على ردك

الاخوة الافاضل هل من مساعدة

السلام عليكم ورحمة الله وبركاته سؤال عند عمل أي برمجة في ملفات الإكسيل وتكون بحاجة إلى ان يعمل الملف بمجرد تشغيله لظروف الحماية فرضاً ( نسخ لصق قص حفظ بإسم حماية ورقة صلاحيات ..........) إذا تم نقل الملف الى جهاز اخر و تكون نسبة الامان مرتفعة لا يعمل فتفشل كل البرمجة هل ممكن عمل كود بأن تعمل البرمجة وخفض مستوى الامان مباشرة أي يعمل على اي جهاز بمجرد فتحة أرجو ان تكون وصلت الفكرة وشكرا

السلام عليكم و رحمة الله و بركاته لأهل الخبرة اريد طريقة تمنع نسخ الملف او سحبه خارج الشبكة ؟ حاولت منع نسخ الملفات الموجوده على الشبكة لكنها لم تنفع معي هل هنالك طريقة لمنع سحبها خارج ملف المشاركة و نسخها وشكرا

Excel 2007 الافضل

أرفقت ملف مثال تقريبي فيه الشرح لأخواننا الكرام وشكرا جزيلا New Microsoft Excel Worksheet.zip

السلام عليكم ورحمة الله وبركاته طلب تعديل على كود الترحيل بحيث لا يرحل كامل الاعمدة بل اعمدة مخصصة الكود يعمل تماما ويرحل كامل الصف بناءا على اسم الورقة + عمود Z انا اريد ان ارحل مثلا عمود A و c و F بناءا على اسم الورقة + عمود Z التعديل على ما هو ملون باللون الاحمر على ما اظن نرجو المساعده بالتعديل Dim S As String Dim R As Integer, RR As Integer, c As Integer, CC As Integer S = ActiveSheet.Name Application.ScreenUpdating = False Range("A10:Z500").ClearContents With æÑÞÉ1 For R = 2 To .Range("Z500").End(xlUp).Row If .Cells(R, "z") = S Then RR = RR + 1 For c = 1 To 25 CC = Choose(c, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25) Cells(RR + 9, c) = .Cells(R, CC) Next c End If Next R End With Application.ScreenUpdating = True End Sub

السلام عليكم ممكن الشرح على الملف وشكرا

السلام عليكم ورحمة الله و بركاته تم إرفاق ملف و شكرا للجميع و للأستاذ عباد على كود التاريخ وجمعة مباركة New Microsoft Office Excel Worksheet.rar

السلام عليكم ورحمة الله وبركاته الى الأخوة الأعزاء الكرام س/1 عندي ملف اكسيل على شبكة و اريد وضع حماية بحيث اسمح لطرف الاخر اضافة بيانات فقط دون تعديل أو حذف او نسخ الملف الى خارج الشبكة س/2 كود او معادلة بحيث عند وصول التاريخ الى 1/1/2014 او 1/1/1435 مثلا أن ينبهني بلون او رسالة حاولت لكن يجب ان ادخله يدوي فيتغيير اللون بناءا على الشرط لكن أريده اوتوماتيكيا يتغير التاريخ كل يوم بناءا عى الجهاز دالة =TODAY() وعند وصوله الى التاريخ المحدد بالكود ان ينبهني بساعة معينه اي الساعة التاسعة يظهر الرسالة او التنبية س3/ عندي 3 طلاب A1:A3 و عند وضع كلمة الاول في B2 مثلا ان ينتقل الصف الى الاعلى اي يتم ترتيب الصفوف تلقائيا بناءا على العمو B الاول الثاني الثالث ...... مباشرة وشكرا وبارك الله فيكم و بمجهودكم

بارك الله فيك ممتاز ممتاز ممتاز

بارك الله فيكم بالفعل المشكلة كانت بإسم الورقة الرئيسية حلت المشكلة

السلام عليكم ورحمة الله وبركاته وجدت هذا الملف للأستاذ / أحمد فضيلة لترحيل وكنت أريد نسخه الى ملف اخر لكن المشكلة ان الخطأ يظهر دائما عند نسخه الى ملف جديد For R = 2 To .Range("AG20000").End(xlUp).Row ممكن من الاخوة شرح سبب الخطأ و كيفية التصحيح مع العلم حاولت على عدة ملفات لكن نفس الخطأ تم إرفاق نفس ملف الأستاذ / أحمد فضيلة وشكرا للجميع كود نقل بيانات مباشرة بدون رز امر.rar

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

السلام عليكم ورحمة الله وبركاته ظهور خطأ بعد الانتهاء من البرمجة و عملها تماما لكن لم اعرف سببه تم ارفاق صورة ثم يتم النقل إلى Module UserForm1.Show End Sub ولا اغير شي وعند إغلاق الملف و فتحه مرة اخرى يعمل وبعد فترة يقف فجأة و اطر الى اغلاقه و فتحة مرة اخرى ماهو السبب هل يوجد ملف خاص بأرقام الاخطاء و حلولها

111.rar

السلام عليكم ورحمة الله وبركاته قمت بنقل ماكرو من ملف الى اخر لكن ظهر عندي خطأ ولم اعرف سببه مع العلم ان راس الجدول يبدأ من A3 اما البيانات تبدأ من الخلية A4 الى نهاية الصفحة Private Sub ComboBox2_Change() Application.ScreenUpdating = False Sheets("Sheet1").Select For i = 4 To Sheets("Sheet1").ER وتم وضع في خصائص ComboBox2 ROWS A4:A1048576 وشكرا

أنا نسخت نفس الصفحة على إكسيل 2007 في جهاز أخر لم تظهر الرسالة نهائيا اما 2010 فظهرت نفس الرسالة هل ممكن ان تكون من إعدادات البرنامج وشكرا