Ali Mohamed Ali

اخى الكريم لا يحدث معى اى مشكلة وشوف بنفسك -يمكنك استخدام هذا الكود بناءاً على مسميات الصفحات لديك Sub test() Sheets("casher").Range("A3:D18").Copy Sheets("sales").Range("A14:d25").PasteSpecial _ Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone End Sub 13.xlsm

تفضل هذا فيديو للشرح كان عليك استخدام خاصية البحث من البداية

وعليكم السلام-تفضل وعليك فقط بدراسة المعادلة الأساسية الموجودة بالعمود K وهو عمود رقم الكود ومهمتها الأساسية جلب رقم الكود دون تكرار وستجد ان باقى المعادلات معتمدة على هذه المعادلة -بارك الله فيك =IFERROR(INDEX($B$2:$B$600,MATCH(0,INDEX(COUNTIF($K$1:K1,$B$2:$B$600),),0)),"") الفاتورة.xlsx

وعليكم السلام-يمكنك استخدام هذه المعادلة لجمع الأرقام الموجبة =SUMPRODUCT(--($A$2:$A$1500>-1),$A$2:$A$1500) وهذه المعادلة لجمع الأرقام السالبة =-SUMPRODUCT(--($A$2:$A$1500<0),$A$2:$A$1500) جمع المبلغ بالسالب1.xlsx

بارك الله فيك وزادك الله من فضله

بارك الله فيك وزادك الله من فضله

وعليكم السلام .. تم تحرير عمود الكمية Y وفك تقييده , كما تم دمج المعادلات طبقاً للمطلوب بهذه المعادلة بعمود القيمة =IFERROR(IF($U5="نقلة",$Z5,IF(AND(Y5>=SUMIF(data!$A$18:$A$21,$AA5,data!$B$18:$B$21),$U5="طن"),($Y5*$Z5),$Z5*SUMIF(data!$A$18:$A$21,$AA5,data!$B$18:$B$21))),"") 12346.xlsm

وعليكم السلام-لا يوجد دالة اصلاً بهذا الإسم .... الدالة اسمها DATEDIF وليس Dateif

بارك الله فيك استاذ محمد ولإثراء الحل -يمكنك استخدام هذه الدالة المعرفة Function Ahmed_Date(myid As Variant, Optional stype As Byte = 1) As Variant If myid = "" Then Ahmed_Date = "": Exit Function Dim n As Byte, governrate As Variant If stype = 1 Then Ahmed_Date = DateSerial(IIf(Left(myid, 1) = 2, 19, 20) & Mid(myid, 2, 2), Mid(myid, 4, 2), Mid(myid, 6, 2)) ElseIf stype = 2 Then governrate = Array("01-ÇáÞÇåÑÉ", "02-ÇáÅÓßäÏÑíÉ", "03-ÈæÑÓÚíÏ", "04-ÇáÓæíÓ", "11-ÏãíÇØ", "12-ÇáÏÞåáíÉ", "13-ÇáÔÑÞíÉ" _ , "14-ÇáÞáíæÈíÉ", "15-ßÝÑ ÇáÔíÎ", "16-ÇáÛÑÈíÉ", "17-ÇáãäæÝíÉ", "18-ÇáÈÍíÑÉ", "31-ÇáÈÍÑ ÇáÃÍãÑ", "32-ÇáæÇÏì ÇáÌÏíÏ" _ , "19-ÇáÅÓãÇÚíáíÉ", "21-ÇáÌíÒÉ", "22-Èäí ÓæíÝ", "23-ÇáÝíæã", "24-ÇáãäíÇ", "25-ÃÓíæØ", "34-ÔãÇá ÓíäÇÁ", "35-ÌäæÈ ÓíäÇÁ" _ , "26-ÓæåÇÌ", "27-ÞäÇ", "28-ÃÓæÇä", "29-ÇáÃÞÕÑ", "33-ãØÑæÍ", "88-ÎÇÑÌ ãÕÑ") For n = 0 To 27 If Mid(myid, 8, 2) = Left(governrate(n), 2) Then Ahmed_Date = Right(governrate(n), Len(governrate(n)) - 3) Exit For End If Next Else Ahmed_Date = IIf(Mid(myid, 13, 1) Mod 2 = 0, "ÃäËì", "ÐßÑ") End If End Function وعليك بوضع هذه المعادلة فى عمود محل الميلاد بداية من الخلية M6 =Ahmed_Date(E6,2) تنسيق 2020 عام-1.xls

