ال سراج قام بنشر فبراير 2, 2016 مشاركة قام بنشر فبراير 2, 2016 السلام عليكم اريد ان انتقل اعمدة من شيت 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 رابط هذا التعليق شارك More sharing options...
ال سراج قام بنشر فبراير 4, 2016 الكاتب مشاركة قام بنشر فبراير 4, 2016 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 رابط هذا التعليق شارك 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.