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

في الحقيقة لا اعرف وين كان المشكلة في النماذجك لكن انا عملت نماذج اخرى وعملت المطلوب عليها اتفضل مشكلة الجمع.rar

السلام عليكم إذا أردنا ان يكون الحذف للمتكرر في أول ثلاث أعمدة كيف يكون الكود ..وشكرا تفضل المرفق به 2 أزرار يتم الحذف لكل الجدول المتشابه أو للتشابه باول 3 أعمدة وفي تلك الحالة يلغي باقي الجدول لعدم الالتباس الفرق بين الكودين تستطيع التعرف عليه هنا Sub Macro1() [C2:H2].Copy [J2] Range([C2], [C2].End(xlDown).End(xlToRight)).Select Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[J2:O2], Unique:=True [J2:O999].Copy [C2].PasteSpecial Paste:=xlPasteValues Columns("J:O").Delete Shift:=xlToLeft End Sub ' ======================================= Sub Macro2() [C2:E2].Copy [J2] Range([C2], [C2].End(xlDown).End(xlToRight)).Select Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[J2:L2], Unique:=True [J2:L999].Copy [C2].PasteSpecial Paste:=xlPasteValues Columns("F:L").Delete Shift:=xlToLeft End Sub حذف الصفوف المكررة2.xlsm

@ابو زاهر اشكرك اخي وضاح . بارك الله فيك ... كلنا نتعلم من بعض في هذا المنتدى الرائع

بارك الله فيك استاذ كناري وزاداك الله علما لقد استفدت من الكود شكر اليك يالغالي

نعم اخي Shivan Rekany انا كنت حاولت فيها ولم اعرف اين المشكله ههههههههههه في النماذج فيها سر غامض

حبيبي المحترم وأستاذى الذي دائما أتعلم منه ( ياسر خليل أبو البراء ) دمت بخير وشكرا جزيلا فقد أرسل لي الرد بمنتدى آخر وله جزيل الشكر الكود الجديد Sub Grab_Class_List() Dim ws As Worksheet, sh As Worksheet, s1 As String, s2 As String Dim i As Long, j As Long, p As Long, n As Long, arr, temp Set ws = ThisWorkbook.Worksheets(1) Set sh = ThisWorkbook.Worksheets(2) sh.Range("B6:I35").ClearContents s1 = sh.Range("K1").Value: s2 = sh.Range("K2").Value arr = ws.Range("B10:G" & ws.Range("B" & Rows.Count).End(xlUp).Row).Value ReDim temp(1 To UBound(arr, 1), 1 To UBound(arr, 2) + 1) For i = 1 To UBound(arr, 1) If arr(i, 3) = s1 And arr(i, 6) = s2 Then p = p + 1 For j = 1 To UBound(arr, 2) temp(p, j) = arr(i, j) Next j temp(p, j) = p End If Next i On Error Resume Next n = WorksheetFunction.Round(p / 2, 0) sh.Range("B6").Resize(n, 4).Value = Application.Index(temp, Evaluate("ROW(1:" & n & ")"), Array(j, 1, 5, 6)) sh.Range("F6").Resize(n, 4).Value = Application.Index(temp, Evaluate("ROW(" & n + 1 & ":" & p + 1 & ")"), Array(j, 1, 5, 6)) On Error GoTo 0 End Sub روعة مستر / ياسر

اتفضل اتمنى يكون كما طلبت Print.accdb

تفضل اخى الكريم اخفاء الاطار الخارجى للفورم.xlsm

السلام عليكم ورحمة الله وبركاته إخوانى الأعزاء مشرفين وأعضاء بالمرفق نموذج frm_choose لاختيار اسماء المعلمين بجدول الحصص الخاص بهم يتم عرضهم فى نموذج frm_change وذلك لعمل سحب وافلات للحصص المتضاربه بين المعلمين وهو يعمل بكفاءة بين حصص المعلم الواحد ولكن لا تتم عملية السحب والإفلات بين معلم ومعلم آخر الرجاء ممن لديه الخبرة المساعدة فى اتمام عملية السحب والإفلات بين فصول المعلمين للجميع تحياتى GDwal_2.rar

بالتوفيق اخي ابو زاهر

انا الان في الجوال ادخل على تصميم التقرير ثم البينات واعمل تحت اسم الصنف forms!اسم النموذج!اسم الحقل اللي فيه الصنف او انتظرني 20 دقيقه وبدخل من الاب توب

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

اتفضل اتمنى يكون المطلوب الجرد (2) (1).rar الجرد (2) (1) (1) (1).rar

بارك الله فيك واعطاك الصحه والعافيه ممتاز شكر اليك حبيبنا ابو ياسين

العفو اخي ابو زاهر نعم بيكون اقل من الرصيد

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

انا اخطات بتحميل الملف حمله مرة اخرى هذا الناتج اللي طلع عندي

هذا تواضع منكم . جزاك الله خير . ⚘

حسب فهمي لسوال شوف المرفق الجرد (2).rar

العفو استاذي كناري كم انت طيب القلب الله يعطيك العافيه بدونكم هون احنا لاشي مشكوررررررر يالغالي