تفضل اخى الكريم اتبع الخطوات الموجودة بهذا الرابط للوصول لحل المشكلة ولكم جزيل الشكر 6 Working Solutions to Fix “Microsoft Excel has Stopped Working” Error Message وهذا فيديو ايضاً للشرح

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

وعليكم السلام -المنتدى تعليمى من المقام الأول وليس لتقديم البرامج الجاهزة... فهل تتخيل ان يقوم احد بتصميم برنامج كامل لك على الجاهز ؟!! عليك برفع ملف مدعوم بشرح كافى عن المطلوب مع وضع البيانات المطلوب وان شاء الله ستلقى المساعدة من الأساتذة !!!!!! أو لو قمت بإستخدام خاصية البحث بالمنتدى , كما نبهنا كثيراً لوجدت برنامج أكثر من ممتاز وبه أكثر مما تطلب لأستاذنا الكبير ضاحى الغريب له منا كل المحبة والإحترام برنامج إدارة الإيجارات - الاصدار الأول - ضاحي الغريب وهنا برنامج اخر باللغة العربية واللغة الإنجليزية ... بمقابل مادى أفضل برنامج عقارات لإدارة كافة الأنشطة العقارية متوفر باللغة العربية والإنجليزية فممنوع من قبل ادارة المنتدى رفع اى شيئ على الخاص

وعليكم السلام-تفضل رابط التحميل : https://www.up-4ever.org/0yc50q0spzhx سريال التنشيط : KGFVY-7733B-8WCK9-KTG64-BC7D8 باسورد فك الضغط www.mrelhlawany.com

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

وعليكم السلام-من فضلك شوف هذا الفيديو https://www.youtube.com/watch?v=5FglGNvVcyY

اجعل المعادلة هكذا حتى تستطيع قراءة شهر 8 مثلاً =SUMPRODUCT((Sheet1!C2:C45<>"الغاء")*(Sheet1!F2:F45<>"محصل")*(Sheet1!D2:D45="معارض - Bmw")*(Sheet1!E2:E45)*(Sheet1!G2:G45=MONTH(S1))) Sum_pro1.xlsx

وعليكم السلام-يمكنك استخدام هذه المعادلة ابتداءاً من الخلية M5 سحباً للأسفل =INDEX($E5:$J5,MATCH($K5,$E$4:$J$4,0))/$L5 الاداري1.xls

بارك الله فيك استاذ عبد اللطيف وزادك الله من فضله

بارك الله فيك وجزاك الله خير الثواب

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

بارك الله فيك وزادك الله من فضله

بارك الله فيك استاذنا الكريم وزادك الله من فضله

اجعل المعادلة هكذا =B2&""&A2*100&"%" 1سليم.xlsx

وعليكم السلام-بدون تعريف النطاقات وبدون ايضاً استخدام معادلة Indirect .... فقط يمكنك استخدام معادلة واحدة للقائمة المنسدلة الفرعية =OFFSET(INDEX(Sheet1!$A$2:$C$210,,MATCH($A2,Sheet1!$A$1:$C$1,0)),,,COUNTA(INDEX(Sheet1!$A$2:$C$210,,MATCH($A2,Sheet1!$A$1:$C$1,0)),1)) Book2.xlsx

أحسنت استاذ ماجد عمل رائع بارك الله فيك