تعديل بسيط بالكود

[طالب مدرسة أوفيسنا]

مرفق المطلوب بشكل واضح

 

مع الشكرنموذج2.rar

[سليم حاصبيا]

 استبدل الكود على هذا الشكل: 

Sub Macro1()
Dim cl As Range
q = 21: r = 21
For Each cl In Range("O21:O" & [O10000].End(xlUp).Row)

If cl.Value = "تنفيذ" Then
Range("Q" & q) = cl.Offset(0, -13)
Range("R" & r) = cl.Offset(0, -11)
q = q + 1: r = r + 1

End If
Next
End Sub

[طالب مدرسة أوفيسنا]

مشكور استاذ سليم

 

نعم هذا المطلوب

 

اكرر شكري لك وللقائمي على هذا المنتدى

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

أخي الحبيب سليم

من غير ما اطلع على الملف

إنت دلوقتي فيه متغيرين q و r ولهم نفس قيمة البداية ، وبيتم التعامل معهم في الكود بزيادة  1 في كل مرة

طيب سؤال : مكانش ينفع تستخدم متغير واحد بس دا مجرد سؤال

وإنت أدرى مني بالملف

[سليم حاصبيا]

  معاك كل الحق اخي ياسر لا لزوم للاثنين معاً في هذه الحالة