كود نسخ وتعبئة خلايا بشرط

[عمر طاهر]

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

المطلوب من حضرتكم كود لنسخ الخلايا السابقة بشرط تسلسل الارقام في العمود A ولكم جزيل الشكر

انتبه من فضلك ... فقد تم تعديل رفع الملف بإمتداد XLSM طالما انك تريد الحل بالأكواد

تعبئة.xlsm

[نزار سليمان عيد]

السلام عليكم

جرب المرفق 

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

مع الشكر

تعبئة.xlsx

[نزار سليمان عيد]

الحل بالمعادلات مش اكواد

=COUNTIFS(B2:B5;B5;E2:E5;E5)
=IF((E5=E4)*AND(C4<>"");C4;C4+1)

 

 

[عمر طاهر]

ممنون لطفك اخي نزار  ولكن للدوال ثقل على الشيت اذا كثرت الخلايا فطلبت كود لذلك .

شكرا مجددا

 

[نزار سليمان عيد]

الحل بالمعادلات مش اكواد

=COUNTIFS(B2:B5;B5;E2:E5;E5)

=IF((E5=E4)*AND(C4<>"");C4;C4+1)

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

تعبئة.xls

[نزار سليمان عيد]

الحل بالمعادلات مش اكواد

=COUNTIFS(B2:B5;B5;E2:E5;E5)

=IF((E5=E4)*AND(C4<>"");C4;C4+1)

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

اي استفسار اعلمني

المدى بالملف الى السطر 41 بامكانك تزيد عليه حسب احتياجك

Sub Macro15()
'
' Macro15 Macro

Range("A2").Formula = _
"=IF(RC[1]="""","""",COUNTIFS(RC[1],RC[1],RC[4],RC[4]))"
Range("A3:A41").Formula = _
  "=IF(RC[1]="""","""",COUNTIFS(R2C[1]:RC[1],RC[1],R2C[4]:RC[4],RC[4]))"
Range("C2").Formula = _
 "=IF(RC[2]<>"""",1,"""")"
Range("C3:C41").Formula = _
 "=IF(RC[2]="""","""",IF((RC[2]=R[-1]C[2])*AND(R[-1]C<>""""),R[-1]C,R[-1]C+1))"
    
End Sub

 

[عمر طاهر]

عذرا أخي لكن لم يكن هذا الطلب..

المطلوب انه عندما اكتب بالعمود A رقم تالي للرقم السابق ..

يقوم الكود بتعبئة الخلايا تلقائيا من الخلايا السابقة

اما اذا ابتدأت ب رقم 1 فلا ينسخ شيء

أرجو ان اكون قد وضحت الفكرة ولكم جزيل الشكر

[نزار سليمان عيد]

اخي طلبك بالملف هو

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

المطلوب من حضرتكم عمل الكود بحيث اذا كان a3=a2+1 فإنه يقوم بنسخ الخلايا السابقة وإلا يتركها فارغة

ماعدا C فانه يضيف رقم على رقم الفاتورة ان لم يتحقق الشرط ومثالك المرفق تم العمل عليه حسب طلبك وين الخطا بالتحديد

[عمر طاهر]

أرجو المعذرة ولكن وضعت الملف بالدوال وارجو تبديل الدوال بكود.

وشكرا مجددا

تعبئة.xls

[عمر طاهر]

للرفع