سؤال حول الحلقة التكرارية

[ابن الملك]

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

 

أساتذتى الكرام مرفق لحضراتكم ملف واتسائل هل هناك طريقة لجعل الاكسيل يقوم بادخال صف جديد كلما يجد حرف T

 

انا أرفقت لحضراتكم محاولتى المتواضعه فى هذا الموضوع .

 

وشكرا لكم جميعا

[ابن الملك]

أعتذر عن نسيانى لارفاق الملف

For & I.rar

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

بارك الله فيك يا بن الملك

يبدو أن درس الأخ حسام بدأت تظهر بوادره

جرب الكود المرفق أخي الفاضل ابن الملك ، حيث أنه سيسمح لك بتنفيذ الأمر وإدراج الصفوف مرة واحدة أي صف واحد فقط حتى لو قمت بتكرار تنفيذ الكود ، والحلقة التكرارية معكوسة ولذلك تم استخدام Step -1

Sub InsertRows()
    Dim I As Long
    For I = 25 To 1 Step -1
        If Cells(I, 5).Value = "t" And Cells(I + 1, 5) <> "" Then
            Cells(I, 5).Offset(1, 0).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        End If
    Next
End Sub

[سيف الدين حسام]

أليك أخى الكريم هذا الرابط

 

http://www.officena.net/ib/index.php?showtopic=58471&hl=

 

تقبل مرورى

[ابن الملك]

الاستاذ / ياسر خليل 

و الاستاذ / سيف الدين حسام

 

أشكر مروركم الكريم 

 

هجرب الحل وأرد على حضراتكم ...

 

ممكن مساعده فى الموضوع ده برضه

 

 

شكرا http://www.officena.net/ib/index.php?showtopic=58481&hl

 

شكرا لكم جزيل الشكر