نجوم المشاركات

عليكم السلام ممكن؟؟!!! Sub test() Dim ws As Worksheet: Set ws = Sheets("توزيع المبالغ") Dim sh As Worksheet: Set sh = Sheets("تجميع المبالغ") Dim a, b, c, m, d Dim i&, ii&, x& a = ws.Cells(6, 7).CurrentRegion b = sh.Cells(6, 1).CurrentRegion.Offset(2).Columns(1) ReDim c(1 To UBound(b) - 2, 1 To 2) m = ws.Range("E1") For i = 2 To UBound(a) For ii = 6 To UBound(a, 2) If (a(i, ii)) = "" Then Exit For x = Application.Match(a(i, ii), b, 0) c(x, 1) = IIf(c(x, 1) = "", a(i, 2), c(x, 1) & " + " & a(i, 2)) If a(i, 4) <= m Then c(x, 2) = c(x, 2) + a(i, 4) Else c(x, 2) = c(x, 2) + m: a(i, 4) = a(i, 4) - m End If Next Next d = sh.Range(sh.Cells(5, 1), sh.Cells(5, 1).End(xlToRight)).Value On Error Resume Next For i = 1 To UBound(d, 2): d(1, i) = Split(d(1, i), "/")(0): Next d = Application.Transpose(d) x = Application.Match(Split(ws.Range("E7"), "/")(0), d, 0) With sh .Cells(6, 2).Resize(UBound(c)) = c .Cells(6, x).Resize(UBound(c)) = Application.Index(c, 0, 2) End With End Sub الجمعية الشهرية (2) (3).xlsm

جرب كده رسائل2.rar

لكي تظهر الأيقونة معك دائما .. تأكد من إرفاقها بجانب البرنامج وتنقل معه أينما ذهب 🙂 وهناك طريقة لجعل البرنامج ينشئها بنفسه لو لم تكن موجودة أو تم حذفها مثلا .. وذلك بتخزينها في حقل من نوع مرفقات في البرنامج نفسه ثم بأمر برمجي يتحقق البرنامج من وجودها وإذا لم يجدها يخرجها من حقل المرفقات إلى جانب البرنامج ..

ماله اي ضرر ممكن تحطه بعد السطر الاول اي بعد ⬇️ On Error Resume Next واذا ما ترغب في حدث عند الفتح ممكن تحطه في حدث عند التحميل

عليكم السلام اذا كانت ِA1=G1 لم أجدها في B1,B10,B60 أم أني لم أفهم المطلوب!!!

وعليكم السلام ورحمة الله وبركاته .. 🙂 أعمل في كل سجل 3 حقول للصور مثلا .. لما تمتلي الثلاث الأولى تفتح سجل جديد .. وهكذا ..

السلام عليكم ورحمة الله أخواني الكرام وعلمائنا وأساتذتنا العباقرة في هذا الصرح العملاق والأكثر من رائع بعد إنتهاء ولله الحمد من برمجة برنامج شؤون الموظفين والمرتبات ونشره في الموقع منذ فترة وجيزة على هذا الرابط برنامج شؤون وإدارة الموظفين بحلته وشكله الجديد أحببت اليوم بعد طلبات من الاصدقاء أن أقوم برفع البرنامج مفتوح المصدر لكي تتم الفائدة منه في كافة النواحي العلمية والعملية وذلك من (خلال الكودات وطريقة التصميم) ماعليكم سوا فك الضغط عن الملف المرفق وتنصيب البرنامج بكل سهولة وفي الاخير تفعيل الماكرو يعمل البرنامج على كافة أنظمة ويندوز وكافة نسخ أوفيس من 2007 ومافوق لاتنسونا من الدعاء بظهر الغيب في هذه الايام المباركة الملف بامتداد zip هو الملف كاملا Office Soft.Employ & Salary-Source.zip Office Soft.Employ _ Salary-Source.rar

Sub GetLastThursdayInRajab1999() Dim CurCal As VbCalendar, Days As Long CurCal = Calendar Calendar = vbCalGreg Days = DateSerial(1999, 12, 31) Calendar = vbCalHijri Do While Month(Days) <> 7 Days = Days - 28 Loop Days = DateSerial(Year(Days), 8, 0) Do While Weekday(Days) <> vbThursday Days = Days - 1 Loop Calendar = vbCalGreg Debug.Print CDate(Days) Calendar = CurCal End Sub

04/11/1999 26/07/1420 هجري و أم القرى. هل هذا المطلوب أم تريده بكود برمجي؟ 🙂

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

السلام عليكم مشاركه مع الاستاذ @Ahmed.IQ ع حسب ما فهمت بالمكرو اذا كان الجدول فارغ ينشى سجل واذا كان فيه سجل يتم تحديث التاريخ ان شاء الله تكون مفيده لك بالتوفيق تحديث تاريخ تلقائي_1.accdb

السلام عليكم ورحمة الله تم التعديل على الكود ليخفي كل الصفوف التي بها بيانات ولا يعنيها المجموع (البحث)... ملاحظة: تم حذف الموضوع الآخر لنفس الطلب الذي رابطه "طلب مساعدة دالة أو معادلة تقوم بجمع عمود يتحول حسب تاريخ البحث" OFFICENA 2024_04.xlsm

كما العنوان وننصح دائما حفظ أرقام اللوحات باللغة الإنجليزي بالطول القصير أي بدون مسافة أي بطول 7 حروف فقط. تم فحصها بشكل سريع ، فربما يحتوي بعضها على اخفاقات. SaudiCarPlates_01.accdb