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

[samycalls]

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

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

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

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

تم تعديل مارس 19, 2012 بواسطه alidroos

[samycalls]

أخى الفاضل الكريم نسخت الكود داخل المديول ولكنه لايعمل .. ارجو التوضيح

[طارق محمود]

السلام عليكم

أخي / سامي

أرسل الملف

ولو فيه أسرار شغل أو بيانات لاتريد اطلاع احد عليها ، إمسحها وضع بيانات وهمية

[samycalls]

تلخيص الموضوع أنه باستخدام فورم للبحث لا يصلح البحث عن أسماء اذا كانت منقولة بالمعادلة .. لذلك طلبت كود نسخ القيمة الناتجة ..

تجارة.rar

[طارق محمود]

السلام عليكم

مرفق الملف وبه كود الأستاذ عبدالله حفظه الله

يعمل جيدا ولامشاكل

تجارة.rar

[samycalls]

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

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

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

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

[الـعيدروس]

السلام عليكم

الاخ سامي

راجع هذا الرابط

مشاركة رقم 26

به ماتريد وأكثر

http://www.officena.net/ib/index.php?showtopic=40731&st=20