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

بالتوفيق اخي انس

اتفضل حسب مافهمت من طلبك رصيد: Abs(Nz(DSum("[دائن]-[مدين]";"الاندلس";"[الرقم]<=" & [الرقم]);0)) مكتب الاندلس.accdb

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

السلام عليكم اهل المنتدى الكرام أقدم لكم اليوم شيت يقوم بترحيل الفواتير إلى شيت بإسم الشهر بناءاً على التاريخ الموجود فى صفحة Main أتمنى من الله أن ينال اعجابكم تقبل الله منكم سائر أعمالكم وبارك الله فيكم وجزيتم خيرا كثيراً ترحيل الفواتير حسب اسم الشهر.xlsm

مكتب الاندلس (1).accdb

ابو ياسين المشولي جزاك الله كل خر هذا هو المطلوب

السلام عليكم Sub sh22mar2018() Dim a, b, c, d As Long Dim e As Double Dim i As Long a = 16 ' عدد الصفوف المراد طباعتها في الصفحة الواحدة b = 1 ' بداية من الصف رقم c = 8 'عدد الاعمدة d = 100 ' اجمالي الصفوف في صفحة العمل e = Application.WorksheetFunction.RoundUp(d / a, 0) Range("A" & b, Range("A" & a)).Resize(, c).Select For i = 1 To e ActiveSheet.PageSetup.PrintArea = Selection.Address ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Selection.Offset(a).Select Next End Sub

السلام عليكم ورحمة الله حل آخر بالمعادلات اذا لم تظهر معك النتيجة اضغط على ازرار (Ctrl+Shift+Enter) ثم اسحب نزولا جمع مواد الرسوب واظهار نتيجة الطالبة.rar

السلام عليكم ورحمة الله استخدم هذا الكود Sub Results() Dim ws As Worksheet, Sh As Worksheet Dim C As Range Dim LR As Long, p As Long Set ws = Sheets("Sheet1") LR = ws.Range("B" & Rows.Count).End(xlUp).Row For Each Sh In Worksheets If Sh.Name <> "Sheet1" Then Sh.Range("B11:C" & Sh.Range("B" & Rows.Count).End(xlUp).Row + 1).ClearContents End If For Each C In ws.Range("C11:C" & LR) If Trim(C.Value) = Trim(Sh.Name) Then p = p + 1 Sh.Cells(p + 10, "B") = C.Offset(0, -1).Value Sh.Cells(p + 10, "C") = C.Value End If Next p = 0 Next End Sub

يرجى ارفاق القاعدة بصيغة mdb

فعلا ولكن واجهت مشاكل فى الرصيدزى ما حضرتك عارف وان شاء الله هعمله بس كان الاكسيل اسهل فى المشاكل بس محتاج رائيك .

حياك الله عزيزي لان حقل التجميع فيه بيانات في هذه الحالة يجب عمل حقل تجميع فارغ من اي بيانات تفضل إظهار رؤس عمودين في تقرير واحد أكسس.rar

جرب هذا الملف تم تغيير اسم القالب الى Templete لحسن عمل الكود الكود Option Explicit Sub Create_TOC() 'Created By sakim On 21/3/2018 'Macro for Create sheets with vice_versa hyprlink 'TOC=Table Of Contents Dim my_name$ Dim x%, i%, Sh_to_copy As Worksheet: Set Sh_to_copy = Sheets("Templete") Dim my_sh As Worksheet: Set my_sh = Sheets("index") Dim LrC%: LrC = my_sh.Cells(Rows.Count, 3).End(3).Row If LrC < 4 Then LrC = 4 With Application .Calculation = xlCalculationManual .ScreenUpdating = False .DisplayAlerts = False .ScreenUpdating = False End With ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' On Error Resume Next For i = 4 To LrC my_name = Sheets(i).Name If my_name = "" Then Sh_to_copy.Copy after:=Sheets(Sheets.Count) With ActiveSheet .Name = my_sh.Range("c" & i) .Range("f1") = my_sh.Range("c" & i) .Range("f2") = my_sh.Range("d" & i) End With '===================================== With my_sh .Hyperlinks.Add .Cells(i, 2), "", _ SubAddress:="'" & ActiveSheet.Name & "'!A1", _ TextToDisplay:="go to it" End With End If Next Salim_button With Application .Calculation = xlCalculationAutomatic .ScreenUpdating = True .DisplayAlerts = True .ScreenUpdating = True End With my_sh.Select End Sub Sub Salim_button() Dim cnt%: cnt = Sheets.Count Dim k% For k = 4 To cnt Sheets(k).Buttons.Delete With Sheets(k).Buttons.Add(50, 1.5, 141, 31) .OnAction = "My_Selection" .Font.Name = "Calibri" .Font.FontStyle = "Bold Italic" .Font.ColorIndex = 3 .Characters.Text = "Go_To_Index" End With Next End Sub Sub My_Selection() Sheets("index").Select End Sub '============================ الملف مرفق STORE-ITEM salim.xlsm

