مطلوب كود لنسخ شيت اكثر من مرة ( فى وقت واحد )

[اسلام سيد]

السلام عليكم

اريد كود عند وضعه وتشغيله ينسخ الشيت المحدد بالعدد المحدد وليكن 120 مرة داخل نفس الملف

هل هناك كود لعمل مثل ذالك

[شوقي ربيع]

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

    For i = 1 To 120
	'ضع هنا كود النسخ هنا
	Next

 

[اسلام سيد]

10 ساعات مضت, شوقي ربيع said:

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

    For i = 1 To 120
	'ضع هنا كود النسخ هنا
	Next

 

 

جزاكم الله خيرا على سرعه الاستجابه

لكن الحقيقة لا اعرف استخدمها

هل ممكن توضح اكثر على الملف المرفق التالى

ملفات مرفقه

نسخ.rar

[شوقي ربيع]

مالذي تود فعله في هذا الملف

[اسلام سيد]

10 ساعات مضت, شوقي ربيع said:

مالذي تود فعله في هذا الملف

نسخ شيت البيانات

120 مرة فى نفس الملف مرة واحده

[شوقي ربيع]

تود نسخ الشيت 120 مرة كل مرة في شيت جديد

او في نفس الشيت و كل مرة تح المرة الموالية

او في نفس الشيت و جنب بعضهم على العرض

ام ماذا ؟؟؟؟

[اسلام سيد]

فى شيت جديد

لان به بيانات اريد تقسيمها ( مركز ) ومحافظات

كل مركز فى شيت مستقل

cope.rar

[شوقي ربيع]

ستستغرق العملية بضع ثواني

cope.rar

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

بعد اذن الاخ شوقي 

هذا الكود ربما يفي بالغرض

Option Base 1
Sub get_me_Markaz()
  Dim x, Last_Row As Integer
  Dim arr()
  
 x = 0
       With Sheets("البيانات")
       
              Last_Row = .Cells(Rows.Count, "d").End(3).Row
              
            For i = 3 To Last_Row
                    If Application.CountIf(.Range("d3:d" & i), .Range("d" & i)) = 1 Then
                        x = x + 1
                        ReDim Preserve arr(1 To x)
                        arr(x) = .Range("d" & i)
                   End If
             Next
             
      End With
      
     For k = LBound(arr) To UBound(arr)
           On Error Resume Next
                    If Len(Sheets(arr(k)).Name) = 0 Then
                          Sheets.Add After:=Sheets(Sheets.Count)
                        ActiveSheet.Name = arr(k)
                    End If
            On Error GoTo 0
       Next
   Erase arr
   Sheets("البيانات").Select
End Sub

 

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

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

small_cope.rar

تم تعديل أبريل 10, 2017 بواسطه سليم حاصبيا

[اسلام سيد]

في ١٠‏/٤‏/٢٠١٧ at 10:47, سليم حاصبيا said:

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

small_cope.rar

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

هذا ما اريده بالضبط والملف يعمل تمام جدا

----------------------------------

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

يعنى انا لدي شيت اخر به عملاء كثيرين ( وكلهم مجمعين فى صفحه واحده

طبعا عدد الاعمده اكثر حوالى 12

وعدد الصفوف حوالى 9000 او يزيد

وعمود الفلتر ( اسم العميل = B )

وبداية البيانات من الصف رقم 5 يعنى B5

واسم الشيت الذى فية البيانات  "الحركه"

حاولت اعدل على الكودين  لكن لم تنجح معى  اكثر من مرة

فى احدى المرات التى جربتها ( نسخ اسم العميل فى اسم الصفحه مع رقم الصفحه ، يعنى اسلام صفحه 101 ، ولم ينسخ اى بيانات فى الصفحه
ولاحظت مسح البيانات فى الشيت الاصلى يعنى عمل cut )
 

فكيف اغير المتغيرات لو سمعتم ؟

تم تعديل أبريل 11, 2017 بواسطه اسلام سيد

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

ارفع نموذجاً عن الملف حوالي 30(لا اكثر) سطر للعمل عليه

 

[اسلام سيد]

11 ساعات مضت, سليم حاصبيا said:

ارفع نموذجاً عن الملف حوالي 30(لا اكثر) سطر للعمل عليه

 

 

تفضل استاذى العزيز

واسف جدا على التاخير

عملاء.rar

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

اليك الملف جاهز وتحت الطلب

لا تنس ان يكون الصف الرايع فارغاُ   العامود L ايضاً (لا يجوز ان تدخل اية بيانات (غريبة) داخل الجدول)

هذه احد القواعد الاساسية لتعامل اكسل مع الجداول (كل ما بجانبه فراغ     فوق  يسار  يمين  اسفل) 

لان الجدول المعمول به يبدأ من العامود K الخلية 5 الى العامود A اخر صف فيه   في هذه الحالة (31)

عملاء Salim.rar

تم تعديل أبريل 11, 2017 بواسطه سليم حاصبيا