ترحيل اعمدة مختارة من جدول في شيت 3 الي جدول في شيت 5

[ال سراج]

السلام عليكم

اريد ان انتقل اعمدة من شيت 3 الي شيت 5

الاعمدة المراد نقلها من شيت 3 هي (G) , (H),(K)

الي شيت 5 في الجدول من ("E:G")
مع مسح البيانات من شيت 3

لقد استعملت هذا الكود لكن لم يعطيني فائدة

Sub siraj())
Dim lr As Integer
Sheets(3).Activate
lr = [G1000].End(xlUp).Row
Sheets(3).Range("G7:K" & lr).Copy
Sheets(5).Activate
Range("E" & [E100000].End(xlUp).Row + 1).Select
Selection.PasteSpecial xlPasteValues
Range("G6").Select
Range("E7:G10000").ClearContents
MsgBox ("تم الترحيل بنجاح ")
End Sub(

فواتير.rar

[ال سراج]

On ٢‏/٢‏/٢٠١٦ at 1:14 AM, ال سراج said:

السلام عليكم

اريد ان انتقل اعمدة من شيت 3 الي شيت 5

الاعمدة المراد نقلها من شيت 3 هي (G) , (H),(K)

الي شيت 5 في الجدول من ("E:G")
مع مسح البيانات من شيت 3

لقد استعملت هذا الكود لكن لم يعطيني فائدة

Sub siraj())
Dim lr As Integer
Sheets(3).Activate
lr = [G1000].End(xlUp).Row
Sheets(3).Range("G7:K" & lr).Copy
Sheets(5).Activate
Range("E" & [E100000].End(xlUp).Row + 1).Select
Selection.PasteSpecial xlPasteValues
Range("G6").Select
Range("E7:G10000").ClearContents
MsgBox ("تم الترحيل بنجاح ")
End Sub(

فواتير.rar