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

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

اسف اخي هذا المرفق المطلوب جمع ناتج في ورقة 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بت

عمل رائع لكن لدي طلبين وارجو الرد الطب الاول هل يمكن استبدال الضغط على f2 بخيار اخر وليكن عند تحديد الخلية e6 الطلب الثاني ان يقوم بجلب البيانات من sheet اخر بدل ان تكون البيانات بنفس الsheet الموجود فيه مربع البحث ارجو الرد السريع

شكرا جدا على مجهودك

طلاباتي كثيرا جدا انا اعلم ولكن ليس لي ملجى بعد الله غير منتداكم الغالي طلب هو اني انقل ناتج فورم الى textbox في صفحة الاكسل حيث اني قدرت انقل ناتج الفورم الى خلية في الصفحة ولكن انا اريد نقله الى textbox كالعادة يوجد ملف اكسل لشرح المصنف1.rar

شكرا اخ سليم على تلبيت المساعدة وشكر خاص لمبدعنا الاخ ابو البراء ​سلمت يداكم

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

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

انا عارف انه الطلب صعب بعض الشيئ لكن كل املي تجدو لي حل باقرب وقت

السلام عليكم وكل عام وانتم بخير تم طرح من فترة موضوع من قبل الاخ ابو البراء عن تغيير خصائص القائمة المنسدلة بإدراج كومبوبوكس وهي طريقة جميلة وممتازة وتعمل في نطاق صفحة واحدة لكن طلبي هو اني اقدر استخدم صفحتين بدل صفحة واحدة اي اني اقوم بوضع صفحة مخصصة لاسماء المواد وفي الصفحة الاخرى تكون القائمة المنسدلة يعني الكود vba عاوز تعديل ليعمل على صفحتين في شرح مرفق مبيع.rar

ممكن تطبيق الدالة على صفحة المرفقة في الشرح جزاك الله خيرا

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