كود لعمل نسخة من الشيت فقط المفعل

[محمود_الشريف]

الساده  / أعضاء المنتدى      المحترمين

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

اليكم كود جميل لعمل نسخة فقط من الشيت المفعل 

ويحتفظ بالكود داخل الشيت الجديد

وكل ما تحاول تفعل اى خلية بالشيت الجديد 

يقوم بعمل نسخة منه وهكذا

 

من الممكن التحكم فيه لعمل نسخة واحده فقط 

اليكم الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  
Dim wbTemp As Workbook

ActiveSheet.Copy

Set wbTemp = ActiveWorkbook

ActiveSheet.Cells.Copy
ActiveSheet.Range("a1").Select
Selection.PasteSpecial Paste:=xlValues

wbTemp.SaveAs ThisWorkbook.Path & "\" & "اسم الملف.xlsx", 51

wbTemp.Close

Set wbTemp = Nothing

End Sub

[؛ أحمد النجار ؛]

شكرا على الموضوع الرائع

 

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

[محمود_الشريف]

أخى فى الله

الأستاذ الكبير / أحمد النجار

بارك الله فيكم

وجزاكم رب العالمين عنا خير الجزاء

وتقبلوا منى وافر الإحترام والتقدير

[محمد ابو البـراء]

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

أخي الحبيب محمود الشريف

على موضعاتك المميزة

[أبو حنــــين]

اخي محمود

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

[محمود_الشريف]

 

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

أخي الحبيب محمود الشريف

على موضعاتك المميزة

 

أخى فى الله

الأستاذ الكريم والحبيب/ محمد ابو البراء

بارك الله فيكم

وجزاكم رب العالمين عنا خير الجزاء

وتقبلوا منى وافر الإحترام والتقدير

[محمود_الشريف]

اخي محمود

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

أخى فى الله

الأستاذ القدير والحبيب / أبو حنين

بارك الله فيكم

وجزاكم رب العالمين عنا خير الجزاء

وتقبلوا منى وافر الإحترام والتقدير

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

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

[محمود_الشريف]

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

أخى فى الله

الأستاذ الكريم / زيزو

بارك الله فيكم

وتقبلوا منى وافر الإحترام والتقدير