الجموعي قام بنشر فبراير 27, 2014 مشاركة قام بنشر فبراير 27, 2014 (معدل) السلام عليكم و رحمة الله و بركاته هل من طريقه لإضافة ورقة جديدة ونسخ محتوى الورقة السابقه وتغيير إسمها تلقائيا مع الحفاظ على التنسيقات السابقه مثلا: الورقه السابقه 2010 اريد ظهور الصفحة الجديدة 2011 والصفحة التي تليها 2012 وهكذا..... ملاحظه: تتم هذه الطريقه عند الضغط على إضافه ورقه جديده المصنف2.rar تم تعديل فبراير 27, 2014 بواسطه الجموعي رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 27, 2014 مشاركة قام بنشر فبراير 27, 2014 السلام عليكم تفضل أخى Sub ragab() Application.ScreenUpdating = False x = Val(ActiveSheet.Name) For i = 1 To Sheets.Count If Val(Sheets(i).Name) > x Then x = Val(Sheets(i).Name) Next Sh_Name = x + 1 ActiveSheet.Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = Sh_Name Sheets(1).Select Application.ScreenUpdating = True End Sub المصنف3.rar 1 رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر فبراير 27, 2014 الكاتب مشاركة قام بنشر فبراير 27, 2014 السلام عليكم تفضل أخى Sub ragab() Application.ScreenUpdating = False x = Val(ActiveSheet.Name) For i = 1 To Sheets.Count If Val(Sheets(i).Name) > x Then x = Val(Sheets(i).Name) Next Sh_Name = x + 1 ActiveSheet.Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = Sh_Name Sheets(1).Select Application.ScreenUpdating = True End Sub ممتاز جدا استاذي الفاضل بارك الله فيك الذي كنت أقصده ليس عن طريق الزر وإنما عن طريق إضافه ورقة جديده رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر فبراير 27, 2014 الكاتب مشاركة قام بنشر فبراير 27, 2014 (معدل) وفي سؤال ثاني لو الصفحة الأولى بها بيانات أريد عند نسخها محو البيانات بإستثناء بيانات الصف العلوي المساحة الصفراء تصبح فارغه من البيانات تم تعديل فبراير 27, 2014 بواسطه الجموعي رابط هذا التعليق شارك More sharing options...
وليد فتحي قام بنشر فبراير 27, 2014 مشاركة قام بنشر فبراير 27, 2014 وعليكم السلام ورحمة الله وبركاته ممكن تراجع الموضوع ده أخي الفاضل http://www.officena.net/ib/index.php?showtopic=51999 رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 27, 2014 مشاركة قام بنشر فبراير 27, 2014 تفضل أخى Private Sub Workbook_NewSheet(ByVal Sh As Object) Application.ScreenUpdating = False x = Val(Sheets(1).Name) For i = 1 To Sheets.Count If Val(Sheets(i).Name) > x Then x = Val(Sheets(i).Name) Next Sh_Name = x + 1 ActiveSheet.Move After:=Sheets(Sheets.Count) ActiveSheet.Name = Sh_Name Sheets(1).Cells.Copy ActiveSheet.Range("A1").PasteSpecial xlPasteFormats ActiveSheet.Range("A1:G1").Value = Sheets(1).Range("A1:G1").Value Application.CutCopyMode = False Sheets(1).Select Application.ScreenUpdating = True End Sub المصنف 4.rar 3 رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر فبراير 27, 2014 مشاركة قام بنشر فبراير 27, 2014 اخى واستاذنا رجب اكوادك دائما تجبرنا على متابعة مشاركاتك دائما ما تبدع حينما تكتب ويعجز اللسان على ان يقول فيك ما تستحقه ولا نجد من الكلمات غير بارك الله فيك وزادك من علمه 1 رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر فبراير 27, 2014 الكاتب مشاركة قام بنشر فبراير 27, 2014 تفضل أخى Private Sub Workbook_NewSheet(ByVal Sh As Object) Application.ScreenUpdating = False x = Val(Sheets(1).Name) For i = 1 To Sheets.Count If Val(Sheets(i).Name) > x Then x = Val(Sheets(i).Name) Next Sh_Name = x + 1 ActiveSheet.Move After:=Sheets(Sheets.Count) ActiveSheet.Name = Sh_Name Sheets(1).Cells.Copy ActiveSheet.Range("A1").PasteSpecial xlPasteFormats ActiveSheet.Range("A1:G1").Value = Sheets(1).Range("A1:G1").Value Application.CutCopyMode = False Sheets(1).Select Application.ScreenUpdating = True End Sub ماشاء الله عليك أستاذي بارك الله فيك مزالت نقطه واحده والمتمثله في عند إضافة ورقه جديده تبقى الورقة محدده إلا إذا ضغطت بالماوس على الصفحة ينزع التحديد رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر فبراير 27, 2014 الكاتب مشاركة قام بنشر فبراير 27, 2014 اخى واستاذنا رجب اكوادك دائما تجبرنا على متابعة مشاركاتك دائما ما تبدع حينما تكتب ويعجز اللسان على ان يقول فيك ما تستحقه ولا نجد من الكلمات غير بارك الله فيك وزادك من علمه أستاذي إبراهيم بارك الله فيك على حضورك المشجع للأساتذه جزاك الله كل الخير محتاجك في موضوع مساعده في فورم رابط هذا التعليق شارك More sharing options...
أفضل إجابة رجب جاويش قام بنشر فبراير 27, 2014 أفضل إجابة مشاركة قام بنشر فبراير 27, 2014 تفضل أخى المصنف 4.rar 3 رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 27, 2014 مشاركة قام بنشر فبراير 27, 2014 أخى الفاضل / الجموعي شكرا جزيلا أخى الفاضل على هذه الكلمات الطيبة وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 27, 2014 مشاركة قام بنشر فبراير 27, 2014 أخى الحبيب / ابراهيم شكرا جزيلا أخى الفاضل على هذه الكلمات الطيبة وجزاك الله كل خير 1 رابط هذا التعليق شارك More sharing options...
الجموعي قام بنشر فبراير 27, 2014 الكاتب مشاركة قام بنشر فبراير 27, 2014 تفضل أخى يعجز اللسان عن شكرك أستاذي رجب جاويش بارك الله فيك وكثر الله من امثالك. رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 27, 2014 مشاركة قام بنشر فبراير 27, 2014 أخى الفاضل / الجموعي لا شكر على واجب أخى الفاضل بارك الله فيك رابط هذا التعليق شارك More sharing options...
محمد يوسف محمد1 قام بنشر فبراير 28, 2014 مشاركة قام بنشر فبراير 28, 2014 أخى الحبيب الغالى / رجب ايه الحلاوة دى والتمكن دة زادكم الله من علمه رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 28, 2014 مشاركة قام بنشر فبراير 28, 2014 أستاذنا الفاضل / محمد يوسف شرفنى جدا مرورك العطر وكلماتك الطيبة وجزاك الله كل خير رابط هذا التعليق شارك More sharing options...
حمادة باشا قام بنشر فبراير 28, 2014 مشاركة قام بنشر فبراير 28, 2014 الأستاذ الفاضل/رجب جاويش السلام عليكم ورحمة الله وبركاته كود رائع - جزاكم الله كل خير تقبل تحياتي رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 28, 2014 مشاركة قام بنشر فبراير 28, 2014 أخى الفاضل / حمادة باشا شكرا جزيلا أخى الفاضل على هذه الكلمات الطيبة وجزاك الله كل خير رابط هذا التعليق شارك 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.