ابو ياسر2

الف شكر اخي ياسر خليل علي ردك ومساعدتي و الكود شغال لكن فقط اتمنا تعدلة بحيث يعمل تلقائي من اول ما افتح ملف الاكسل حاولت اعدلة لكن فشل ولم يعمل Private Sub Worksheet_Calculate() Dim c As Range If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Column <> 1 Then Exit Sub If Target.Value = "Yes" Then Target.End(xlToRight).Offset(0, 1).Value = Target.Offset(0, 3).Value End Sub

ألسلام عليكم ورحمة الله وبركاتة اتمنا مساعدتي في كود يقوم بنسخ خلية من العمود D الي الخلية E اذا تغير في العمود A الخلية الي كلمة YES و كل ما تغيرة الخلية في العمود A ألي كلمة YES يقوم بنسخ العمود D الي الخلية التي بعد E و يكون بهذا التكرار المستمر و الكود يعمل بمجرد فتح الاكسل بدون ازار يعمل تلقائي بمجرد فتح الاكسل الملف المرفق فية المطلوب اتمنا اجد من يساعدني copy and paste.rar

ألف شكر اخي EMembers-3 وكل من حاول مساعدتي اخي EMembers-3 الكود يعمل بشكل المطلوب

للاسف لا يعمل الكود بالشكل المطلوب انا اريد نفس الكود الاول الذي وضعتة و نفس عملة لكن مع اضافة انة ينسخ ويلصق العمود H و I بعد العمود KF بتكرار مثل عمل الكود الاول

السلام عليكم ورحمة الله وبركاتة اخواني ممكن مساعدتي في تعديل كود نسخ ولصق Sub oddinho2z() x = 5 Range("BU7:BU169,BV7:BV169").Copy Range("DC7").Select Do Until ActiveCell.Value = "" ActiveCell.Offset(, 1).Select x = x - 10 If x = 0 Then Exit Sub Loop ActiveCell.Select ActiveSheet.Paste End Sub هذا الكود يقوم بنسخ الاعمدة BU وBV و لصقها من بعد عمود DC بترتيب متسلسل اريد ايضاء يقوم بنسخ الاعمدة H و I ولصقها من بعد العمود KF بترتيب ايضاء متسلسل اتمنا مساعدتي

السلام عليكم ورحمة الله وبركاتة هل ممكن تعديل و جعل الكود يعمل من خلال المسارين C:\Program Files او المسار Program Files (x86)

الف الف شكر علي الرد و المساعدة الكود شغال

تمنا مساعدتي في كتابة كود لا يعمل الاكسل حتي يكون برنامج سكاي بي علي جهاز الكمبيوتر

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

عدلة العمود F و الان تعمل الدالة =IF(AND(OR(Q7>=0.05;Q7>=0.015);M7>=0;N7>=0;OR(O7>0.01;O7>0.02);OR(P7>-0.4;P7>-0.6);OR(F7>0);OR(Q7>O7;Q7<O7);OR(AA7<0.25;AA7<0.05));"نعم";"-") ونفس الاستفسار هل توجد طريقة لعدم استخدام OR بشكل متكرر ؟

تخذت الدالة كما ارستلها ونسختها في الاكسل لا تعمل بالشكل الصحيح =IF(AND(OR(Q7>=0.05;Q7>=0.015);M7>=0;N7>=0;OR(O7>0.01;O7>0.02);OR(P7>-0.4;P7>-0.6);OR(F7<10;F7>0;F7<0.5);OR(Q7>O7;Q7<O7);OR(AA7<0.25;AA7<0.05));"نعم";"-") وهل توجد طريقة لعدم استخدام OR بشكل متكرر ؟

اخواني السلام عليكم ورحمة الله وبركاتة طلب مساعدتي في كتابة دالة اريد وضع المعادلتين الشرطين في خلية واحدة هذة الدالة الاولي =IF(AND(Q7>=0.5%;M7>=0%;N7>=0%;O7>1%;P7>-40%;F7<10;F7>0.5;Q7>O7;AA7<25%);"نعم";"-") وهذة الثانية =IF(AND(Q7>=1.5%;M7>=0%;N7>=0%;O7>2%;P7>-60%;F7<10;F7>0.5;O7>Q7;AA7<5%);"نعم";"-") اتمنا منكم مساعدتي

السلام عليكم ورحمة الله وبركاتة تجيني رسالة خطاء Object variable or With block variable not set Error 91 ماهي طريقة حل المشكلة

اخواني السلام عليكم ورحمة الله وبركاتة ممكن مساعدتي في كتابة كود لتعطيل زر F12 في لوحة المفاتيح حاولت كتابة هذا الكود لكن يعطيني خطاء Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) application.onkey {F12}, "" End Sub اتمنا منكم مساعدتي

شكرا وجدت الخطاء الصحيح =AND(O7>Q7;O7>0%;F7>0)

السلام عليكم ورحمة الله وبركاتة اريد تنسيق شرطي تتغير لون الخلية حسب ثلاثة شروط استخدمت هذا الشرط من ثلاثة شروط لكن لم يعمل بشكل سليم =IF(O7>Q7;O7>0%;F7>0) اتمنا مساعدتي

اخواني السلام عليكم ورحمة الله وبركاتة طلب كود يقوم بالترتيب الصفوف حسب الاكبر الي الاصغر لكن بشرطين مثلا لو الخلية V7 اكبر من 10 و الخلية R7 اكبر من 10 يرتب الصفوف حسب الشرطين في الخليتين اتمنا اجد عندكم اجابة لطلبي

ألف الف شكر اخي عبدالله شغال الان

ظهرت رسالة ERORR

اخي عبدالله اتمنا مساعدتي

الف شكر اخي العزيز علي مساعدتك اشتغل المرفق لكن فية مشكلة وهي لو تغيرة اكبر من 1000 مثلا رقم 1 راح ينسخ ويلصق في الخلية المجاورة كذا تمام لكن لو مثلا غيرت الخلية رقم 2 اكبر من 1000 راح ينسخ ويلصق الخلية المجاورة و ايضاء يكرر مرة اخري النسخ و الصق في الخلية 1 مشكلتة الان التكرر في الخلية السابقة عند تغير خلية اخري اكبر من 1000 اتمنا تساعدني وتحل المشكلة

ظهرت رسالة ERORR لم يعمل

هل من الممكن مساعدتي في هذا الملف عندما اغير في Sheet 2 اكبر من 1000 في العمود A يعمل الكود في Sheet1 مشكلة الكود انة عندما اغير الخلية في الورقة رقم 2 لا يعمل في الورقة رقم 1 ويقوم بالنسخ و الصق في العمود الي بجانبة فقط يعمل عندما اكتب يدوي و انقر علي انتر في لوحة المفاتيح في نفس الورقة 1 copy and paste2.rar

اتمنا منكم مساعدتي