تسمية الشيت بتسميه محدده

[علي بن علي]

المطلوب كود نسخ الورقه وتسمية الشيت

وهو عند ترحيل الورقه ان يكون للأسم للشهر

ب ١ و ٢

كمثال jan23-1

وعند الترحيل يكون الاسم الجديد

كمثال ٢-jan23

 

اي الشهر يقسم لأسمين فقط

الشرح والتوضيح داخل الملف المرفق

تكون التسميه هكذا 

اضافة ورقة جديدة بتسمية معينة.xlsm

[saad abed]

اخى

اكتب انت اسم الورقة

Private Sub CreateSheet()
    Dim ws As Worksheet
    ss = InputBox("name is ........")
    Set ws = Sheets.Add(After:=Sheets(Sheets.Count))
     ws.Name = ss
End Sub