بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'كود لعمل نسخة من الشيت'.
تم العثور علي 1 نتيجه
-
الساده / أعضاء المنتدى المحترمين السلام عليكم ورحمه الله وبركاته اليكم كود جميل لعمل نسخة فقط من الشيت المفعل ويحتفظ بالكود داخل الشيت الجديد وكل ما تحاول تفعل اى خلية بالشيت الجديد يقوم بعمل نسخة منه وهكذا من الممكن التحكم فيه لعمل نسخة واحده فقط اليكم الكود 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
