علي عبد المنعم قام بنشر يوليو 18, 2017 مشاركة قام بنشر يوليو 18, 2017 برجاء المساعدة في ترحيل اعمدة معينة كما موضح في الملف كود ترحيل اعمدة معينة.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 18, 2017 مشاركة قام بنشر يوليو 18, 2017 جرب هذا الماكرو Sub salim() Dim Sh1, Sh2 As Worksheet Dim lr1%, ro%, i% Set Sh1 = Sheets("Sheet1"): Set Sh2 = Sheets("Sheet2") lr1 = Sh1.Cells(Rows.Count, "a").End(3).Row ro = 3 Sh2.Range("C" & ro & ":i" & 500).ClearContents For i = 2 To lr1 With Sh2.Cells(ro, 3) .Value = Sh1.Cells(i, 2) .Offset(0, 2) = Sh1.Cells(i, 2).Offset(0, 4) .Offset(0, 6) = Sh1.Cells(i, 2).Offset(0, 8) End With ro = ro + 2 Next End Sub 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان