محب لله ورسوله قام بنشر أكتوبر 14, 2021 مشاركة قام بنشر أكتوبر 14, 2021 السلام عليكم الإخوة الأفاضل برجاء المساعده فى عمل نسخ وترحيل قيم العمود " L " إلى اول عمود خالى من البيانات والذى يبدأ من العمود " P " وينتهى فى العمود "AA" ويكون الترحيل فى اول عمود فارغ وهكذا مرفق الشيت للتوضيح والتعديل Book1.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة lionheart قام بنشر أكتوبر 14, 2021 أفضل إجابة مشاركة قام بنشر أكتوبر 14, 2021 Sub Test() Dim r As Range, c As Long Application.ScreenUpdating = False With ActiveSheet Set r = .Range("L4:L" & .Cells(Rows.Count, "L").End(xlUp).Row) c = .Cells(4, Columns.Count).End(xlToLeft).Column + 1 .Cells(4, c).Resize(r.Rows.Count).Value = r.Value End With Application.ScreenUpdating = True End Sub 5 رابط هذا التعليق شارك More sharing options...
محب لله ورسوله قام بنشر أكتوبر 17, 2021 الكاتب مشاركة قام بنشر أكتوبر 17, 2021 جزاك الله خيرا وبارك الله فيك 1 رابط هذا التعليق شارك 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.