لجعل رقم الفاتورة بنفس إسم ملف الأكسل

[alaagold11]

السلام عليكم 

الأخوة العباقرة الأفاضل 

عندي ملف إكسل هو عبارة عن فاتورة ..... عاوز لما اخللي إسم الملف مثلا 1250 . يكتب في خانة الفاتورة داخل الملف 1250

ولو أخذت نسخة من الملف وغيرت إسم الملف مثلا وخلليته 2325 , فيكتب في خانة الفاتورة لما أفتح الملف 2325 

ولكم الشكر

تم تعديل مايو 2, 2017 بواسطه alaagold11

[ابراهيم الحداد]

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

بفرض انك خصصت الخلية "F3" لرقم الفاتورة

يمكنك تغيير مكان الخلية كما تشاء

انسخ هذا الكود والصقه فى حدث "ThisWorkBook"

Private Sub Workbook_Open()
Dim InvName As String
InvName = Left(ActiveWorkbook.Name, 3)
Sheet1.Range("F3") = InvName
End Sub

 

[alaagold11]

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

جزاك الله خير أخي زيزو 

وهو المطلوب 

تم تعديل مايو 3, 2017 بواسطه alaagold11