احمد علي 1981 قام بنشر يوليو 16, 2015 مشاركة قام بنشر يوليو 16, 2015 السلام عليكم ورحمة الله وبركاته كل عام وانتم بالف خير اخواني لدي الكود التالي وهو لوضع الارقام المفقودة ضمن سلسله لكن عندما تكون الارقام تم ترحيلها او تم عمل لصق خاص لها فان الكود لا يعمل الرجاء المساعدة ()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 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 16, 2015 مشاركة قام بنشر يوليو 16, 2015 ارفق مثال ليتضح المقال رابط هذا التعليق شارك More sharing options...
احمد علي 1981 قام بنشر يوليو 16, 2015 الكاتب مشاركة قام بنشر يوليو 16, 2015 تفضل اخى مرفق مثال موضح به المطلوب Book11.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة ياسر خليل أبو البراء قام بنشر يوليو 16, 2015 أفضل إجابة مشاركة قام بنشر يوليو 16, 2015 جرب تغير هذا الجزء Step -1 من -2 إلى -1 1 رابط هذا التعليق شارك More sharing options...
احمد علي 1981 قام بنشر يوليو 16, 2015 الكاتب مشاركة قام بنشر يوليو 16, 2015 شكرا اخي ياسر تمت بنجاح شكرا جزيلا كل عام وانت واعضاء المنتدى بالف خير بمناسبة عيد الفطر السعيد 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 16, 2015 مشاركة قام بنشر يوليو 16, 2015 وكل عام وأنت بخير أخي الكريم أحمد الحمد لله أن تم المطلوب على خير تقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
احمد علي 1981 قام بنشر يوليو 19, 2015 الكاتب مشاركة قام بنشر يوليو 19, 2015 السلام عليكم طلب اخر لو سمحت هل بالإمكان تعديل الكود ليصبح يضيف الأرقام المفقودة بعد الرقم 2 على أساس no في sheet1 حيث الأرقام فيها محصورة بين 1 و 5 Book11.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.