خالد الشاعر قام بنشر نوفمبر 3, 2014 مشاركة قام بنشر نوفمبر 3, 2014 السادة الخبراء هذا كود من اعمال هذا المنتدى العظيم ينقل عمود بيانات واحد من الشيت المفتوح الى شيت اخر اسمة january فهل ممكن نجعلة ينقل عمودين فما التغيير فى الكود ولكم جزيل الشكر جزاكم الله كل خيراً Sub CopyNames2() Sheets("January").Range("B14:B513").ClearContents For I = 14 To 513 Cells(I, 2).Select If Selection.Value > 0 Then With Sheets("January").Columns(2).Rows(513).End(xlUp) .Offset(1, 0) = Cells(I, 2).Value End With End If Next End Sub رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر نوفمبر 3, 2014 مشاركة قام بنشر نوفمبر 3, 2014 ارفق ملفك للتوضيح أخي الفاضل رابط هذا التعليق شارك More sharing options...
خالد الشاعر قام بنشر نوفمبر 4, 2014 الكاتب مشاركة قام بنشر نوفمبر 4, 2014 مرفق ملف للتوضيح ولكم جزيل الشكر والاحترام نقل.rar رابط هذا التعليق شارك More sharing options...
قنديل الصياد قام بنشر يونيو 3, 2015 مشاركة قام بنشر يونيو 3, 2015 اخى العزيز تم عمل المطلوب بكود اخر فقم بتجربته لعله يكون المطلوب تحياتى نقل.rar رابط هذا التعليق شارك 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.