احمد علي 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

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