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

شكرا الك اخ علي هذا طلبي وزيادة يعطيك العافية وشكرا جزيلا

اسف اخي هذا المرفق المطلوب جمع ناتج في ورقة 4 المصنف1.xlsx

سلام عليكم اخواني لدي دالة =SUMIF($F$1:$F$500,B19,$G$1:$G$500) وهي تفيد بالبحث في F1:F5 حسب الاسم الموجود فيB19 وجمع الارقام الموجودة مقابلها في G1:G500 وهي فعالة في حساب بصفحة واحدة المطلوب تحويل هذه الدالة لتقوم بجمع الناتج من عددت صفحات محددة مثال من sheet4:sheet35 ارجو المساعدة

نشالله حوالي ساعة ساقوم بانشاء ملف

استاذ سليم يصعب عليي رفع ملف لكن توصلت الى هذا الكود Dim cll As Range 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("g2").Value Then x2 = x2 + 1 If C.Value = Range("g3").Value Then x3 = x3 + 1 If C.Value = Range("g4").Value Then x4 = x4 + 1 Next Next Range("k2") = x2 Range("k3") = x3 Range("k4") = x4 End Sub وهو يعمل لكن لدي 500 سطر من الكتابة هل يمكن اختصار ذالك بكود يكرر هذه الدالات من g2 الى ل500 ولك جذيل الشكر واذا لا بد من رفع ملف اخبرني لاقوم بتصميم ملف يشبه طلبي لان الملف الذي اقوم بتعديل عليه يوجد به ملفات وحسابات لايكنني رفعها ارجو التفهم ولك جذيل الشكر استاذي سليم حاصبيا

سلام عليكم لدي كود مهمته احصاء المواد من مجموعة شتات وجمع المواد ووضع الناتج في صفحة مستقلة وهو يعمل مع صنف واحد لكن لا يمكنني اضافة اكتر من صنف Dim cll As Range 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("g24").Value Then x = x + 1 حيث انا ring24 هو اسم المادة Next Next Range("k24") = x وهنا يضع الناتج في صفحة الجرد End Sub المطلوب ان اتمكن من اضافة عدد كبير من المواد مثال Dim cll As Range 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("g24").Value Then x = x + 1 If C.Value = Range("g25").Value Then x = x + 1 If C.Value = Range("g26").Value Then x = x + 1 If C.Value = Range("g27").Value Then x = x + 1 Next Next Range("k24") = x Range("k25") = x Range("k26") = x Range("k27") = x End Sub حاولت بهذه الطريقة لكن الناتج يظهر موحد ببسب انا المتغير نفسه وهو x ارجو رد السريع واذا كان يوجد طريقة او كود اسلس من هذا او اخف عناء افادتي به

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

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

شكرا على الرد اريد تجميد التكست بوكس فقط ولا اريد تجميد الصف الاول

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

اسف جدا على تاخر على الرد بسبب انقطاع الانترنت وشكرا اخ ياسر على ايجاد الحل

سلام عليكم احبائي اعضاء اوفسينا الكرام ارجو منكم الاجابة على سؤالي وهو لدي صورة في صفحة الاكسل واريد ان تظهر على يوزر فورم بدون وضعها في مجلد خارج صفحة الاكسل حاولت استعمال الكود التالي في فورم ولم يفلح Me.Image1.Picture = Worksheets("sheets1").Shapes("Picture 83"( ارجو ان يكون هناك حل وارجو اخباري ايضا اذا كان الامر مستحيل

مجهود رائع شكرا اخ مختار

شكرا لكم اخوتي على الاضافة الرائعة

اخي ممكن تعديل ليقبل الويندوز ب64 بت لانه الكود مخصص ل32بت