ترحيل الاسماء على ثلاث اعمدة

[فوزى فوزى]

السلام عليكم ورحمة الله وبركاته منتدى اوفيسنا الرائع ورجاله المحترمين مطلوب تعديل على الكود الموجود في الشيت الكود ينقل الأسماء بشكل ممتاز ولكن فى نفس الشيت من العمود Q : g ويجعل باقى القسمة فى اخر عمود وهو العمود P   المطلوب ان يرحل الاسماء فى شيت الترحيل وان يجعل باقى القسمه في العمود H والاسم الاخر فى العمود L  ويوجد نموذج للحل فى شيت الترحيل

تعديل على تقسيم-جدول-على-3-جداول-VBA-Solution.xlsm

[أ / محمد صالح]

يمكنك استعمال هذا الكود وتنفيذه في شيت الترحيل وليس في sheet1

Sub mas_taqseem()
Application.ScreenUpdating = False
lr = Sheet1.Cells(10000, 1).End(xlUp).Row
Range("A2:K100").ClearContents
col = 1
For i = 2 To lr Step WorksheetFunction.Ceiling((lr - 1) / 3, 1)
    For j = 2 To WorksheetFunction.Ceiling((lr - 1) / 3, 1) + 1
        Cells(j, col) = Sheet1.Cells(j + i - 2, 1)
        Cells(j, col + 1) = Sheet1.Cells(j + i - 2, 2)
        Cells(j, col + 2) = Sheet1.Cells(j + i - 2, 3)
    Next j
    col = col + 4
Next i
Application.ScreenUpdating = True
MsgBox "Done by mr-mas.com"
End Sub

بالتوفيق

[أبوأحـمـد]

وعليكم السلام

حل آخر

تعديل على تقسيم-جدول-على-3-جداول-VBA-Solution.xlsm

[فوزى فوزى]

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

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

[أبوأحـمـد]

الألقاب آخر همي

وجودي هنا لدفع زكاة العلم الذي تلقيته من أساتذتي في هذا المنتدى على مدى عشرين سنة

جرب عندما يكون العدد 73 أو باقي القسمة 1

[فوزى فوزى]

1 ساعه مضت, أبوأحـمـد said:

الألقاب آخر همي

وجودي هنا لدفع زكاة العلم الذي تلقيته من أساتذتي في هذا المنتدى على مدى عشرين سنة

جرب عندما يكون العدد 73 أو باقي القسمة 1

الله يرضيكم ويجعله فى ميزان حسناتك 

جربت العمل وهو المطلوب بعينه

الف شكر لكم الاستاذ محمد صالح والاستاذ ابو احمد على تعبهم معى