إبراهيم ابوليله

الاخوه الكرام تحيه طيبه وبعد عندى ششيت يتم احتساب فيه اسعار النقل ولكن قد يحدث تكرار لنفس التغيله فى نفس اليوم وفى نفس امر الشغل ولذلك فانا اريد عند حدوث هذا التكرار ان يتم تقسيم سعر التشغله على عدد التشغيلات المكرره كما هو موضح بالمرفق COMB.rar

الاخ عبد الله بارك الله فيك ولكن تظهر معى هذه الرساله خطأ يقف على ContColmn = sRng.Columns.Count

اخى الكريم رجب مازلت منتظرا شرح الكود بارك الله فيك

للرفع

الاخ رجب عمل رائع وبارك الله فيك ولكنى بالفعل اريد شرح وافى للكود بارك الله فيك وارجو الا تحرمنى من الفهم الوافى للكود لاننى بالفعل والله ساحتاج لافعل مثل هذا الكود كثيرا فى عملى واعتقد ان كل الاخوه الذين يتابعون الموضوع سوف يستفيدون كثيرا انشاء الله

للرفع

الاخ رجب مشكورا على الكود الجميل وبارك الله فيك

الاخ الخالدى بارك الله فيك ولكن ارجو شرح الكود

الاخ رجب عزرا على الاطاله فى هذا الموضوع ولكنى حينما اردت التغير فى رقم الصف ليصبح رقم 9 بدلا من رقم 11حدث خطأ ارجو الافادهCopy of 3.rar For i = 9 To [A10000].End(xlUp).Row

الاخ رجب فعلا هذا ما اريد ولقد عرفت ماكنت اخطأ فيه ولكن مازلت انتظر من شرح وافيا للكود بارك الله لك وفيك وجزاك خيرا عن علمك اللهم اميين

للرفع

الاخ رجب انا لا اريد ان ادمج الكودين ولكن كل مار اريد هو استخراج البيانات التى يقوم بها كل كود على حده ولا اعرف كيفيه التنفيذ لاحظ المرفق3.rar

الاخ الكريم حاول تقليل مستوى الامان فى الاكسل

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

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

الاخ رجب كل مايصدر منك من ردود والله تستحق المتابعه فما اجمل واروع حلولك بالمعادلات وما اروعها اكثر واكثر باالاكواد كلنا نتعلم منك وندعو الله ان نصل الى مستواكم باذن الله

الاخ رجب اسف على الاطاله ولكن قد تفضلت سابقا بعمل كود اخر وانا ايد اضافته مع هذا الكود ليصبح كود واحد فكيف يكون ذلك الكود الاول Private Sub Worksheet_Selectionchange(ByVal Target As Range) Dim cl As Range For I = 9 To [A10000].End(xlUp).Row Cells(I, 3) = Mid(Cells(I, 1), InStr(Cells(I, 1), "/") + 1) Next End Sub والكود الثانى Private Sub Worksheet_Selectionchange(ByVal Target As Range) Dim cl As Range For i = 10 To [A10000].End(xlUp).Row y = Mid(Cells(i, 1), InStr(Cells(i, 1), "/") + 1) & "/" & _ Mid(Cells(i, 1), InStr(Cells(i, 1), "/") - 4, 2) Cells(i, 5) = y Next End Sub

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

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

الاخوه الافاضل حلول رائعه ولكن هذه طريقه اخرى باستخدام داله vlookupالرتب والدرجات.rar

للرفع

للرفع

الاخ بن علية الاخ عبد الله الاخ الخالدى الاخ دغيدى بارك الله فيكم وكن لى طلب بسيط انشاء الله وهو كيفيه تحديد نطاق التسلسل ليشمل خلايا محدده بدلا من عمود بالكامل بمعنى ان يظهر التسلسل فى الخلايا من A4 الى A20 فقط

الاخ عبد الله الاخ الخالدى الاخ دغيدى الاخ بن علية مشكورين على ردوودكم ولكن لى طلب بسيط انشاء الله وهو كيف احدد نطاق لعمل التسلسل بدلا من العمود الاول باكمله ان يكون من الخليه A4 الى الخليه A20 فقط بحيث اننى حينما اكتب اى رقم ابتداء من الخليه B21 وما بعدها لا يعطينى تسلسل فى الخليه A21 وما بعدها وذلك لاننا سنكون حددنا فى الكود نطاق لعمل التسلسل وهو من A4 الى A20

الاخ رجب بارك الله فيك ولكنى اريد اظهار المجموع بالكود وليس عن طريق المعادله كما اتمنى ان يظر المجموع فى اول سطر بعد اخر البيانات التى تظهر بمعنى اننا لو قمنا باستخراج البيانات وكانت عباره عن ثلاث سطور فقط يكون المجموع فى السطر الرابع ولو ان استخراج البيانات كانت عباره عن 7سطور مثلا يكون المجموع فى السطر الثامن وهكذا هل هذا ممكن