ترحيل بيانات مع ثبات عدد من الأعمدة

[Zoro888]

انا عندي شيت أكسيل خاص بالمرتبات العاملين وكنت عاوز من حضرتك كود يخلي الإدارات تتكرر تحت بعض بعدد الأعمدة زي الشيت اللي حضرتك عملتو لعمرو ناجي

بس الفرق اني عاوز اثبت أول 7 أعمده ويتعاملو معاملة العمود الاول ويتكرروو بعدد الاعمده الباقية في الشيت ..

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

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

[Zoro888]

هناك مشكلة ما في المرفقات أخي الكريم ولا يمكنني معرفتها شاكر لك الاهتمام سوف اقوم بحل المشكلة ثم ارسل المرفقات

[طارق محمود]

السلام عليكم

أخي العزيز

يمكنك تبديل الكود للتالي

Sub reprt()

Application.DisplayAlerts = False


	rr = Selection.Rows.Count

	cc = Selection.Columns.Count

	If cc < 9 Then MsgBox ("عدد الأعمدة التي تم اختيارها قليل"): Exit Sub


	For i = 1 To Sheets.Count

    	If Sheets(i).Name = "Report" Then Sheets(i).Delete: GoTo 10

	Next i


10  Selection.Copy

	Sheets.Add

	ActiveSheet.Name = "Report"

	[a1].Select

	ActiveSheet.Paste


	For i = 9 To cc

    	Range(Cells(1, i), Cells(rr, i)).Cut

    	Cells((i - 8) * rr + 1, 8).Select

    	ActiveSheet.Paste


    	Range(Cells(1, 1), Cells(rr, 7)).Copy

    	Cells((i - 8) * rr + 1, 1).Select

    	ActiveSheet.Paste

	Next i

	Application.CutCopyMode = xlNone

Application.DisplayAlerts = True

[a1].Select

End Sub

أو تفضل المرفق

ارجو أن يكون هو ماتريد

amr nagy 3.rar

[Zoro888]

السلام عليكم اخي الكريم الاستاذ طارق شاكر لك اهتمامك الكبير رغم انشغالك وانا بشكرك جدا وربنا يجعلكم دائماً في مساعده الغير وأشكر موقع أوفيسنا لأنه يضم أعضاء وإداريين علي أعلى مستوي وأتمني لكم يا أخي دوام التوفيق والتقدم لك ولكل من شارك بالمساهمة في هذا الموقع

وشكراً

[ريان أحمد]

أخي TareQ M ملف جميل من عضو أجمل الفكرة والكود غاية في الدقة والإتقان وأريد كود مشابه له

والمطلوب في المرفق

ترحيل أعمدة.rar

[ريان أحمد]

أخي TareQ M ملف جميل من عضو أجمل الفكرة والكود غاية في الدقة والإتقان وأريد كود مشابه له

والمطلوب في المرفق

[طارق محمود]

السلام عليكم

أخي طاهر

تفضل المرفق علي الرابط

http://www.4shared.com/file/qJQ3W4Jd/__online.html

[ريان أحمد]

شكرا أخي tareq شكرا جزيلا لك وتم تحميل الملف وأي ملاحظة سأقوها لك