Ali Mohamed Ali

وعليكم السلام -يمكنك هذا بمعادلة المصفوفة =IFERROR(INDEX(Mapping!$A$2:$A$178,SMALL(IF(Mapping!$B$2:$B$178=$A$4,ROW(A$2:A$178)-ROW(A$2)+1),ROWS($A$6:A6))),"") Rank Country.xlsm

كان عليك توضيح هذا الطلب من البداية تجنباً لعدم اهدار الوقت -تفضل يمكنك هذا بذلك الكود Private Sub CommandButton1_Click() On Error Resume Next Dim ws As Worksheet Set ws = Sheets("Sheet1") Me.TextBox2.Value = Me.TextBox1.Value * WorksheetFunction.VLookup(Me.ComboBox1.Value, ws.Range("a2:d20"), 2, 0) Me.TextBox3.Value = Me.TextBox1.Value * WorksheetFunction.VLookup(Me.ComboBox1.Value, ws.Range("a2:d20"), 3, 0) Me.TextBox4.Value = Me.TextBox1.Value * WorksheetFunction.VLookup(Me.ComboBox1.Value, ws.Range("a2:d20"), 4, 0) End Sub 2حساب النسبة المئوية.xlsm

وعليكم السلام-عليك التحلى بالصبر وكان عليك رفع ملف مصغر كنموذج وليس كل هذا الملف تفضل لك ما طلبت تم عمل قائمة منسدلة بأسماء المقاولين .... وأعتقد انه ليس هناك داعى لعمل صفحات مستقلة بأسماء المقاولين لأن هذا سيثقل من حجم الملف ويبطئه , فقط عليك اختيار اسم المقاول من القائمة المنسدلة واترك الباقى على الإكسيل-بارك الله فيك حساب توريدات٢٠٢1.xlsx

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

وعليكم السلام -يمكنك استخدام هذه المعادلة لطلبك =IF(ROWS($G$12:G12)>DAY(EOMONTH(DATE($O$3,$P$4,1),0)),"",DATE($O$3,$P$41,ROWS($G$12:G12))) كشف الحضور1.xlsm

وعليكم السلام-اهلا بك فى المنتدى - سيتم ما تطلب بهذا الكود Private Sub CommandButton1_Click() TextBox2.Value = (TextBox1.Value) * 0.8 TextBox3.Value = (TextBox1.Value) * 0.95 TextBox4.Value = (TextBox1.Value) * 1.14 End Sub 1حساب النسبة المئوية.xlsm

تفضل هذا الفيديو وتحته الملفات اللازمة لإضافة Date Picker .... للأستاذة ساجدة العزاوى وهذا فيديو لـــــــــ TreeView Intro to Excel TreeView Control | Excel Userform Tutorial

وعليكم السلام-فقط عليك استخدام هذه المعادلة لتاريخ البداية =DATE(C3,B3,A3) وهذه لتاريخ النهاية =DATE(F3,E3,D3) Date1.xlsx

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

تفضل وهذا برنامج أخر أفضل برنامج عقارات لإدارة كافة الأنشطة العقارية متوفر باللغة العربية والإنجليزية وجرب هذه برامج مختلفة مجانية على الأكسيس HRDISCUSSION.COM_ادارة العقارات + الفنادق + الشقق.rar

تفضل

وعليكم السلام-تفضل فيروس الفدية وهذا رابط خارجى ازالة فيروس الفدية في 9 خطوات وفك تشفير الملفات بدون فورمات وهذا فيديو أيضاً للشرح

وعليكم السلام-تفضل هذا فيديو لما تريد ومعه البرنامج المطلوب, يمكنك تحميله أسفل الفيديو بعد مشاهدتك له

تفضل هذا الفيديو سيفيدك فى طلبك

الف مبروك ترقية مستحقة وأعانك الله عليها وبارك الله فيك

كان عليك استخدام خاصية البحث بالمنتدى للوصول لكيفية تحويل ملف الإكسيل الى ملف تنفيذى تحويل ملف الاكسيل الى تنفيذى ثم تنصيب الملف بالصور وهذا ايضاً شرح تحويل ملف الاكسل الى exe ثم تغيير الايقونة ثم Setup (شوقي ربيع)

اخى الكريم لا يحدث معى اى مشكلة وشوف بنفسك -يمكنك استخدام هذا الكود بناءاً على مسميات الصفحات لديك 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