احمدزمان

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

السلام عليكم و رحمة الله وبركاته اسعد الله ايامك حاولت افهم المطلوب ماعرفت واحد فين في الرقم او العدد على اي حال شوف هذه الدالة =SUMIF(B5:C34;"*1 قطعة";D5:D34) تجمع لك عدد كل الأصفان التي ينتهي اسمها بــ "1 قطعة" ليه لأننا اضفنا النجمة قبل كلمة 1 قطعة

السلام عليكم لإثراء الموضوع بعد الشكر و التقدير للأستاذ الفاضل سليم هذا حل بنفس الطريقة التي ذكرها اخي سليم مع اضافة 1- اللون الأحمر للصنف المباع 2- نعديل العدد بعد كل عملية بيع تمت اضافة عامودين وتنسيق شرطي ترحيل بشرط اختيار الصنف_AZ.rar

السلام عليكم و رحمة الله وبركاته اخي طائع عندك نقطتين مهمة 1- انقاص المية المباعة من العدد 2- معرفة ما تم بيعة لعدم التكرار اخي سليم السلام عليكم اشكرك لإهتمامك وردك جزاك الله خيرا لم انتبه لردك الا بعد كتابة الرد السابق

شكرا لك اخي الحبيب الفاضل و الكريم فأنا اعلم انك مشغول جدا جزاك الله خيرا ازعجناك سيدنا جزاك الله خيرا على المحاولات اشكركم الإخوة allord و mohamad ========================================= ايضا انا حاولت كثيرا نزلت عدة برامج من النت و كذلك استخدمت بعض المواقع Confert on line و لكن للأسف بدون فائدة ========================== اقدر للجميع اهتمامهم و مساهمتهم بارك الله فيكم

اخي الفاضل حسين و عليكم السلام و رحمة الله وبركاته اسعد الله صباحكم بكل خير و لا يهمك نفعله قريبا ان شاء الله كل ما في الموضوع انني توقفت قليلا و لم اكمل انجاز بعض الأجزاء التي اعتبرتها ثانوية و غير هامه (انا كسلان)

و عليكم السلام و رحمة الله وبركاته اسعد الله صباحكم بكل خير 1- اريد حلا اسم فلم مصري قديم 2- سبق و ان اطلعت على الملف ولم اعرف منه ماهو المطلوب بالظبط - لذلك - مطلوب التوضيح و الشرح في داخل الملف ماذا تريد ان تفعل - ليسهل الحل 3- من الأفضل ان يكون طلبك في مشاركة جديدة لكي يصلك اكثر من حل من الإخوان و تختار الأفضل لك تحياتي وتقديري

اخي الحبيب ابو البراء جزاك الله خيرا على تعبك معي كشف بالسيارات المؤمنه حتى 9-11-2016.rar

و عليكم السلام و رحمة الله وبركاته جزاك الله خيرا عبى مرورك الكريم 1- تم الإغلاق عند 50 عميل لأنها نسخة تجريبية وهي يجب ان يكون حجمها صغير جدا - يمكنك تعديل النطاق للبيانات كما تريد و تكبر القائمة 2- من تحقق من صحة يمكنك تفعيلها او تغييرها الى بيانات اخرى 3- هي نسخة تجريبية لعمل الأفكار واخذ الخبرة منها مع التحية

‏الثلاثاء‏، 10‏/1‏/1438هـ الموافق ‏11‏/10‏/2016م السلام عليكم و رحمة الله وبركاته اخواني الأفاضل عندي ملف bdf اريد تحويله الى اكسل بحثت عن برنامج للتحويل وجدة عدة برامج ولكنها لاتحول بشكل صحيح خاصة الكتابه باللغة العربية لذلك من لديه برنامج تحويل يساعدني به او ممكن ارفق له الملف هنا ويحوله جزاكم الله خيرا على المساعدة مقدما

السلام عليكم و رحمة الله وبركاته مبدع دائما كعادتك جزاك الله خيرا وبارك الله فيك

السلام عليكم و رحمة الله وبركاته بعد الشكر الجزيل للأستاذ الفاضل سليم على الحل الجميل الذي ارفقة انا عدلت على حلي السابق ولكن و بكل صراحة حاسس كدة انه في حاجه مش 100×100 و الله اعلم حساب عدد الساعات.rar

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

السلام عليكم و رحمة الله وبركاته تم عمل الكود التالي Sub aHMDzMN() Dim FS As Worksheet, TS As Worksheet Dim SH, Q1, Q2, Q3, TR, ER, FR Set TS = Sheets(ActiveSheet.Name) Q1 = TS.Range("E1").Text 'ÔåÑ ÔÑßÉ Q2 = TS.Range("E2").Text 'ÔåÑ ãÄÓÓÉ Q3 = TS.Range("D1").Text 'ÇáÝÑÚ For SH = 1 To Sheets.Count If Sheets(SH).Name = Q1 Or Sheets(SH).Name = Q2 Then Set FS = Sheets(Sheets(SH).Name) TR = TS.Range("C5555").End(xlUp).Row + 1 ER = FS.UsedRange.Rows.Count For FR = 4 To ER If FS.Cells(FR, 18) = Q3 Then For C = 2 To 18 TS.Cells(TR, C) = FS.Cells(FR, C) Next C TR = TR + 1 End If Next FR End If Next SH End Sub اضغط زر البحث جرب المرفق وقول يارب برنامج-مرتبات تجريب.rar

