يحيى حسين

السلام عليكم و رحمة الله أخي نحن هنا و لكني بصراحة لم استطع فهم طلبك لحد الآن

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

الأخ أو الاخ بيان انا لم افهم ما هو طلبك يا ريت لو توضح اكثر الأخت koromtom قم بضغط ملفك ببرنامج win Rar ثم قم برفعه

السلام عليكم و رحمة الله اخي انت لست بحاجة لاي Add-in من تاب dara اختر from web ضع رابط الموقع ثم اضغط Go و سيظهر لك الموقع بعد ان تختار الجدول داخل صفحة الموقع حيث ستظهر لك اسهم صفراء ستساعدك في عملية التحديد ثم اضغط Import دمت في حفظ الله

السلام عليكم و رحمة الله اخي سبب تكرار الاسماء لانك قمت بتعريف مدى اسمه acc1 و هو المدى الذي يقرأ اسماء الحسابات من صفحة الحركات و هذا ما سبب التكرار و لحله قم بتعريف مدى في الصفحة الاولى و به الاسماء غير مكرره

السلام عليكم و رحمة الله و بركاته أخي جرب المعادلة التالية =COUNTIF(A1:A10,"?*")

السلام عليكم و رحمة الله أخي هذه الأقواس {} يقوم الإكسيل بإضافتها تلقائياً و لا تضاف يديوياً و هي تعني أن المعادلة الموجودة معادلة صفيف Array Formula و حتى يتعرف الإكسيل عليها على أنها معادلة صفيف يجب بعد كتابة المعادلة أو نسخها أو تعديلها أن تضغط على الأزرار التالية Ctrl و تبقى مستمراً في الضغط و تضغط Shift و تبقى مستمراً في الضغط و تضغط ُEnter و عندها سيتعرف الإكسيل على أنها معادلة صفيف و تعطي الناتج الصحيح دمت في حفظ الله

السلام عليكم و رحمة الله و بركاته أخي الحبيب كما ذكر الاخ طارق كل من يشارك هنا يشارك بدون وجود أي نية في إحتكار أعماله فا أعمالنا كلها متاحة لك و لغيرك من الأخوة طالما انا هناك فائدة من نشرها نسأل الله لك التوفيق في موضوعك دمت في حفظ الله

السلام عليكم و رحمة الله و بركاته إضافة لحل الأخوين بن علية و أبو احمد هذا حل آخر بإستخدام معادلة الصفيف التالية =SUM(IF(A3:A11=A1,B3:B11)) و لا تنسى الضغط على Ctrl+Shift+Enter ============= أما في حال رغبتك في عرض النتائج للقيم المكررة للقيمة موضع البحث في الخلية D1 ضع المعادلة التالية و هي معادلة صفيف أيضاً =IF(COUNTIF($A$3:$A$11,$A$1)>=ROW(1:1),INDEX($A$3:$A$11,SMALL(IF($A$3:$A$11=$A$1,ROW($A$3:$A$11)-ROW($A$3)+1),ROW(1:1))),"") و في الخلية E1 ضع المعادلة التالية : =IF(COUNTIF($A$3:$A$11,$A$1)>=ROW(1:1),INDEX($B$3:$B$11,SMALL(IF($A$3:$A$11=$A$1,ROW($A$3:$A$11)-ROW($A$3)+1),ROW(1:1))),"") ========================== دمت في حفظ الله

السلام عليكم و رحمة الله و بركاته أخي قم بحفظ الملف بصيغة CSV CSV(Comma delimted).CSV و سيعطي النتيجة حسب طلبك PART_NO,GRP_LVL_NO,AV_COST,UCODE,STK_NO,SUP_NO,SAL_PRICE,SEG1,SEG2,SEG3,SEG4,SEG5,SEG6,SEG7,SEG8,SEG9,SEG10,SEG11,SEG12,SEG13,SEG14,SEG15,SEG16,SEG17,SEG18,SEG19,SEG20 804060K1,10101,,1,1,,695,WA,KM,G,GUDS83,DCBLBL,,,CCSV10,CFPO,,CMME03,BTSTST,BCBLBL,BFGR,BMGLGL,MTQZ01,MFMLML,WR8,, 804060K2,10101,,1,1,,695,WA,KM,G,GUDS83,DCBWBW,,,CCSV10,CFPO,,CMME03,BTSTST,BCBWBW,BFGR,BMGLGL,MTQZ01,MFMLML,WR8,, 804060K3,10101,,1,1,,695,WA,KM,L,GULJ155,DCCH,,,CCGD04,CFPO,,CMME03,BTBRBR,BCGD06,BFSN,BMSS,MTQZ01,,WR6,, 804060K4,10101,,1,1,,695,WA,KM,L,GUTR40,DCAP,,,CCGD04,CFPO,,CMME02,BTBRBR,BCGD06,,BMME02,MTQZ01,,WR6,, 804060K5,10101,,1,1,,695,WA,KM,G,GUSS45,DCSVSV,,,CCSV10,CFBR,,CMME03,BTBRBR,BCGD06,BFBR,BMSS,MTQZ01,MFCHCH,WR10,, 804060K6,10101,,1,1,,720,WA,KM,G,GUDSDS,,,,,,,,,,,,MTQZ01,,,,

