أرجو مساعدتكم في كود ومعادلة

[خالدو]

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

أخواني الكرام ارجو المساعدة في عمل الملف .... التفاصيل في الملف المرفق.

حتى استطيع اكمال البرنامج المطلوب مني .

وجزاكم الله خيراً

Main.rar

[يحيى حسين]

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

بخصوص طلبك الأول فقط قم بالتعديل على المعادلة بدل رقم 1 ضع الرقم 5

=MID(CELL("filename"),SEARCH("[",CELL("filename"))+1, SEARCH("]",CELL("filename"))-SEARCH("[",CELL("filename"))-5)

[يحيى حسين]

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

و استخدم اخي هذا الكود لإنشاء ملفات حسب قيم الخلايا في المدى B

Sub Excel4Us()

Dim LastR As Long, c As Range, Fname As String

LastR = Range("b" & Rows.Count).End(xlUp).Row

Application.DisplayAlerts = False

For Each c In Range("b3:b" & LastR)


	Fname = ThisWorkbook.Path & "\" & c.Value & ".xls"

	Workbooks.Add

	On Error Resume Next

	ActiveWorkbook.SaveAs Fname

	On Error GoTo 0

	ActiveWorkbook.Close

Next c

Application.DisplayAlerts = True

End Sub

======

دمتم في حفظ الله

[خالدو]

جزاكم الله خيراً وأحسن إليكم

جربتها ونفعت ولله الحمد.

وأكرر الشكر.

[خالدو]

الأخ العزيز يحيي

الكود بيعمل نسخ من الملف المرفق نفسه ولكنني اريده أن يعمل النسخ من الملف : 100121.xls

الموجود في المسار :

C:\Khaledo

والنسخ توضع في نفس المكان حسبما هو موجود بالعمود B

وشكراً

[احمد حمور-ابوعبدالله]

اخي يحيى حسين ماشاء الله عليك مبدع بحق والله

فاسمح ان اجيب للسائل

اخي الكريم

انت تقول ان الفولدر موجود في المسار c

ضع التعديلات المعطاه من اخي الحسامي في الملف

ومن ثم اغلق الملف وانسخه في الفولدر الموجود في المسار c ومن ثم غير اسم الملف الى 100121

وبعدها جرب العمل

[خالدو]

ربما لم استطع شرح المطلوب بشكل واضح واعتذر عن ذلك

الملف المطلوب نسخه ليش هو الملف الذي يتم فتحه (ليس ملف قاعدة البيانات المرفق).

المطلوب هو نسخ ملف آخر غيره تماماً موجود في المسار المشار إليه أعلاه.

وجزاكم الله خيراً وأكرر أسفي.