hassan rady قام بنشر يناير 15, 2018 قام بنشر يناير 15, 2018 السلام عليكم ورحمة الله وبركاته انا مبتدأ في الاكواد احتاج تعديل على الكود المرفق بحيث ينسخ الشيت ويعيد تسميته برقم جديد جزاكم الله خيرا 661.rar
ابراهيم الحداد قام بنشر يناير 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
hassan rady قام بنشر يناير 15, 2018 الكاتب قام بنشر يناير 15, 2018 كل الشكر لك عزيزي هذا هو المطلوب تماماً
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.