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

alaagold11 · مايو 2, 2017

السلام عليكم

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

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

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

ولكم الشكر

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

**ابراهيم الحداد** · مايو 2, 2017

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

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

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

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

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

alaagold11 · مايو 3, 2017

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

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

وهو المطلوب

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

الردود الموصى بها