الحمد لله استطعت التوصل لحل لكنه بطئ جدا نظرا لضخامة عدد السجلات لكنه يفى بالمطلوب Del_record.rar

قم باضافة حقل تجميع واجعل تكرار المقطع نعم إظهار رؤس عمودين في تقرير واحد أكسس.rar

الشكر موصول دائما لأستاذنا أحمد وهذا الحل ولكن بطريقة أخرى كود الترحيل الى عدة شيتات عن طريق الفورم.xlsm

اطلع على هذا الموضوع:

السلام عليكم و رحمة الله وبركاته بعد تحليل الموضوع عدة ايام وجدة فكرة ان شاء الله سوف اوافيك به اليوم hemnn.xls

السلام عليكم و رحمة الله وبركاته بعد تحليل الموضوع عدة ايام وجدة فكرة ان شاء الله سوف اوافيك به اليوم

ممكن تجرب هذا طباعة.xlsm

اخي الكريم من المستحسن دائماً ان يكون لكل مستخدم نسخة من البرنامج على جهازه بدون جداول (فقط الاستعلامات والنماذج والتقارير والوحدات النمطية) وهنا يجب عليك ان تصمم البرنامج على ان يتم الربط مع جداول البرنامج الرئيسي مباشرة عند فتح نموذج البداية وبالتالي فإن كل مستخدم سيكون لديه جداول البرنامج الاصلي واي ادراج بيانات من المستخدم سوف تصب في جداول البرنامج الاصلي بنما البرنامج الاصلي تستطيع العمل عليه وتطوير نماذجه واستعلاماته وغيرها مادام ان ذلك التطوير لايمس الجداول الموجودة فيه تحياتي

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

مرحبا بك معنا يا ابن الأوراس أو الهضاب العليا. لم نعهد على أبناء محاربي الصحراء الخوف. فكلنا هنا تارة نستفيد و تارة أخرى نفيد بما علمنا الله سبحانه و تعالى.

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

مثال على استعمال And: If UserName="أبو خليل" And Password=2017 Then MsgBox"مرحبا أستاذ أبو خليل" End If في هذا المثال إذا كان اسم المستخدم هو أبو خليل و كلمة المرور هي 2017 سوف يقوم البرنامج بعرض رسالة ترحيبية MsgBox"مرحبا أستاذ أبو خليل" و إذا إختل أحد الشرطين فلن يتم تنفيذ التعليمة. يعني لتنفيذ التعليمة يجب تحقق الشرطين في نفس الوقت. مثال على استعمال Or: If Died_Father=true Or Died_Mother=False Then MsgBox "يتيم" End If في هذا المثال يكفي تحقق أحد الشرطين ليتم تنفيذ التعليمة (رسالة تخبرنا بأن هذا الشخص يتيم) و إذا تحقق الشرطين معا أيضا يتم تنفيذ التعليمة إذا هناك شخص أبوه متوفي فهو يتيم و إذا كانت أمه متوفية فهو يتيم و إذا كان كلا والديه متوفيين فهو أيضا يتيم. ((((((اللهم أرحم جميع موتى المسلمين يا أرحم الراحمين يا رب العالمين))))))

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

اعتقد ان كلام الاخ sandanet هو الصحيح ... تحياتي