بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'تعديل لكود نسخ'.
تم العثور علي 1 نتيجه
-
هذا الكود المراد أن ينسخ ما فى الورقة بيانات الى الورقة استعلام وهذا الكود يقوم بعمله وينسخ بالفعل ولكن بنفس ماهو موجود فى ورقة بيانات ، وورقة بيانات تحتوى على بيانات جميعها واردة بالمعادلات من ملف أخر ولذلك المطلوب أن ينسخ ما فى الورقة بيانات الى الورقة استعلام كقيم فقط موجودة كناتج فى خلايا ورقة بيانات وليس بنسخها كما هى معادلات . Sub macro2() On Error Resume Next Application.ScreenUpdating = False Dim S_ALI As Worksheet Dim X_ALI& Dim R_ALI As Range ("بيانات") Set S_ALI = Sheets ActiveSheet.Range(Cells(7, 2), Cells(Rows.Count, 9)).Clear With S_ALI X_ALI = .Cells(Rows.Count, "R").End(xlUp).Row Set R_ALI = .Range("B7:R" & X_ALI) R_ALI.Copy ActiveSheet.[b7] Application.CutCopyMode = False End With Application.ScreenUpdating = True UserForm1.Show 0 End Sub
