تعديل على الكود

[ابراهيم ابراهيم]

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

اخواني ما هو الجزء الذي يتحكم في عمود البحث في هذا الكود

 

Private Sub TextBox2_Change()
If TextBox2 = "" Then
AutoFilterMode = False
Else
Range("RN").AutoFilter , field:=3, Criteria1:=Right(TextBox2.Text, Len(TextBox2.Text)) & "*"
End If
End Sub

وهل يمكن نسخ النتيجة الى ملف جديد

 

بحث.rar

[وائل الاسيوطي]

field =3

3 هو رقم العمود الذي يتم فيه البحث لو غيرته هايتغير العمود الذي يتم البحث فيه 

[ابراهيم ابراهيم]

8 minutes ago, وائل الاسيوطي said:

field =3

3 هو رقم العمود الذي يتم فيه البحث لو غيرته هايتغير العمود الذي يتم البحث فيه 

شكرا للرد السريع حاولت قبل عرض الموضوع ولكن الملف يعطي رسالة خطا كما في الصورة المرفقة

 

2.rar

2.rar

[وائل الاسيوطي]

اخي الكريم الكود متعرف علي اسمه Rn  والمدي موجود داخل الملف   =Sheet1!$A$6:$D$75     يعني انت محدد الاعمده اللي هاتشتغل عليها 4 اعمده فالتالي لما تغير رقم العمود الي 8 لازم يعطي خطأ لانك ابعدته عن بيتها لاصلي 

[ابراهيم ابراهيم]

اشكرك أخي الكريم وجزاك الله خيرا

هل يمكن اضافة كود لترحيل نتيجة الفرز إلى ملف جديد لطباعته بنفس التنسيق

( A : P ) حسب النطاق

مع جزيل الشكر والتقدير

[أبوبسمله]

3 ساعات مضت, ibra-a said:

اشكرك أخي الكريم وجزاك الله خيرا

هل يمكن اضافة كود لترحيل نتيجة الفرز إلى ملف جديد لطباعته بنفس التنسيق

( A : P ) حسب النطاق

مع جزيل الشكر والتقدير

اخى الكريم اهلا بك فى منتدانا الغالى اوفيسنا

نرجو منك تغيير اسمك للغه العربيه حتى نتشرف باسمك ونناديك به وان يكون الاسم واللقب

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

تقبل تحياتى ومرورى

بالتوفيق اخى