حفظ فاتوره

[الشيباني1]

اخواني الاعزاء تحية طيبه ارجو المساعده في حفظ الفاتوره في المرفق بتفاصيلها المكونه في الخليه(a1) في :E:\New folder مع الامتنان والشكر علما انني استخدم اوفيس  2003

تكوين رقم فاتوره.rar

[احمدزمان]

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

 

ممكن توضح اكثر مامعنا

 

 

:E:\New folder

 

انا مش فاهم

[احمدزمان]

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

 

اخي الفاضل

على قدرفهمي البسيط لطلبك

 

في المرفق

 

اضغط اولا زر تحديد مجلد الحفظ - ثم حدد المجلد الذي تريد حفظ الفواتير به - سوف يبقى هذا المجلد ثابت لحفظ كل الفواتير اللاحقة

 

بالضغط علىر حفظ برقم يتم التالي

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

ثبيت كل القيم الموجودة في الفاتورة حيث يتم تحويل كل الدوال و المعادلات الى قيم ثابتة

اغلاق كل الخلايا في الورقة

حماية الرقة

حفظ الملف بالإسم المطلوب في المجلد المحدد سابقا

اغلاق الملف الجديد

     ActiveSheet.Copy
    ActiveSheet.UsedRange.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.Locked = True
    ActiveSheet.Protect
FN = ActiveSheet.Range("E1").Text
    ActiveWorkbook.SaveAs Filename:=FN, FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False

أتمنى ان يكون به المطلوب

تكوين رقم فاتوره.rar

[الشيباني1]

استاذنا القدير مع شكري وتقديري لم يتم التوصل الى الغاية المطلوبه رغم تطبيق التوجيهات بحذافيرها حيث ادرجت مجلد الحفظ في (E:new folder) وتم تكوين الرقم ولكن لم يتم الحفظ والنص الذي يؤشر بالاصفر ضمن الكود  هو :        ActiveWorkbook.SaveAs Filename:=FN, FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False                       ActiveWorkbook.SaveAs Filename:=FN, FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=Fal