نقل قيم من جدول الى عمود

[saad 77]

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

محتاج معادلة او كود يقوم بوضع المواد الموجودة في الجدول D6:K400 يضعها في العمود M6:M400 حسب ما موضح . مع الشكر والاحترام.

مواد.xlsxFetching info...

[Saleh Ahmed Rabie]

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

يمكنك استخدام الكود التالي  لنسخ البيانات من الجدول D6:K400 ووضعها في العمود M6:M400 في الورقة الحالية:```

Sub CopyData()
    Dim ws As Worksheet
    Dim i As Integer
    
    Set ws = ThisWorkbook.Sheets("ورقة١")

    For i = 6 To 400
        ws.Range("M" & i).Value = ws.Range("D" & i).Value
        ws.Range("M" & i + 1 & ":M" & i + 7).Value = Application.Transpose(ws.Range("E" & i & ":K" & i).Value)
    Next i
End Sub

 

يرجى استبدال "ورقة١" باسم الورقة التي تريد نقل البيانات إليها. يمكنك تشغيل الكود عن طريق الذهاب إلى عارض VBA والنقر بزر الماوس الأيمن على اسم الورقة ثم اختيار "Insert" ثم "Module" ولصق الكود في نافذة الكود الجديدة ومن ثم تشغيله. 

ستقوم هذه العملية بنسخ البيانات من الجدول D6:K400 ووضعها في العمود M6:M400 في الورقة المحددة.