معادلة لتكرار النسخ بشرط

[الفرس]

اخوانى الكرام .. علماء المنتدى

 

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

 

الشرح موجود داخل الملف

 

وجزاكم الله خيرا

 

نسخ _متكرر.rar

[عبدالله باقشير]

السلام عليكم

 

ضع المعادلة هذه في الخلية G3

=INDEX($B$3:$B$12;MOD(ROW()-3;10)+1)

واسحبها الى اسفل

 

رقم 3 في المعادلة هو  رقم صف اول خلية تضع فيها المعادلة وهي الخلية G3

 

تحياتي

[رجب جاويش]

أستاذى الحبيب / عبد الله باقشير

سلمت يمينك

 

وبعد اذن أستاذى الحبيب ولاثراء الموضوع

هذا حل عن طريق كود فى حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
For i = 3 To 600 Step 10
If Not Intersect(Target, Cells(i, "H")) Is Nothing Then
Range(Cells(i, "H"), Cells(i + 9, "H")) = Target
Range("B3:B12").Copy
Range(Cells(i, "G"), Cells(i + 9, "G")).PasteSpecial xlPasteValues
End If
Next
Application.CutCopyMode = False
End Sub

نسخ _متكرر.rar

[عبدالله باقشير]

السلام عليكم

 

اخي الحبيب رجب ........حفظك الله

ائراءا للموضوع

هذا نفس كودكم بطريقة اخرى

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
    For i = 3 To 600 Step 10
    If Not Intersect(Target, Cells(i, "H")) Is Nothing Then
        Cells(i, "H").Resize(10, 1).Value = Target
        Cells(i, "G").Resize(10, 1).Value = Range("B3:B12").Value
    End If
Next
End Sub

تحياتي

[رجب جاويش]

أستاذى الحبيب / عبد الله باقشير

لمسات سحرية

بارك الله فيك

[الفرس]

اساتذتى الكرام ...

استاذى / عبد الله باقشير ..... عبقرى وعالم المنتدى والوطن العربى

 

استاذى / رجب جاويش  .... المبدع الخلوق

 

اليكما كل تقديرى وشكرى على هذا الابداع .. نفع الله بكما .. وأثابكما من فضله العظيم الخير كله

 

لى طلب اخر فى الموضوع نفسه وهو : ماذا لو اختلف تكرار المنتج عن الاخر ( بمعنى تكرر المنتج الاول 10 مرات & وتكرر المنتج الثانى 12 مرة ) فهل من تعديل فى المعادلة

 

وجزاكم الله خيرا

[الفرس]

عذرا اساتذتى

 

لقد استدركت خطأى فى السؤال

 

وهو لو زاد عدد الماكينات وليس المنتجات وتوصلت الى الحل وهو تغيير رقم 10 بالعادلة الى عدد الماكينات

 

جزاكم الله خيرا واسف ان اثقلت عليكم

[الفرس]

قمت بنسخ الكود ولكن ليس فيه نتيجة فى الشيت فهل من تطبيق على الملف

 

نسخ _متكرر1.rar

[رجب جاويش]

أخى الفاضل / الفرس

الكود يعمل تمام فى الملف المرفق

جرب الكتابة فى الخلية  H3  أو الخلية   H13   أو الخلية    H23  للتأكد

[الفرس]

جزاكم الله خيرا اخى / رجب

 

الكود يعمل فعلا تماما

 

شاكر لك اهتمامك ومجهوداتك ..

[رجب جاويش]

أخى الفاضل / الفرس

جزاك الله كل خير