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

اذن كانت عندنا مشكلة في التاريخ ، وتم حلها بهذه الطريقة : والوحدة النمطية هي: Function DateFormat(varDate As Variant) As String 'Purpose: Return a delimited string in the date format used natively by JET SQL. 'Argument: A date/time value. 'Note: Returns just the date format if the argument has no time component, ' or a date/time format if it does. 'Author: Allen Browne. allen@allenbrowne.com, June 2006. ' 'calling the Function: DateFormat(The_Date_Field) 'a = dlookup("[some field]","some table","[id]=" & me.id & " And DateFormat(The_Date_Field)") ' If IsDate(varDate) Then If DateValue(varDate) = varDate Then DateFormat = Format$(varDate, "\#mm\/dd\/yyyy\#") Else DateFormat = Format$(varDate, "\#mm\/dd\/yyyy hh\:nn\:ss\#") End If End If End Function . ونناديه من الاستعلام هكذا : B: CCur(Nz(DSum("[Credit]-[Debit]","[TransactionS]","[SupplierID]=" & [TransactionS].[SupplierID] & " And DateFormat([Date])<='" & DateFormat([Date]) & "'"),0)) . جعفر

هل تاريخ جهازك انجليزي او هجري ؟ رجاء تجرب هذا المرفق 1307.1.يومية مورد.accdb.zip

تفضل لك كل ما طلبت حسابات العملاء 1.xlsx

السلام عليكم ورحمة الله يمكنك استخدام هذا الكود Sub UnhideColumns() Sheet1.Columns.Hidden = False End Sub

السلام عليكم للتخلص من الرسائل الافتراضية في اكسس هذه قائمة بالاخطاء وارقامها والكود موجود وان شاء الله يخدمكم رسائل الخطأ.rar

لطلبك هذا لابد من استخدام هذه المعادلة =IFERROR(IF(AND(COUNTIF($B$4:B4,B4)=1,U4=0),VLOOKUP($B4,$U$1:$V$2,2,0),IF(AND(COUNTIF($B$4:B4,B4)>1,U4=0),VLOOKUP($B4,$U$1:$V$2,2,0)+(COUNTIFS($B$4:B4,B4,$U$4:U4,U4)-1),"")),"") ترقيم وتسلسل1.xlsx

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

تم اضافة المجموع .. newworkbooks.xlsm

جرب الزر الجديد حذف بيانات نموذج فرعي التي تم تحديدها.accdb

تفضل 🙂 . 1307.1.يومية مورد.accdb.zip

السلام عليكم ورحمة الله وبركاته تفضل اخوي العزيز .. اختار الاسم .. newworkbooks.xlsm

اخى الفاضل بعض كميات الصرف تجزأت حسب الكميات المتاحة فى الجدول الاول عموما مرفق عمل متواضع لربما تنفعك غير ذلك يمكن تدخل باقى الاخوة وهم عباقرة واساتذتنا ومعلمينا حركة مخزن (1).xlsx

جرب هذا الكود اذا لم تظهر القائمة المنسدلة (في الشيت Result) غادر الصفجة ثم عد اليها مجدداً Ihab.xlsm

السلام عليكم 🙂 علشان نحصل على الرصيد التراكمي ، نستعمل هذا الكود في الاستعلام (ويجب ان يكون التاريخ تصاعدي) : B: CCur(Nz(DSum("[Credit]-[Debit]","[TransactionS]","[SupplierID]=" & [TransactionS].[SupplierID] & " And [Date]<=#" & [Date] & "#"),0)) . . والنتيجة . وفي الاستعلام النموذج ، تم حذف الحقل RecNo ، واستعملنا الحقل B (من الاستعلام) في حقل الرصيد ، فكانت النتيجة : . 1307.يومية مورد.accdb.zip

بعد رفع الملف فك الضغط واحفظ المجلد في اي فولدر ثم جربه myDOS.rar

تفضل-يمكنك استخدام هذه المعادلة =IFERROR(IF(COUNTIF($B$4:B4,B4)=1,U4&VLOOKUP($B4,$U$1:$V$2,2,0),U4&VLOOKUP($B4,$U$1:$V$2,2,0)+(COUNTIF($B$4:B4,B4)-1)),"") ترقيم وتسلسل.xlsx

1-ليس من الضرورة رفع ملف يجتوي على اكثر من 1500 صف لان الماكرو الذي يعمل على صف واحد بستطيع العمل على الوف الصفوف 2- تم اختصار الملف الى حوالي 80 صف لمتابعة عمل الماكرو 3-الكود Option Explicit Dim sh As Worksheet Dim New_sh As Worksheet Dim lr%, Cont#, i%, x%, k% Dim SectionName As Range Const How_Many = 20 '+++++++++++++++++++++++++++++++ Sub Del_sheets() Application.DisplayAlerts = False For Each sh In Sheets If sh.Name Like "Section*" Then sh.Delete End If Next Main.Select Application.DisplayAlerts = True End Sub '++++++++++++++++++++++++++++++ Sub insert_Sheets() Del_sheets Set SectionName = Main.Range("D3:K3") lr = Main.Cells(Rows.Count, 3).End(3).Row Cont = (lr - 1) / How_Many If Int(Cont) <> Cont Then Cont = Cont + 1 End If Cont = Int(Cont) For i = 1 To Cont Sheets.Add(, Sheets(Sheets.Count)).Name = "Section_" & k * How_Many + 1 k = k + 1 SectionName.Copy With ActiveSheet.Range("D3") .PasteSpecial (xlPasteAll) .PasteSpecial (8) End With Next Application.CutCopyMode = False Main.Select End Sub '++++++++++++++++++++++++++++++++++++ Sub fil_data() Application.ScreenUpdating = False insert_Sheets x = 4 For Each New_sh In Sheets If New_sh.Name Like "Section*" Then Main.Range("D" & x).Resize(How_Many, 9).Copy New_sh.Range("D4").PasteSpecial (xlPasteAll) New_sh.Range("D4").PasteSpecial (8) x = x + How_Many End If Next Application.ScreenUpdating = True Main.Select End Sub 4-الملف مرفق Taksim_Ahmad.xlsm