كود بحث مخصص

[وجدي الحاج علي]

سلام عليكم
اريد كود لبحث التلقائي في 31 شيت
بحيث يقوم بالبحث في جدول f3:f65
موجود في ل31 شيت
والبحث يكون عن قيم محددة
مثال
اريد ان ابحث عن صنف ولتكن "قلم رصاص"
فيظهر ناتج البحث برقم تكرار الصنف وليكون 5
اي انه يوجد 5  من قلم الرصاص في 31 شيت


الفكرة هي لجرد البضاعة المباعة لدي في 31 يوم بحيث اعلم كم قطعة مباعة من اي صنف
ارجو الرد السريع

[أبو حنــــين]

السلام عليكم

ربما يكون بهذه الطريقة في غياب ملف مرفق

Sub calcule()
Dim sh As Worksheet, C As Range, x As Integer
x = 0
For Each sh In Sheets
For Each C In sh.Range("F1:F" & sh.Cells(Rows.Count, 6).End(xlUp).Row)
If C.Value = Range("A1").Value Then x = x + 1
Next
Next
MsgBox x
End Sub

 

[وجدي الحاج علي]

شكرا جدا على المعادة
لكن اريد ان يقوم بالبحث بشتات محددة
وليس في جميع الصفحات
وشكرا