السلام عليكم و رحمة الله أخي شاهد الرابط التالي http://www.4shared.com/file/jnp0jBwX/______.html أتمنى ان يفي بطلبك

السلام عليكم و رحمة الله اخي هانكوك فكرة جميلة جزاك الله كل خير

السلام عليكم و رحمة الله أخي ابو عاصم قمت بتصميم هذا الملف و به اربع صفحات غير الصفحة الرئيسية صفحة yahya كلمة السر aaa صفحة Ali كلمة السر bbb صفحة Yousef كلمة السر ccc صفحة Excel4Us كلمة السر ddd جربه و أعلمني بالنتيجة دمت في حفظ الله حماية الصفحات بكلمة سر.rar

السلام عليكم و رحمة الله شاهد هذا الرابط للأخ عماد الحسامي http://www.officena.net/ib/index.php?showtopic=35051 فيه فكرة قريبة لطلبك دمتم في حفظ الله

السلام عليكم و رحمة الله و بركاته اخي حل ملفك باستخدام الدالة vlookup في الصفحة الثالثة في الخلية c5 ضع المعادلة التالية =VLOOKUP(C5,ورقة2!$B$2:$C$495,2,0) ثم اسحبها للاسفل و في اخلية E5 ضع المعادلة التالية ثم اسحبها لليمين و للاسفل =VLOOKUP($C5,ورقة1!$B$8:$H$603,COLUMN(C1),0) دمت في حفظ الله

السلام عليكم و رحمة الله أخي جبريل إضافة لحل الاخ بن عليه هذا حل أخر بطريقة أخرى =INDEX($C3:$N3,0,MATCH(MAX(FREQUENCY(IF($C3:$N3<>"",MATCH($C3:$N3,$C3:$N3,0)),COLUMN($C3:$N3)-COLUMN($C3)+1)),FREQUENCY(IF($C3:$N3<>"",MATCH($C3:$N3,$C3:$N3,0)),COLUMN($C3:$N3)-COLUMN($C3)+1),0)) و لطلبك الثاني قمت بعمل الكود التالي جربه على ان تكون البيانات التي ترغب في نسخخها في العمود A و تريد نسخها الى b Sub Excel4Us() Dim LR As Long, i As Integer, r As Integer LR = Range("a" & Rows.Count).End(xlUp).Row r = 0 For i = 1 To LR Step 2 r = r + 1 Range("b" & r).Value = Range("a" & i).Value Next i End Sub دمت في حفظ الله

السلام عليكم و رحمة الله أخي لا يوجد أي عدد زائد لكن هذه الدالة تحتاج لرقم تب>ا منه و هو الرقم 2 ثم عدد الأحرف التي ستقتطعها و هو الرقم 1 فلا يوجد اي شيء زيادة

السلام عليكم و رحمة الله جرب هذا الكود أخي Private Sub TextBox1_Change() TextBox2.Value = Mid(TextBox1.Value, 2, 1) End Sub

السلام عليكم و رحمة الله أخي كيماس جرب معادلتي و هي نفس معادلتك و ستجد انك لست بحاجة لتكرار mid

السلام عليكم و رحمة الله اخي لقد تم توزيع الذمم على الفترات و كان الرصيد مطابق لطلب بحيث ان رصيد ذمة العميل مساوي لتوزيع الذمم حسب الفترة اما موضوع الأقدمية فالتاريخ يحتسب حسب الأقدمية عذراً لكني ارى ان الملف يفي بطلبك الا اذا كان هناك شيء غير واضح

السلام عليكم و رحمة الله أخي طلبك غير واضح يا ريت لو ترفق ملف حتى يتم العمل عليه دمت في حفظ الله

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

السلام عليكم و رحمة الله أخي طارق كود جميل جدا جزاك الله كل خير جاري التجربة عليه جزاك الله كل خير

السلام عليكم و رحمة الله و بركاته أخي جرب معادلة الصفيف التالية =AVERAGE(SMALL(D$9:D$38,ROW(INDIRECT("1:"&(ROUND(COUNT(D$9:D$38)/4,0)))))) لا تنسى الضغط على Ctrl+Shift+Enter

السلام عليكم و رحمة الله أخي هذا النوع من الدوال يعرف بإسم الدوال المعرفة بواسطة المستخدم و هي عبارة عن كود يجب أن تضيفه الى ملف الإكسيل الجديد الذي ترغب في العمل عليه و لمعرفة كيف يتم نسخ الكود للملف الجديد شاهد التدوينة التالية http://excel4us.com/blog/?p=237 دمت في حفظ الله