نسخ من شيت الى اخر

[خالد الشاعر]

السادة الخبراء

 

هذا كود من اعمال هذا المنتدى العظيم

 

ينقل عمود بيانات واحد من الشيت المفتوح الى شيت اخر اسمة 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

[ياسر خليل أبو البراء]

ارفق ملفك للتوضيح أخي الفاضل

[خالد الشاعر]

مرفق ملف للتوضيح

 

ولكم جزيل الشكر والاحترام

نقل.rar

[قنديل الصياد]

اخى العزيز

تم عمل المطلوب بكود اخر

فقم بتجربته

لعله يكون المطلوب

 

 

تحياتى

 

نقل.rar