كلما انسخ ملف الاكسل في ملف اخر لا تعمل الدالة

[محبوب7]

السلام عليكم

 

كلما انسخ ملف الاكسل في ملف اخر لا تعمل الدالة الا اذا ذهبت مرة اخرى  الى المحرر vba 

 

هل ممكن طريقة لكي تعمل كلما نسخت ملف اكسل اخر

كود ارقام فواتير متسلسلة في الاكسل.rar

[قنديل الصياد]

الدالة مرتبطة بكود vb

فقط فم بنسخ الكود فى موديل فى الملف الجديد

الكود المستخدم

Function SheetNum(Optional celRef As Range) As Long
     
    With Application.Caller.Parent
        If celRef Is Nothing Then
            SheetNum = .Index
        Else
            SheetNum = celRef.Parent.Index
        End If
    End With
     
End Function