احمدزمان

شكرا استاذ محمد صالح و جزاك الله خير

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

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

السلام عليكم و رحمة الله وبركاته في الخلية M1 غير كلمة البيان الى نوع العملية حيث ان الجدول لا يوجد به كلمة البيان مع التحية

السلام عليكم و رحمة الله وبركاته ضع الدالة =SUM(N4;C5;K5)-SUM(G5;L5) ثم اسحبها للاسفل مع التحية

و عليكم السلام و رحمة الله وبركاته Sub Add_One() Dim FR For FR = 10 To 50 Cells(FR, 3) = Val(Cells(FR, 3)) + 1 Next MsgBox "plus 1 add to all" End Sub زائد1.xlsm

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

آمين يارب نحن و انت وجميع المسلمين

اخي الكريم الدالة SUBSTITUTE تقوم باستبدال احرف اي نص بقيمة جديدة و انت اردت التخلص من السطر الجديد و هو مفتاح انتر Emter وهذا المفتاح يرمز له في كود المناتيح بـ Char(10) لذلك تقوم الدالة باستبداله الى " -" في اي مكان في النص جزاك الله خيرا اعتذر ان لم استطع الرد على اي نسائل آخر حيث انني متوجه الى الحج بعد قليل - و البركة في بقية الاخوة في المنتدى ,,, دمتم بخير

و عليكم السلام و رحمة الله وبركاته في الخلية Q3 ضع الدالة التالية =SUBSTITUTE(TRIM(P3);CHAR(10);" -") قد يكون هذا طلبك و الله اعلم

و عليكم السلام و رحمة الله و بركاته تقبل الله من الجميع =INDEX(D3:M3;;MATCH(MAX(D5:M5);D5:M5;0)) اعلى-ادنى.xlsx

اللهم آمين انا و انت و جميع المسلمين شكرا لك

اخي عبدالله كللامك مظبوط يوجد خطاء تم تعديله و كان الخطاء في الحلقة الدائرية للتاكد من خلو الخلية الهدف من اي بيانات للكتابه بها سامحنا ... كل ابن آدم خطاء البرنامج.xlsm

طيب اراجعه ان شاء الله

و عليكم السلام و رحمة الله وبركاته اسعد الله صباحكم بكل خير حاول التالي 1 ادخل الى النموذج للنقل و من قائمة اسماء الاوراق اعد اختيار اسم الورقة ((بنزين)) 2 تاكد ان اسم الورقة ((بنزين)) ليس به مسافة في آخر الاسم او بعد الاسم و ان شاء الله تظبط وفي انتظار ردك