نقل بيانات اعمدة معينة الى شيت اخر

[عبدالرحمن حارثة]

السلام عليكم

تفضلكم بنقل الاعمدة باللون الاصفر من شيت الى شيت اخر

 

نقل بيانات.rar

[Ali Mohamed Ali]

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

تفضلى

 

نقل بيانات.xlsm

[سليم حاصبيا]

يعد اذن اخي على

هذا الكود ربما يكون اسرع قليلاٌ لانه يعنمد على المصفوفات

Sub move_data()
 Sheets("تصفية").Cells.ClearContents
Dim arr()
Dim i%, m%: m = 1
 For i = 1 To 50
  If i = 11 Then i = 44
   ReDim Preserve arr(1 To m)
    arr(m) = i
    m = m + 1
 Next
 m = 1
 For i = LBound(arr) To UBound(arr)
   Sheets("تصفية").Cells(2, m).Resize(100, 1).Value = _
   Sheets("البيانات").Cells(2, arr(i)).Resize(100, 1).Value
   m = m + 1
 Next
 Erase arr
End Sub

 

[عبدالرحمن حارثة]

الله يرضى عليكم - جزيتم خيرا

ممكن ان اتوسع قليلا

هل من الممكن نقل الاعمدة على ضوء تلوين الاعمدة المختارة باللون الاصفر