مساعدة في الترحيل إلى ورقة ثانية

[أبو إلياس السوري]

السلام عليكم ...

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

الذاتية الإدارية1.rar

وبارك الله فيكم

[ياسر خليل أبو البراء]

أخي الكريم أبو إلياس

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

باديء ذي بدء أحب أن أنوه إليك أن الملف غير مرضي بالنسبة لي كتنسيق .. لا تقم بتسطير كافة ورقة العمل بدون داعي .. فهذا يجعل الملف ثقيل في التعامل غير أن التسطير في حالتك غير ضروري ..فقط قم بتسطير النطاق المستخدم ...

قمت بإزالة التسطير والاكتفاء بجزء من ورقة العمل لسهولة التعامل مع الملف

أمر آخر إذا أردت أن ترفق ملف فينصح بوضع بعض البيانات الوهمية للعمل عليها ..قمت بوضع بعض البيانات في ملفك لاختبار النتائج للكود

وأخيراً أرجو ألا تنزعج من نصحي ومن كلامي (الذي أراه جارحاً في كثير من الأحيان.. ولكن للضرورة أحكام)

 

إليك الكود التالي يقوم بما تطلب إن شاء الله .. حاول تدرس أسطر الكود لتعرف كيفية التعديل عليه بما يتناسب مع ملفك الأصلي

Sub TestYasser()
    Dim Ws As Worksheet, Sh As Worksheet
    Dim LR As Long, I As Long, Col As Long, LastRow As Long
    Set Ws = Sheets("Data"): Set Sh = Sheets("Result")
    LR = Ws.Cells(Rows.Count, 2).End(xlUp).Row
    
    Application.ScreenUpdating = False
        For I = 10 To LR
            For Col = 6 To 53 Step 8
                LastRow = Sh.Cells(Rows.Count, 2).End(xlUp).Row + 1
                Sh.Cells(LastRow, "B").Resize(1, 4).Value = Ws.Cells(I, "B").Resize(1, 4).Value
                Sh.Cells(LastRow, "F").Resize(1, 8).Value = Ws.Cells(I, Col).Resize(1, 8).Value
            Next Col
        Next I
    Application.ScreenUpdating = True
    
    MsgBox "Finished...", 64
End Sub

تقبل تحياتي

 

Transfer Data Across Columns To Rows YasserKhalil.rar

[أبو إلياس السوري]

بارك الله فيك وجزاك الله خيرا ... وجعلها في ميزان حسناتك وبارك الله في علمك .. وأشكرك على النصائح المهمة التي فعلا كنت لا أعلمها والكود عالمي ممتاز بارك الله فيك

 

[ياسر خليل أبو البراء]

أخي الفاضل أبو إلياس

وجزيت خيراً بمثل ما دعوت .. والحمد لله أن تم المطلوب على خير

أما النصح فأرجو ألا تكون منزعجاً منه ، فهذا دأبي مع جل الأعضاء وما أريد بالنصح إلا المنفعة للجميع ، والنصح يكون موجه للجميع وليس لصاحب الموضوع فقط .. لتمام الاستفادة إن شاء الله

تقبل تحياتي