ارجو المساعدة فى شرح هذا الكود

[إبراهيم محمد]

Sub ALIDROOS_JC_T()

Application.ScreenUpdating = False

Dim sh As Worksheet

For Each sh In ThisWorkbook.Worksheets

For R = 2 To 31

  If sh.Name = "ÇáßÔÝ ÇáÑÆíÓí" Then GoTo 2

   If Cells(R, 4).Value <> Empty Then

	If Cells(R, 4).Value = sh.Name Then

	  Range(Cells(R, 1), Cells(R, 11)).Copy

	  QQ = sh.Cells(1000, 1).End(xlUp).Row + 1

	  sh.Range("A" & QQ).PasteSpecial xlPasteValues

	  End If

	 End If

	Next

2

  Next

Application.CutCopyMode = False

Application.ScreenUpdating = True

End Sub[/left]


[left]

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

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

ولكنى ارجو شرح هذا الكود حيث انه مفيد جدا لي فى عملي ولكن يلزمه بعض التعديل ولذلك ارجو شرحه حتى يتسنى الاستفادة منه

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

[عبدالله المجرب]

السلام عليكم

اليك الشرح

============

قمت بإختصار الكود

Sub ALIDROOS_JC_T()

Dim sh As Worksheet

For Each sh In ThisWorkbook.Worksheets

For R = 2 To [A1000].End(xlUp).Row

   If Cells(R, 4).Value = sh.Name And Cells(R, 4).Value <> Empty Then

  Cells(R, 1).Resize(1, 11).Copy sh.Range("A" & sh.[A1000].End(xlUp).Row + 1)

	 End If

    Next

  Next

Application.CutCopyMode = False

End Sub

[إبراهيم محمد]

بسم الله الرحمن الرحيم

الاخ العزيز والاستاذ الفاضل / ابو احمد

لك خالص الشكر والتقدير على هذا الشرح الوافي وهذا المجهود الرائع ولا ادرى كيف اشكرك على هذا ولا املك الا الدعاء لكم وجعله الله فى ميزان حسناتكم

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

ارجو ان لا يكون فى هذا اثقال عليك وان شاء الله ينتفع بهذا العلم الكثير باذن الله - ارجو اذا كان ممكن ان يكون معه شرح بسيط للكود وجزاكم الله خيرا

[إبراهيم محمد]

ملحوظه "

بالاضافه الى انشاء الصفحه من خلال الكود ان يتم عمل ارتباط تشعبي (هايبر لينك ) بين الاسم فى الكشف الرئيسى والصفحه وذلك حتى يسهل الوصول للصفحه فلو افترضنا ان هناك 200 جنسيه فهذا يعنى 200 صفحه وبالتالى يتعذر الوصول بالطريقه العاديه - وجزالكم الله خيرا

اعلم ان طلبي ليس بصعب على استاذة وعباقرة هذا المنتدى الكريم