طلب تعديل على كود لعمل دوائر تلقائية

[أناناس]

Sub MAN()}
Dim I As Integer
For I = Range("V9") To Range("V10")
        Range("T9") = I
    If I <= Range("V10") Then
        ActiveWorkbook.calculate
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    End If
Next I
End Sub

{

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

الكود أعلاه يقوم بكتابة الأرقام ما بين الخليتين"V9" V10" فى الخلية t9 فهل بالإمكان جعله ينط كل مرة رقمين 2 4 6 8 وهكذا

[رجب جاويش]

أخى الفاضل

استبدل هذا السطر

For I = Range("V9") To Range("V10")

بهذا

For I = Range("V9") To Range("V10") Step 2

 

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

بارك الله فيك أخي الحبيب رجب جاويش
 وجزيت خير الجزاء على مساهماتك القيمة جداً

 

أخي الكريم أناناس

يرجى وضع الأكواد بين أقواس أكواد ..كما يرجى إرفاق الملف لتسهيل العمل على إخوانك فالكود بدون ملف مرفق يجعل من يريد تقديم المساعدة ينشيء ملف ويضع بيانات تتناسب مع النطاقات الموجودة في الكود ليستطيع حل المسألة ، فلما لا تقوم بإرفاق الملف بحيث يكون العمل أسرع وتقديم المساعدة يكون بشكل أدق ..

 

بالنسبة لسؤالك ذكرت أنك تريد القفز 2 4 6 8 ... فيمكن أن يفهم الكلام على منطقين الأول كما قدمه أستاذنا الكبير رجب وهو أن يتم القفز بخطوات ثابتة أي 2 في كل مرة (وأرجو أن يكون المطلوب) والمنطق الثاني هو أنه في كل مرة يتزايد أي يتضاعف مرات القفز ( ورغم أنه احتمال بعيد ولكنه يظل احتمال قائم والملف المرفق يوضخ المطلوب أكثر)

تقبلوا تحياتي