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