طلب تعديل ع ملف اكسل

[Alalawi9]

السلام عليكم

 

طلبي هو

 

لديا ملف إكسل بيانات العميل وأريد إضافة زر وعند الضغط عليها يحفظ بإسم خلايا محدد للي تم إختياره

يعني يكون خلايا مثلاً A6 يحفظ بمحتواه تلقائياً بدون ما احدده أنا عند الضغط على الزر

 

 

كيف الطريقة بارك الله لكم؟

 

هذا موضوع تم قراته سابقاً ولكن مش مثل ما أطلبه

http://www.officena.net/ib/index.php?showtopic=39397

تم تعديل مايو 16, 2013 بواسطه Alalawi9

[Alalawi9]

للرفع

[حمادة عمر]

السلام عليكم

الاخ الكريم / Alalawi9

بارك الله فيك

من الافضل ارفاق ملف به مثال لما تريده بالضبط للعمل عليه كما تريد

ولكن اليك الكودين التاليين ... وهما للاستاذ / عباد ... ولكن تم التعديل الطفيف عليهم ليتناسب مع ما فهمته من الطلب

قم بربط الكود بزر وسيتم حفظ الملف علي D

** الكود الاول يقوم بحفظ الشيت الموجود فيه الخليه A6 فقط اي ينسخ الملف بشيت واحد فقط في ملف مستقل بالاسم الموجود في الخليه المذكورة

** الكود الثاني يقوم بحفظ نسخة من الملف كاملا بكامل شيتاته بالاسم الموجود في الخليه المذكورة

Sub copy_sh()
Dim F_FOL As String
  Application.ScreenUpdating = False
  F_FOL = "D:\"
  FName = Sheets("Sheet1").Range("a6").Text 
  With ActiveWorkbook
    Sheets("sheet1").Copy
    ActiveWorkbook.SaveCopyAs Filename:=F_FOL & FName & ".xls"
    ActiveWorkbook.Close False
    .Activate
  End With
  Application.ScreenUpdating = True
End Sub

الكود الثاني :

Sub copy_ALL_sh()
Dim F_FOL As String
  Application.ScreenUpdating = False
  F_FOL = "D:\"
  FName = Sheets("Sheet1").Range("a6").Text
  With ActiveWorkbook
    ActiveWorkbook.Worksheets.Copy
    ActiveWorkbook.SaveCopyAs Filename:=F_FOL & FName & ".xls"
    ActiveWorkbook.Close False
    .Activate
  End With
  Application.ScreenUpdating = True
End Sub

ارجو ان يفي بطلبك

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

[ضاحي الغريب]

بارك فيك وجزاك خيرا

اخي الحبيب // حمادة عمر

سبقتني كنت في طور رفع الملف

تقبل تحياتي

[حمادة عمر]

السلام عليكم

الاخ الحبيب / ضاحي الغريب

بارك الله فيك

دائما تسبقنا اخي الكريم لفعل الخير والمساعدة للجميع

ولكن ... سبقتك هذه المرة ... هههه

ولكن الاكيد ان ملفك سيكون راائع

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

[Alalawi9]

وعليكم السلام

كيف حالك أخي الكريم والله أفضل عضو وسجلت بالموقع عشانك انت وشفت مواضيعك وردودك المفيده أشكرك يا غالي وبالفعل خبير جداً يا بطل وأستمر..

 

بس حطيت الكود في زر لكن يطلع مشكلة

[Alalawi9]

هذا ملف اكسل موضح عليها مثل ما طلبت أستاذي

111.zip

تم تعديل مايو 17, 2013 بواسطه Alalawi9

[احمد عبد الناصر]

السلام عليكم

 

تحياتي للجميع 

 

جرب بدل هذا 

  FName = Sheets("Sheet1").Range("b3").Text

بهذا  

  FName = Range("b3").Text

او غير كلمة sheet1   ب ورقة1  حسب ملفك

 

تحياتي

[Alalawi9]

شكراً لك

 

جربتها نفس المشكلة؟

[حمادة عمر]

السلام عليكم

الاخ الكريم / Alalawi9

بارك الله فيك

وجزيل شكري وامتناني علي كلماتك التي لا اجد من الكلمات ما ارد به عليك ليوفيك حقك في الثناء

وجعلني الله دائما عند حسن ظنكم ....

جرب اخي الكريم الملف المرفق الخاص بك .. تم وضع الكود فيه ويعمل بالطريقة المطلوبة

 

والشكر موصول لاخي الحبيب / احمد عبد الناصر ... جزاه الله خيرا

 

** ملحوظة : الحفظ يتم علي بارتيشين الـ D

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

 

 

111+.rar

[Alalawi9]

جزاك الله الف الف الف خير أخي الكريم

يسعدني يا غالي بموجودك معنا ونتمنى لك التوفيق والسداد وشكراً لك  ودي وردي

 

تم حل المشكلة بفضل الله ثم أنت....

تم تعديل مايو 17, 2013 بواسطه Alalawi9

[حمادة عمر]

السلام عليكم

الاخ الكريم / asdawy

بارك الله فيك

الملف موجود في المشاركة رقم 10#

في الاسفل

 

السلام عليكم

الاخ الكريم / Alalawi9

بارك الله فيك

وجزيل شكري وامتناني علي كلماتك التي لا اجد من الكلمات ما ارد به عليك ليوفيك حقك في الثناء

وجعلني الله دائما عند حسن ظنكم ....

جرب اخي الكريم الملف المرفق الخاص بك .. تم وضع الكود فيه ويعمل بالطريقة المطلوبة

 

والشكر موصول لاخي الحبيب / احمد عبد الناصر ... جزاه الله خيرا

 

** ملحوظة : الحفظ يتم علي بارتيشين الـ D

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

 

 

111+.rar

 

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

[Alalawi9]

ايش قاعد تدور يا asdawy والمشكلة انحلت

وشكراً لك أخي حمادة

[حمادة عمر]

الاخ الكريم / Alalawi9

بارك الله فيك

من الواضح ان الاخ / asdawy لديه مشكلة في المتصفح لديه ولاتظهر لديه المرفقات

الحمد لله انك اهتديت لما تريد

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