اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

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

 

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

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

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

field =3

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

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

 

2.rar

2.rar

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

بالتوفيق اخى

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

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

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



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

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

Important Information