Alttear قام بنشر مايو 15, 2017 مشاركة قام بنشر مايو 15, 2017 السلام عليكم طلب بسيط باذاحة الخلايا التي حولها اطار لتصبح بجانب بعضها البعض مع الشكر Move by Rectangle.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مايو 15, 2017 مشاركة قام بنشر مايو 15, 2017 جرب هذا الماكرو Sub Iza7a() Dim my_rg As Range Dim i, r As Integer Set my_rg = ActiveSheet.Range("h3:k21").SpecialCells(2) For i = 1 To my_rg.Areas.Count r = my_rg.Areas(i).Cells(1).Row my_rg.Areas(i).Copy Range("b" & r).PasteSpecial xlPasteValues my_rg.Areas(i).Clear Next End Sub 1 رابط هذا التعليق شارك More sharing options...
Alttear قام بنشر مايو 16, 2017 الكاتب مشاركة قام بنشر مايو 16, 2017 شكر لكم استاذ سليم .. جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.