كود للحفظ باسم بناءا علي محتوي خلية

[عمرو ضياء الدين]

السلام عليكم ورحمة الله وبركاته
اعضاء ومديري المنتدي الكرام تحياتي لكم جميعا

اريد من سيادتكم كود لحفظ الملف باسم Save As  ولكن بامتداد Xlsx وايضا يكون الاسم الجديد للملف هو محتوي الخلية Sheet10!A1 كما هو مبين في المرفق

وتفضلو بقبول وافر الاحترام والتقدير

حفظ باسم.zip

[عبد الله بولنوار]

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

اعضاء ومديري المنتدي الكرام تحياتي لكم جميعا

اريد من سيادتكم كود لحفظ الملف باسم Save As  ولكن بامتداد Xlsx وايضا يكون الاسم الجديد للملف هو محتوي الخلية Sheet10!A1 كما هو مبين في المرفق

وتفضلو بقبول وافر الاحترام والتقدير

 

 

جرب

 

 

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

 

C:\ExcelFiles\

حفظ باسم.zip

[رجب جاويش]

السلام عليكم

أخى الفاضل عبد الله

تسلم ايديك

 

ولإثراء الموضوع

هذا الكود يحفظ نسخة من الملف فى نفس مسار الملف الأصلى

وبامتداد xlsx

Sub SaveAs()
 
Dim FName As String
Dim FPath As String
On Error Resume Next

If ActiveWorkbook.Sheets("sheet10").Range("A1") = "" Then
MsgBox "الخلية فارغة"
Exit Sub
End If

FName = ActiveWorkbook.Sheets("sheet10").Range("A1")
FPath = ActiveWorkbook.Path

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=FPath & "\" & FName, FileFormat:=51
End Sub

حفظ باسم.rar

[عمرو ضياء الدين]

بسم الله الرحمن الرحيم

اولا شكرا اخوتي واساتذتي الكرام علي مشاركتكم الرائعة جزاكم الله خير الجزاء
استاذي الفاضل / عبد الله بولنوار
الكود ممتاز ولكن يقوم بحفظ الملف بصيغة xlsm والمطلوب هو الحفظ بامتداد xlsx
ولك مني جزيل الشكر والاحترام استاذي

استاذي الفاضل الذي تعلمت منه الكتير / رجب جاويش
الكود رائع جدا ولكن اريد تعديل عليه ( رجاء وليس طلب )
وهو ان يتم عمل دالة في الخلية Sheet10!A1  وهي الدالة (Now) بحيث يكون اسم الحفظ متغير --- وتحدث مشكلة حينما اكتب هذه الدالة في خلية الاسم لا اعرف لماذا ويتم الحفظ بامتداد مبهم
وشكرا لكم اساتذتي الكرام

تم تعديل أبريل 14, 2015 بواسطه محمود عبد الجواد

[رجب جاويش]

السلام عليكم

شكرا أخى الفاضل محمود على هذه الكلمات الطيبة

 

بالنسبة لطلبك

الكود التالى يحفظ الملف باسم يدل على التاريخ والوقت كما طلبت أنت

وبالتالى لا داعى لوجود الدالة NOW  فى الخلية A1  فى شيت 10

فقد قمت بوضعها داخل الكود

Sub SaveAs()
Dim FName As String
Dim FPath As String

On Error Resume Next
FName = Format(Now(), "mm_dd_yyyy hh mm AMPM")
FPath = ActiveWorkbook.Path
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=FPath & "\" & FName, FileFormat:=51
End Sub

حفظ ملف باسم يدل على التاريخ والوقت.rar

[عمرو ضياء الدين]

السلام عليكم ورحمة الله وبركاته
اشكرك شكرا جزيلا اخي الاستاذ / رجب جاويش
وادعو الله لك بان يعطيك بكل حرف تعلمه لنا مثقال جبل احد حسنات
والله اخجل من كرمك
جزاك الله خيرا