احمد علي 1981

السلام عليكم طلب اخر لو سمحت هل بالإمكان تعديل الكود ليصبح يضيف الأرقام المفقودة بعد الرقم 2 على أساس no في sheet1 حيث الأرقام فيها محصورة بين 1 و 5 Book11.rar

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

تفضل اخى مرفق مثال موضح به المطلوب Book11.rar

السلام عليكم ورحمة الله وبركاته كل عام وانتم بالف خير اخواني لدي الكود التالي وهو لوضع الارقام المفقودة ضمن سلسله لكن عندما تكون الارقام تم ترحيلها او تم عمل لصق خاص لها فان الكود لا يعمل الرجاء المساعدة ()sub jor Sheets("sheet1").Activate Set Rng = ThisWorkbook.ActiveSheet Dim i As Long, x, r As range For i = range("w" & Rows.Count).End(xlUp).row To 3 Step -2 (" x = Cells(i, "w") - Cells(i - 1, "w If x > 1 Then Rows(i).Resize(x - 1).Insert Cells(i - 1, "w").AutoFill Cells(i - 1, "w").Resize(x), 2 End If Next end sub

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

شكرا اخي ياسر قمت بالتعديل على الكود كالتالي وهو يعمل بشكل ممتاز "(((b4:c4].Formula = "=(INDEX(sheet1!$c$3:$c$3000,MATCH(sheet2!$B$2,sheet1!$a$3:$a$3000,0] شكرا جزيلا لكم وجهودكم

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

السلام عليكم اتعامل مع الكود وليس المعادلات مرفق الملف book.rar

شكرا لصبرك علي حجم الملف الذي اعمل عليه كبير جدا

شكرا اخي ياسر لم يتم جلب البيانات ما اعرف اين وقع الخطا علما انني لما اعدل الا اسم ال شيت فقط

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

اخي سليم اخي ياسر جزيل الشكر لكم الكود يعمل بشكل رائع جدا

شكرا اخي سليم عمل رائع وهو المطلوب بالفعل لكن هل يمكن عمله بالكود ؟؟ مع الشكر

السلام عليكم اخواني الكرام لدى ملف اريد عمل استدعاء لبيانات sheet1 و sheet2 الى sheet3 حسب النوع عند اختياره في sheet3 ان يتم وضع القيم في الجدول وفي جدول التكلفة ان يجلب فقط بيانات التكلفة والنقل فقط بدون التامين كما في المرفق وشكرا Book1.rar

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

شكرا اخي ياسر على جهودك هل بالامكان اذا كانت القيمة تساوي صفر ان يتم القسمة على 1 اسف غلبتك معي جدا

شكرا اخي ياسر لكن عند القسمة على صفر يعطي الخطا التالي '11' :run -time error division by zero كيف اتخلص منها

الاخ ياسر لقد قمت بالتعديل على المعادلة كالتالي Sub ConvertFormulaToVBA() Dim I As Long Application.ScreenUpdating = False For I = 1 To Cells(Rows.Count, 1).End(xlUp).Row Cells(I, 3) = (Cells(I, 2) - Cells(I, 1)) / Cells(I, 1) Next I Application.ScreenUpdating = True End Sub هل هذا التعديل صحيح حسب فهم المعادلة اعلاه

شكرا اخي ياسر على تجاوبك لقد تم تعديل الاسم الى اللغة العربية انا اسف لقد قمت بكتابة المعادلة بشكل خاطي والمعادلة الصحيحية هي كالتالي b1-a1)/a1) وهي حاصل طرح b1-a1 قسمة a1 مع الشكر لجهودك

السلام عليكم ورحمة اله وبركاته الأخوة الأفاضل السلام عليكم ورحمة الله وبركاته اريد تحويل هذه المعادلة الى كود هل هذا ممكن مع عدم اظهارها في الخليه وتكون النتيجة في خلية c وجزاكم الله خير =A1(A1-B1) مع جزيل الشكر ، وجزاكم الله خير الجزاء

السلام عليكم لدي مشكلة في الكود الخاص بتحديث الجداول المحورية Private Sub Worksheet_Activate() Sheets("name").PivotTables("PivotTable1").RefreshTable End Sub الخطا هو run time error 1004 refresh table method of pivottable class failed كيف نتجاوز هذا الخطا مع الشكر

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

شكرا اختى ام عبدالله وشكرا اخى جمال عن جد ابداع ما شاء الله عليكم بس سوال اخر بنفس الموضوع لو كانت نفس السنة مكررة باكثر من صف واريد هذا التكرر لهذه السنوات اما السنة التي تضاف تضاف مرة واحد فقط 2009 2009 2009 2010 2010 2012 2012

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

السلام عليكم مرفق ملف اكسل يوجد به عمود للسنوات المطلوب ان يتم اضافة صف يضيف السنة المفقودة تلقائيا Book1.rar