تحية طيبة وبعد...
ارجوا من حضرتكم التكرم بتوضيح طريقة عمل بحث في البيانات المدخلة.وذلك في ملف اكسل.
لقد قمت بالبحث في المشاركات السابقة , ووجدت مااريد موجد كجزء من ذلك البرنامج المذكور في تلك المشاركة.ولكن لست ادري كيف استطيع استخدامه..حيث قمت بنسخة وتغير الخلايا المحددة ولكن لم يجدي ذلك شيئا.
فارجوا ممن يستطيع من حضرتكم المساعدة.ان يعلمني كيف استخدم ذلك الكود بشكل مستقل,واتمنى ان يكون ذلك مع شرحه.
شاكراً حسن تعاونكم ودمتم بخير.
الموضوع المذكور فيه الكود...
برنامج السيد.احمد زمان
وبإستخدام التصفية التلقائية اصبح يمكننا عمل بحث سريع لأي صنف باستخدام الكود المختصر او كود الصنف او جزء من اسم الصنف او سعر البيع للصنف
وذلك باستخدام الكود التالي
كود
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Next
If Target.Row <> 1 Then Exit Sub
Range("A3:A777").AutoFilter Field:=1, Criteria1:="=" & "*" & [D1] & "*", Operator:=xlOr _
, Criteria2:="="
If [D1] = "" Then ActiveSheet.ShowAllData
Range("D1").Select
Activewindow.SmallScroll Down:=-999
End Sub
