اذهب الي المحتوي
أوفيسنا

تعديل لكود نسخ


الردود الموصى بها

هذا الكود المراد أن ينسخ ما فى الورقة بيانات الى الورقة استعلام

وهذا الكود يقوم بعمله وينسخ بالفعل ولكن بنفس ماهو موجود فى ورقة بيانات ، وورقة بيانات تحتوى على بيانات جميعها واردة بالمعادلات من ملف أخر

ولذلك المطلوب أن ينسخ ما فى الورقة بيانات الى الورقة استعلام كقيم فقط موجودة كناتج فى خلايا ورقة بيانات وليس بنسخها كما هى معادلات .

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

رابط هذا التعليق
شارك

السلام عليكم

تفضل


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.Range("B7").PasteSpecial xlPasteValues

Application.CutCopyMode = False

End With

Application.ScreenUpdating = True

UserForm1.Show 0

End Sub

تم تعديل بواسطه alidroos
رابط هذا التعليق
شارك

الأخ الكريم طارق محمود السلام عليكم ..

كود الأستاذ عبدالله حفظه الله أدى المطلوب وكل شكرى وامتنانى .

وأريد ان أمكنك على نفس الملف السابق بعد اضافة كود السيد / عبد الله أن نزيد عدد الأعمدة فى ال listbox حتى تكون عشرين عموداً .

حاولت التحايل على هذا الموضوع بجمع أكثر من عمود فى العمود الواحد ولكن هذا الأمر غير جيد ويظهر لك هذا فى الكود الموجود فى الفورم .

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information