سلسلة

[احمد علي 1981]

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

كل عام وانتم بالف خير

 

اخواني لدي الكود التالي وهو لوضع الارقام المفقودة ضمن سلسله لكن عندما تكون الارقام تم ترحيلها او تم عمل لصق خاص لها فان الكود لا يعمل الرجاء المساعدة

 ()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

[ياسر خليل أبو البراء]

ارفق مثال ليتضح المقال

[احمد علي 1981]

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

Book11.rar

 

[ياسر خليل أبو البراء]

جرب تغير هذا الجزء

Step -1

من -2 إلى -1

[احمد علي 1981]

شكرا اخي ياسر

تمت بنجاح 

شكرا جزيلا

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

[ياسر خليل أبو البراء]

وكل عام وأنت بخير أخي الكريم أحمد

الحمد لله أن تم المطلوب على خير

تقبل تحياتي

[احمد علي 1981]

السلام عليكم

طلب اخر لو سمحت

 

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

 

Book11.rar