تعديل في كود نسخ شيت

[yasse.w.2010]

الاساتذه الكرام

السلام عليكم ورحمة الله وبركاته

ارجو من حضراتكم تعديل هذا الكود بحيث عند نسخ الشيت يتم اضافته في اخر شت وليس بعد شيت رقم 10

شاكر جدا لكم

 

 Sheets("نموذج").Select
    Sheets("نموذج").Copy After:=Sheets(10)
    Range("C4").Select

 

 

تم تعديل يناير 17 بواسطه yasse.w.2010

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته 

Sub test()
LastSheet = Sheets.Count
Sheets("نمودج").Copy after:=Sheets(LastSheet)
End Sub

 نسخ و اعادة التسمية 

Sub test2()
Dim F As Variant
LastSheet = Sheets.Count
On Error Resume Next
    Sheets("نمودج").Copy after:=Sheets(LastSheet)
    F = InputBox(prompt:="أكتب إسم الورقة الجديد", _
        Title:="إعادة تسمية ورقة " & " " & ActiveSheet.Name)
    ActiveSheet.Name = F
End Sub
'قم بتعديله بما يناسبك
Sub test3()
LastSheet = Sheets.Count
On Error Resume Next
Sheets("نمودج").Copy after:=Sheets(LastSheet)
 ActiveSheet.Name = Sheets("TEST").Range("c4").Value
End Sub

 

نمودج.xlsb

تم تعديل يناير 17 بواسطه محمد هشام.

[yasse.w.2010]

الف شكر لحضرتك يا استذنا 

كود واللهي ممتاذ

الف شكر يا استاذ محمد 

الف شكر منتدانا الغالي اوفسينا

الف الف الف شكر لحضرتك 

كود ممتاذ

تم تعديل يناير 17 بواسطه yasse.w.2010

[محمد هشام.]

العفو اخي يسعدنا اننا استطعنا مساعدتك 😄

 

تم تعديل يناير 17 بواسطه محمد هشام.