السلام عليكم عندنا جدول من صفوف كثيرة بحيث لا تتسع لها صفحة واحدة كيف نقوم بطباعة كل عدد محدد من الصفوف (انت تختاره) مع جمع الارقام في كل ورقة طباعة في اسفلها و تكرار رأس الجدول في كل ورقة طباعة و اذا كانت قسمة عدد الصفوف على العدد الذي اخترته لا تساوي عدداً صحيحاً كيف يتصرف الاكسل كل ذلك في هذا الملف Smart_Printing.xlsm

اتفضل اتمنى يكون المطلوب Database2 (1).rar

وعليكم السلام ورحمة الله وبركاته نعم و هذا مختصر العمل اعمل 2 كومبوبوكس او مربع النص احد منها لكي نبحث عنه و الاخر لاستبدال واعمل مربع نصي اخر لكي يظهر لك عدد الكلمات الموجودة وسيتم استبدالها بواسطة دالة ديكوانت\

اتفضل اقساط.accdb

هل هذا هو المطلوب SearchRpt.rar

'واذا اردت الترحيل من العمود K : L فقط 'عليك بتغيير هذا الصف فى الكود Range(Cells(i, "A"), Cells(i, "O")).Copy 'وجعله هكذا Range(Cells(i, "K"), Cells(i, "L")).Copy

بارك الله فيك دائما وفى استاذنا الكبير ياسر خليل ابو البراء له منا كل الحب والإحترام وأدامه الله دائما عونا لنا جعله الله فى ميزان اعماله وغفر الله له

Option Explicit Sub TARHIL() Dim Sh As String Dim i As Integer Dim AA As Integer '====================================================== Application.ScreenUpdating = False Sheets("جنح").Range("A2:O1000").ClearContents Sheets("مدنى").Range("A2:O1000").ClearContents 'يمكنك فى هذا الجزء اضافة اى شيت اخر جديد على نفس هذه الطريقة الموجودة '====================================================== For i = 2 To Cells(10000, "A").End(xlUp).Row Sh = Cells(i, "D").Value AA = Sheets(Sh).Cells(10000, 1).End(xlUp).Row + 1 If AA < 2 Then AA = 2 On Error Resume Next Range(Cells(i, "A"), Cells(i, "O")).Copy Sheets(Sh).Range("A" & AA).PasteSpecial xlPasteValues Application.CutCopyMode = False Sheets(Sh).Cells(AA, "A").Value = Sheets(Sh).Cells(AA, "A").Row - 1 Next i Application.ScreenUpdating = True MsgBox "تم الترحيل بنجاح" End Sub

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

استخدم هذا الكود قبل تشغيل الاستعلام DoCmd.RunCommand acCmdSaveRecord

آآآآآآآآه تريد الذي في التقرير يطابق المعروض في النموذج الفرعي ..... حاضر .. ان شاء الله اتمكن منه .. فقط املك الوقت

تفضل اخى الكريم أجندة محامى (Autosaved).xlsm

اتفضل اتمنى يكون طلبك 2 (3).rar 1 (3).rar

اخوي الخطأ عندك من الاندثار المتراكم والاندثار المتراكم موجوجود في جدول 2 يعني البيانات ثابتة وليس خلل في المعادلات ... اتصور ان فيه خلط بيانات في الجدول .. او ان الفكرة غير مفهومة عندي اصلا

شوف وجرب الآن Prog51.rar

السلام عليكم الاجابة تطول وتتشعب ، للمزيد من التفاصيل والشروحات ابحث في Google عن جملة : "المكتبات البرمجية" أو "ما هي المكتبات البرمجية"

جزاك الله خيرا ونفع بك استاذ علي

أعتذر خطأ صغير جدا فى المعادلة تفضل 2الانشطة.xlsx

تفضل لا تقوم بالكتابة والإدخال اليدوى الا فى عمود ID/Iqama بالنسبة للجداول فى صفحات الشهور الانشطة.xlsx

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

When can I edit data in a query? You can always edit the data in a query when the query is based on either only one table or on two tables that bear a one-to-one relationship to each other. يمكن إدخال البيانات في استعلام اذا كان مبنياً على جدول واحد او جدولين فقط بعلاقة رأس لرأس https://support.office.com/en-us/article/edit-data-in-a-query-6ca3edfc-6d66-4d90-8219-c2b258d5bed7

اذا كان اسم الطابعة معروفه مسبقا ضع هذا الكود قبل امر الطباعة SetDefaultPrinter (HP laserjet 1510)

الاستاذ المهندس الخلوق طارق محمود وفقكم الله كود رائع جعله الله في ميزان حسناتكم لكم وافر احترامي وتقديري

من المحتمل ان هناك اصدارين من الاوفيس على جهازك قم بحذف احداهما والسلام

السلام عليكم ورحمة الله ومحاولة أخرى بمعادلة بسيطة... بن علية حاجي monney_1.xlsx

تم التعديل كما تشاء أين الاعجاب (هل من الصعب الضغط على اشارة القلب ❤️ اسفل كل مشاركة) (الخانات الفارغة في اسفل الصفحة لا تظهر عند الطباعة) جرب ان تعمل Print Preview و سوف ترى نطاق الطباعة قائمة التلاميذ salim1.xlsm

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

ريما كان المطلوب الفلترة فيتم الفصل بين كل فئة Salim.xls

السلام عليكم ورحمة الله الأخ سليم حاصبيا بارك الله فيكم هو المطلوب الله يوفقك

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