‏السبت‏، 29‏/12‏/1437هـ الموافق ‏1‏/10‏/2016م كل عام و انتم بخير و صحة وعافية

‏السبت‏، 29‏/12‏/1437هـ الموافق ‏1‏/10‏/2016م الف الف مبروك لـأستاذي الفاضل يحيى حسين وبارك الله لك في علمك وزادك الله علما ونورا وايمانا

السلام عليكم طيب ممكن توضح ليه 0

و عليكم السلام و رحمة الله وبركاته طبعا ممكن هي القائمة فقط لتطابق المدخلات المطلوبة مثلا في المثال السايق من خانة اسم الكفيل اكتب ((محمد*)) سوف يظهر لك كل اسماء الكفلاء الذين يبدأ اسمهم بـ محمد وهكذا

السلام عليكم و رحمة الله وبركاته بالإضافة للحل الرائع و الجميل لأخونا سليم هذا حل آخر باستخدام الكود Sub surch1() Range("data01").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "order"), CopyToRange:=Range("output"), Unique:=False End Sub وبه خصائص كثيرة البحث بواحد من الخيارات استخدام البحث المتعدد بواسطة * فقط اضغط زر البحث search02salim.rar

السلام عليكم و رحمة الله وبركاته الطلب يحتاج للمزيد من الشرح لفهم المطلوب فهم السؤال نصف الإجابة مثلا ماهو وضع ساعات العمل التي هي خارج المدة من 17 الى 24 ========================================= على الرغم من ذلك مرفق حل على قدر فهمي يحسب الساعات الواقعة بين 17 و 21 و الساعات بين 21 و 24 حساب عدد الساعات.rar

‏الاثنين‏، 24‏/12‏/1437هـ الموافق ‏26‏/9‏/2016م السلام عليكم و رحمة الله وبركاته شاهد الحل المرفق عنده اعتمادية = تطابق (المالك × السيارة الجديدة × السيارة القديمة) =SUMPRODUCT((اعتماد!$B$1:$B$1111=مطابقة!$B2)*(اعتماد!$D$1:$D$1111=مطابقة!$D2)*(اعتماد!$F$1:$F$1111=مطابقة!$E2)) عنده تسهيل مهمة = تطابق (رقم السيارة القديم × اسم السائق) =SUMPRODUCT(('تسهيل مهمة'!$B$1:$B$1111=مطابقة!$E2)*('تسهيل مهمة'!$G$1:$G$1111=مطابقة!$C2)) آمل ان يكون به المطلوب مثال.rar

السلام عليكم و رحمة الله هذه فكرة من الفكرات للترحيل ارجو ان تفي بالغرض ترحيل فاتورة.rar

السلام عليكم و رحمة الله وبركاته اخي الفاضل 1- انا سبق وقمت بدمج المواضيع الثلاثة الماضية - ثم طلبت منك توضيح للمطلوب - ولكن كثرة المواضيع لن تفيد - في كل مرة تفتح موضوع جديد و به نفس الطلب 2- من الملف المرفق ورقة تسهيل مهمة - لايوجد بها - اسم المالك - رقم السيارة القديم ورقة اعتماد - لايوجد بها - اسم المالك --- اذا هناك نقص في المدخلات او تناقضات ========================== على اي حال ========================== الحل هو ياستخدام الدالة Sumproduct او استخدام الدالة countifs حيث تقوم هذه الدالتين بحساب عدد مرات التكرار لرقم اللوحة و اسم المالك و السائق معا في الجدول اذا كان الناتج اكبر من صفر اذا يوجد اعتمادية او يوجد تسهيل مهمة واذا كان الناتج صفر اذا لايوجد آمل ان يكون هذا الشرح مقيد خالص تحياتي

و عليكم السلام و رحمة الله وبركاته ((رد السلام واجب))

‏الاحد‏، 23‏/12‏/1437هـ الموافق ‏25‏/9‏/2016م السلام عليكم و رحمة الله وبركاته اسعد الله صباحكم بكل خير اخي الكريم في ورقة 'DATA BASE يتم تعديل نطاق البيانات من " ='DATA BASE'!$A$4:$P$1 الى ='DATA BASE'!$A$4:$P$9999 وهكذا يسمكن ان يستوعب الملف 9000 تسعة الآف طالب كما في المرفق الحذف هل تريد ان تحذف بيانات طالب طالب او اتريد حذف بيانات كل الطلبة مرة واحدة زر حفظ لم يبقى له اي دور هنا وذلك بناء على طلبك انه لايمكن اضافة اي طالب جديد كود نقل البيانات ومسحها بعد الحفظ.rar