اريد جعل بيانات الصف باكمله في عدة اعمدة

[حسام الدين الحسيني]

السلام عليكم ورحمة الله وبركاته
اريد جعل بيانات صف واحد في عدة اعمدة علي ان تكون مرتبة
ملف.rar

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

أخي الفاضل حسام

يرجى تغيير اسم الظهور للغة العربية

 

إليك الكود التالي عله يفي بالغرض

Sub TransferDataFromRowsToColumns()
    Dim I As Long, lRow As Long
    lRow = 9
    
    Application.ScreenUpdating = False
        For I = 2 To Cells(4, Columns.Count).End(xlToLeft).Column Step 10
            Cells(lRow, 1).Value = Cells(4, I + 2).Value
            Cells(lRow, 2).Resize(, 2).Value = Cells(4, I).Resize(, 2).Value
            Cells(lRow, 4).Value = Cells(4, I + 7).Value
            Cells(lRow, 5).Value = Cells(4, I + 6).Value
            Cells(lRow, 6).Resize(, 3).Value = Cells(4, I + 3).Resize(, 3).Value
            Cells(lRow, 9).Resize(, 2).Value = Cells(4, I + 8).Resize(, 2).Value
            lRow = lRow + 1
        Next I
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

 

Transfer Data From One Row To Multiple Rows & Columns YasserKhalil.rar

[حسام الدين الحسيني]

جزاك الله خيرا
وبارك الله فيك
ولكن ممكن طريقة بدون الاكواد
واصل المشكلة اني عندما انسخ من pdf  يجعل كل الجدول في عمود واحد فقط
وجزاك الله خيرا

 

[حسام الدين الحسيني]

اتمني التوضيح

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

أخي الكريم حسام الدين الحسيني ..

يرجى تخصيص طلب واحد لكل موضوع ..فالطلبات المتعددة في الموضوع الواحد تنفر الأعضاء

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

أما بخصوص طلبك الثاني فأفضل طرح موضوع جديد تشرح فيه بالتفصيل وبملف مرفق المشكلة التي تواجهها في التصدير إلى PDF ..

بالنسبة لمشاركتك الأخيرة ..التوضيح .. يكمن الكود في عمل حلقة تكرارية لكل 10 أعمدة ثم يتم نقل البيانات بشكل متسلسل حسب الترتيب الذي وضعته في ملفك المرفق بحيث يتم وضع كل بيان في المكان المناسب وتستمر الحلقة التكرارية إلى آخر عمود به بيانات في الصف الرابع .. والرقم 9 في بداية الكود هو أول صف توضع فيه البيانات وقد تم تعريف متغير لذلك بحيث بعد كل حلقة يزيد المتغير بمقدار واحد لعرض النتائج في الصف العاشر وفي الحلقة التي تليها يصبح الصف هو الحادي عشر وهكذا إلى حين انتهاء الحلقات التكرارية

أرجو أن يكون التوضيح وافي بالغرض

تقبل تحياتي