أبو يحيى الجبلاوي

جزاك الله خيرا رح حاول بالكود بعدين اخبرك الشرح واضح الله يجزيك الخير بس رح احول اطبق الكود على البرنامج

جزاك الله خيرا رح شوف الدالة وكيفية استخدامها اخي الحبيب لم اجد هذه الدالة في برنامج accses

السلام عليكم ورحمة الله وبركاته بارك الله فيكم وفي عملكم سؤالي للأخوة الأفاضل هو على الشكل التالي موضح بالصور في برنامج الاكسيل عند جمع رقم مع تاريخ تقوم بهذه العملية الدالة edate كما هو موضح بالصورة 11 اريد ان اقوم بنفس العملية ببرنامج الاكسس كما هو موضح في الصورة 22

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

جزاك الله خيرا أخي ياسر دائما بتسعدني باستجابتك السريعة الله يكرمك نفس المشكلة ما زالت قائمة ولكن الكود أصبح أجمل ولكن للأسف مازالت المكشلة ظهور خطأ عندما تكون الخلية a فارغة

السلام عليكم ورحمة الله وركاته الرجاء منكم أيها الأخوة الأفاضل أن تفيدوني انا مبتدئ بالبرمجة وكتبت هذا الكود ولكن ظهرت لي مشكلة الشرح موجود بالصورة وايضا يوجد ملف اكسيل مرفق بيبن ما اطلب وجزاكم الله خيرا Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Or Target.Column = 1 Then Range("c" & Target.Row) = Range("a" & Target.Row).Value * Range("b" & Target.Row).Value Else If Target.Column = 3 And Range("b" & Target.Row) <> Range("c" & Target.Row).Value / Range("a" & Target.Row).Value Then Range("b" & Target.Row) = Range("c" & Target.Row).Value / Range("a" & Target.Row).Value End If End If End Sub abd.zip

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

جزاك الله خيرا لم ينجح الأمر في حال اضفت رمز جديد

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

السلام عليك ورحمة الله وبركاته أخواني الأكارم الأعزاء سؤالي هو على الشكل التالي : هل يمكنني تغيير تنسيق خلية بحسب رمز أضعه في خلية أخرى مع امكانية تغيير التنسيق لتغيير الرمز في الخلية كما هو موضوع في الصور التالي : سؤال بالتنسيق.zip

أخي طارق جزاك الله خيراً وبارك الله فيك سؤال آخر هل يمكنن ايقاف خاصية اللصق أيضا في نفس الصفحة

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

الحمد لله تم حل الموضوع بإضافة صغيرة يمكن ليست بإحترافية بس هيك طلع معي Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row > 1 And Target.Column = 6 Then Application.EnableEvents = False If Target.Value = 0 Then Range("Z1").Value = "@#" Else Range("Z1").Value = Target.Value End If Application.EnableEvents = True End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 1 And Target.Column = 6 Then Sheets("data").Columns(3).Replace What:=Range("Z1").Value, Replacement:=Target.Value, LookAt:=xlWhole End If End Sub

السلام عليكم هل من رد من أحد الاخوة

السلام عليكم ورحمة الله وبركاته أخي ياسر الكود شغال وتمام بس ظهرت لدي مشكلة اريد استثناء الفراغات من الكود بمعنى انه اذا اردت ان اضيف خلية جديدة على list يقوم بتغيير جميع الخلايا الفارغة في data الى نفس قيمة هذه الخلية وانا لا اريد هذا الأمر ان يحدث ارجو منك التكرم في حل هذا الموضوع

نعم تم عمل الكود بشكل عكسي بارك الله فيك وبالاخوة Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row > 1 And Target.Column = 6 Then Application.EnableEvents = False Range("Z1").Value = Target.Value Application.EnableEvents = True End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 1 And Target.Column = 6 Then Sheets("data").Columns(3).Replace What:=Range("Z1").Value, Replacement:=Target.Value, LookAt:=xlWhole End If End Sub

اخي ياسر الكود يعمل بالمقلوب انا اريد عند التغيير في الصفحة list انا تتغير جميع المعلومات التي لها نفس القيمة في الصفحة DATA

اعتذر منكم الملف مرة اخرى تعديل تلقائي للبيانات.zip

السلام عليكم ورحمة الله وبركاته أخواني الكرام الأفاضل حياكم الله وبعد أرجو منكم مساعدتي فيما يلي : لدي ملف اكسيل من 2 sheets الأول يوجد فيه data وثانية هو محتويات لعمل خلية كقائمة اريد عند تعديل محتويات القائمة ان يتم تعديل جميع الخلايا ذات نفس القيمة ب sheets data أرفق لكم صورة توضيحية + ملف مرفق تعديل تلقائي للبيانات.zip

أخي أبو عيد لو سمحت كيف هل يمكنني تحديد الخلية الأولى الفارغة بعد اخر خلية مكتوبة ؟ Sub gotoo() Sheets("اللإيردات").Activate Range("D" & Rows.Count).End(xlUp).Select End Sub هذا الكود يحدد الخلية الأخيرة الممتلئة هي يمكن تحديد الخلية التي تليها ؟

بارك الله فيك أخي أبو عيد هذا المطلوب سأطبق الكود على باقي الصفحات جزاك الله خيرا انت والأخ ياسر خليل دائما تُجيبون فتُجيدوون الإجابة

اخي الكريم الملف بالمرفقات المشكلة على الشكل التالي : لدي بالصفحة مسجل حوالي 1000 سطر لما اخرج من الصفحة واعود اليها يتم تحديد الخلية a1 مما يضطرني للنزول 1000 سطر حتى يتم الوصول للسطر الاخير لتكملة التسجيل انا سالت ان كانت توجد طريقة لظهور آخر سطر بشكل تلقائي عند الدخول للصفحة انتقال الارتباط التشعبي.zip

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

السلام عليكم ورحمة الله وبركاته لدي برنامج صغير للصندوق على ملف اكسيل انا واضع فيه ازرار للذهاب للصفحات بربطهم عن طريق ارتباط تشعبي سؤالي هو انه كلما خرجت من الصفحة ورجعت لها مرة اخرى ترجع الصفحة للخلية A1 وهذا يسبب مشكلة لانه يوجد تسجيل اكتر من 1000 سطر هل يوجد طريقة لجعله يذهب الى اخر سطر مسجل عند الدخول للصفحة وهذه صورة تبين المطلوب بارك الله فيكم :

حياكم الله وبارك فيكم