عبدالرحمن حارثة قام بنشر يونيو 2, 2018 مشاركة قام بنشر يونيو 2, 2018 السلام عليكم تفضلكم بنقل الاعمدة باللون الاصفر من شيت الى شيت اخر نقل بيانات.rar رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يونيو 2, 2018 مشاركة قام بنشر يونيو 2, 2018 وعليكم السلام تفضلى نقل بيانات.xlsm 3 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 2, 2018 مشاركة قام بنشر يونيو 2, 2018 يعد اذن اخي على هذا الكود ربما يكون اسرع قليلاٌ لانه يعنمد على المصفوفات 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 4 1 رابط هذا التعليق شارك More sharing options...
عبدالرحمن حارثة قام بنشر يونيو 2, 2018 الكاتب مشاركة قام بنشر يونيو 2, 2018 الله يرضى عليكم - جزيتم خيرا ممكن ان اتوسع قليلا هل من الممكن نقل الاعمدة على ضوء تلوين الاعمدة المختارة باللون الاصفر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان