وجدي الحاج علي قام بنشر نوفمبر 11, 2016 مشاركة قام بنشر نوفمبر 11, 2016 سلام عليكم اريد كود لبحث التلقائي في 31 شيت بحيث يقوم بالبحث في جدول f3:f65 موجود في ل31 شيت والبحث يكون عن قيم محددة مثال اريد ان ابحث عن صنف ولتكن "قلم رصاص" فيظهر ناتج البحث برقم تكرار الصنف وليكون 5 اي انه يوجد 5 من قلم الرصاص في 31 شيت الفكرة هي لجرد البضاعة المباعة لدي في 31 يوم بحيث اعلم كم قطعة مباعة من اي صنف ارجو الرد السريع رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر نوفمبر 11, 2016 مشاركة قام بنشر نوفمبر 11, 2016 السلام عليكم ربما يكون بهذه الطريقة في غياب ملف مرفق 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 رابط هذا التعليق شارك More sharing options...
وجدي الحاج علي قام بنشر نوفمبر 17, 2016 الكاتب مشاركة قام بنشر نوفمبر 17, 2016 شكرا جدا على المعادة لكن اريد ان يقوم بالبحث بشتات محددة وليس في جميع الصفحات وشكرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.