طالب مدرسة أوفيسنا

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

السلام عليكم ورحمة الله وبركاته المطلوب بالمرفقات مع الشكر نموذج.rar

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

السلام عليكم المطلوب تعديل هذا الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("A2").Value < Range("B2") Then Range("B2").ClearContents End If If Range("A3").Value < Range("B3") Then Range("B3").ClearContents End If End Sub طريقة عمله يقوم اذاكانت الخلية A اصغر من الخلية B يقوم بمسح الخليه B الكود يعمل بشكل جيد ولكن متعب وكبير لكل خليه IF شرطية بعمنى A2 بشرط و A3 بشرط اخر وكل ما زادات الخلايا زادت الشروط اريد منه جمعها بشرط واحد مع الشكر

الف شكر استاذي الفاضل

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

هل يمكن اضاقة عمود اخر لهذا الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Long LR = Cells(Rows.Count, "A").End(xlUp).Row - 9 If LR <= 0 Then LR = 1 With ورقة2 .Range("H1").Resize(10, 1).Value = Cells(LR, "A").Resize(10, 1).Value End With End Sub مثال هو الان يقوم بالبحث في اخر خلية في العمود A ويحسب قبلها 9 خلايا ثم يرحلها للعمود H المطلوب يقوم بنفس العمليه للعمود B ويرحل للعمود I وايضا نفس العملية للعمود C ويحلها للعمود J مع الشكر

شكرا لوقتك تم التعديل وعمل بهذا الكود ويحدث مباشره Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Long LR = Cells(Rows.Count, "A").End(xlUp).Row - 9 If LR <= 0 Then LR = 1 With ورقة2 .Range("H1").Resize(10, 1).Value = Cells(LR, "A").Resize(10, 1).Value End With End Sub

يتم تعبئة العمود a عن طريق استيراد بيانات خارجية من ملف اخر اكسل يتم استيراد البيانات تلقائيا مع فتح الملف عن طريق خصائص استيراد بيانات خارجية

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

للرفع

المطلوب 1- الترحيل يكون تلقائي بدون الضغط على الزر 2- هو الان ينسخ اخر خليه ويرحلها اريد ان ينسخ اخر 10 خلايا مع الاخذ في الاعتبار ان النطاق متغير مثلا الان 40 خليه قد يكون متغير الى 70 او اكثر بمعنى ان لايحدد نظاق يذهب للخليه الاخير ثم يحسب اعلى منها 10 خلايا ويرحلها مع الشكر الملف والكود مرفق ترحيل.rar

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

السلام عليكم مطلوب معادلة اكبر قيمة في المجموع من خلية محدده مثال الخلية a1 قيمتها 16 والنطاق Y5:Y11 قيمته 12و15و17 20 اريد معادلة تطبع القيمة 17 اكبر خانه مباشره للخلية وايضا معادلة تطبع القيمة 15 اصغر قيمة مباشره للخلية مع الشكر

كل عام والجميع بالف خير

تفضل 1.rar

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

وانت طيب وصوما مقبولا للجميع بإذن الله

شكرا لك استاذي الفاضل عمل رائع تمت التجربه بنجاح

السلام عليكم انشاء الله بأتم الصحه اوجه مشكله تحويل رقم من 16 رقم الى سته عشري ساعدنني خونا الفاضل TareQ M في التحويل ولكن اعتقد ان الموضوع يتعلق ببرمجت اكسل نفسه لا يقبل تحويل الكثر من 13 رقم الرجو التجربه والمساعده مع الشكر والتقدير لمن يريد طريقة التحويل موجود على الرابط التالي http://www.officena.net/ib/index.php?showtopic=33387

جزاك الله خير هذا هوالمطلوب

اعتذر على التأخير شكرا لك جاري التجربه

كيفكم شباب اريد طريقة لترتيب بنظام الست عشري بمعنى الترتيب العادي المعروف للجميع بهذا الشكل 012345678910 المطلوب يكون بهذا الشكل 0123456789ABCDEF شاكر ومقدر

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

شكرا يشباب هذا هوالمطلوب بنسبه للطلب الاخير فهو عمل تريخ بداية الفتره يحيث يكون الرقم ثابت غير متغير بعد مرور 24 ساعه مثل الكود المقدم من اخي YasserKhalil هذا الكود بعد مرور يوم اخر يتغير للتاريخ الجديد وتتغير حسبة الايام اريده يكون ثابت بتاريخ نفس اليوم الذي بدأ به العقد. ماوصلنا اليه الان يفي بالغرض والطلب الاخير لن يأثر كثيرا بحجم الملف سوف اقوم بتركيب الاكواد على البرنامج واخبركم بنتائج الجحم المستغنى عنه بستخدام الاكواد شكر ومقدر لجهودك