hassan rady قام بنشر يناير 15, 2018 مشاركة قام بنشر يناير 15, 2018 السلام عليكم ورحمة الله وبركاته انا مبتدأ في الاكواد احتاج تعديل على الكود المرفق بحيث ينسخ الشيت ويعيد تسميته برقم جديد جزاكم الله خيرا 661.rar رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر يناير 15, 2018 مشاركة قام بنشر يناير 15, 2018 السلام عليكم ورحمة الله استخدم هذا الكود Sub hassan() Dim ws As Worksheet ActiveSheet.UsedRange.Copy x = Val(ActiveSheet.Name) + 1 Set ws = Sheets.Add(after:=Sheets(Sheets.Count)) ws.Name = x ws.Range("A1").PasteSpecial xlPasteValues Application.CutCopyMode = False ws.Range("A1").Select End Sub 1 رابط هذا التعليق شارك More sharing options...
hassan rady قام بنشر يناير 15, 2018 الكاتب مشاركة قام بنشر يناير 15, 2018 كل الشكر لك عزيزي هذا هو المطلوب تماماً رابط هذا التعليق شارك 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.