كل الانشطه

لم تدكر اخي ما هو النطاق المطلوب تفضل جرب هل هدا ما تقصده Sub CopySheet() Dim filePath$, folderName$, Fname$ Dim rCopy As Range, rng As Range Dim lRow As Long, i As Integer Dim wbSource As Workbook Set wbSource = ThisWorkbook Set WS = wbSource.Worksheets("Sheet1") lRow = WS.Range("B" & WS.Rows.Count).End(xlUp).Row Set rCopy = WS.Range("A7:K" & lRow).SpecialCells(xlCellTypeVisible) folderName = "ملفات Excel" Fname = "تقرير النشاط" filePath = ThisWorkbook.path & "\" & folderName On Error Resume Next 'OR 'filePath = "D:" & "\" & folderName If WS.Range("L9:L" & lRow).SpecialCells(xlCellTypeVisible).Count > 1 Then With Application .ScreenUpdating = False .DisplayAlerts = False .CopyObjectsWithCells = False Set newWb = Workbooks.Add: Set SH = newWb.Sheets(1) rCopy.Copy Destination:=SH.Range("A3") LastR = SH.Range("A" & SH.Rows.Count).End(xlUp).Row SH.Range("A7:A" & LastR).RowHeight = 28 For i = 1 To 11 Columns(i).ColumnWidth = WS.Columns(i).ColumnWidth Next i SH.[A5] = 1: SH.Range("A5:A" & SH.Cells(Rows.Count, 2).End(3).Row).DataSeries , xlLinear 'Columns(1).Delete If Dir(filePath, vbDirectory) = "" Then MkDir filePath newWb.SaveAs fileName:=filePath & "\" & Fname & ".xlsx", FileFormat:=51 newWb.Close .CopyObjectsWithCells = True .DisplayAlerts = True .ScreenUpdating = True End With sMsg = "Excel" & " " & "تم حفظ التقرير بنجاح في مجلد " & "ملفات" MsgBox sMsg, vbExclamation, " من تاريخ: " & " " & WS.[D4] & " " & "إلى تاريخ:" & " " & WS.[F4] Else MsgBox "لا توجد بيانات للحفظ", vbInformation, "تم إلغاء الإجراء" End If End Sub فلترة وحفظ.xlsm

الحمد لله الذي وفقك لما تريد اخى @mahmoud nasr alhasany ولا داعى ابدا للاعتذار فكلنا هنا من اجل هدف واحد وهو مساعده اخواننا

السلام عليكم ورحمة الله وبركاته في حال عدم وجود كلمة سر لقاعدة البيانات ... كيف يكون الكود جزاكم الله الخير

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

وعليكم السلام ورحمة الله وبركاته اخي @salah.sarea . ضع هذا الكود في حدث عند النقر لزر الإصلاح ، مع تحديد مسار قاعدة البيانات B_Be حسب ما تريد . Private Sub btnRepair_Click() Dim strConnect As String Dim strPassword As String strPassword = "123" strConnect = "MS Access;PWD=" & strPassword & ";DATABASE=path_to_b_be.accdb" Application.CompactRepair SourceFile:="path_to_b_be.accdb", DestinationFile:="path_to_b_be.accdb", _ Password:=strPassword MsgBox "تم إصلاح قاعدة البيانات بنجاح!", vbInformation End Sub طبعا على افتراض أن اسم الزر btnRepair.

السلام عليكم ورحمة الله وبركاتة احتاج الى مساعدة في دالة الاكسل لاستخراج الاسم المتكرر مثلاً ليث محمد علي مصطفى العنزي والاسم المكرر يكون ليث محمد علي مصطفى احتاج الى داله تقوم بالبحث عن اول ثلاث اسماء وتستخرج المكرر ارجو المساعدة اخوتي

سيدي الفاضل @محمد هشام. نفع الله بك وزادك الله من علمه أنا متشكر جدا جدا على جام كرم حضرتك وسعة صبرك وجميل خلقك جهد أكثر من رائع بارك الله فيك وفي أسرتك أنا سيدي آسف جدا ولكني أرجو منك ضافة تصدير الى EXCLE بجانب حفظ PDF . جزاك الله كل خير سيدي الكريم فأنت أخي في الله

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

السلام عليكم ورحمة الله وبركاته حياكم الله جميعا وكل عام وانتم بخير وعافية عندي قاعدة بيانات اكسس مقسمة واريد زر في قاعدة البيانات ( b ) ينفذ امر ضغط واصلاح قاعدة البيانات ( b_be ) علما ان قاعدة البيانات عليها كلمة مرور . ملاحظة / كلمة المرور ( 123 ) نرجوا المساعدة جزاكم الله خير bbe.rar

يبدو انني قد اثقلت عليكم بالسؤال ولكن اعدكم المرة القادمة انني لن اسال ولكنني سوف اجتهد من عندي بالرغم من انني لا استفيد من هده البرامج في عملي كونني متقاعد وعمري كبير الا انه هواية عندي البرمجة فقط

الأخ kanory لكم جزيل الشكر

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

شكر جليل للأستاذ kanory

لا أدرى كيف اشكر سيادتك على وقتك ومجهودك ولكن هذا الكود يوضع فى وحدة نمطية ام ماذا .لك الشكر

Dim rs As DAO.Recordset Dim rs1 As DAO.Recordset Dim R As Integer Dim firstRecordFields As String Dim firstRecordFields1 As String Set rs1 = CurrentDb.OpenRecordset("SELECT Table1.الاسم FROM Table1 GROUP BY Table1.الاسم;", dbOpenDynaset) rs1.MoveLast: rs1.MoveFirst R = rs1.RecordCount For i = 1 To R Set rs = CurrentDb.OpenRecordset("SELECT Table1.الاسم, Table1.العمل1, Table1.العمل2, Table1.اللجنة1, Table1.اللجنة2 " & _ " FROM Table1 " & _ " WHERE (((Table1.الاسم)=""" & rs1!الاسم & """));", dbOpenDynaset) If Not (rs.BOF And rs.EOF) Then rs.MoveLast firstRecordFields = rs!العمل1 firstRecordFields1 = rs!اللجنة1 rs.MoveFirst rs.Edit rs!العمل2 = firstRecordFields rs!اللجنة2 = firstRecordFields1 rs.Update End If rs1.MoveNext Next i rs.Close rs1.Close Set rs = Nothing Set rs1 = Nothing لهذا كان السؤال .... لان الكود أو البرنامج ممكن يعلق يوقف يحدث خطأ ما ... عندها لن تستطيع العودة لتلك البيانات .... على العموم جرب هذا الكود وبدون حذف ,,, فقط تحديث للبيانات

لا أعتقد أن الحذف خطوة جيدة 🤔 إلا اذا كانت السجلات وبياناتها غير مهمة ومفيدة حسب المشروع. ثم ماذا لو كانت اكثر من سجلين 🧐 هل أيضاً سيتم الاستغناء عنها في حال كان احد الحقول غير فارغ مكرراً !!

السلام عليكم .. استاذى الفاضل الكود السابق يقوم بمسح الورقة قبل الترحيل وبالتالى ما سيتم اظهاره هو الترحيل الخاص بالاسبوع الحالى فقط اما الترحيلات السابقة فلن تظهر والمطلوب ان كل اسبوع يتم ترحيله لا يتم مسح الترحيلات السابقة واظهار النتائج ( هناك شكلين كما ييسر ) كما بالملف التالى Book222بالتعديل.xls

ما شاء الله عليك أخي @طير البحر ، سأستمتع بلمساتك والتعديلات غداً إن شاء الله 🤗 بالنسبة لهذا الطلب فهو من صلاحيات الأساتذة - لا الحصر - أذكر منهم:- @Moosak و @jjafferr و معلمنا الفاضل اعاده الله من سفره سالما غانماً @ابوخليل ... والكثيرين الذين نسعد بوجودهم معنا من إدارة المنتدى 🥰.

الأخ الفاضل kanory بخصوص السجل الثانى لا مانع من بقائة أو حذفة المهم لدى السجل الأول ولكم جزيل الشكر

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

تفضل يا غالى دقة الشاشة 768×1024

الاخ المحترم @Foksh قمت بتعديل نهائي لما يلزم مع الاستفادة من خيار اعادة التشغيل المقدم من طرفكم وضبط كل شئ دون التأثير على الخيارات او اجراء تغييرات غير محسوبة كما تم اضافة زر اعادة تشغيل كخيار للشريط العائم ونموذج الارضية والنموذج الرئيسي ارجو ان ينال الامر اعجابك وكنت اتمنى استبدال الملف الرئيسي باول البوست dboptions.rar

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

الأخ @اشرف السيد يوسف منذ ساعة وأنا انتظرك لما تنزل موضوع من اربع ساعات على الاقل كل ساعة ادخل اتفقد الوضع

اسف اخي لم انتبه فعلا على العموم حل الاستاد حسونة سوف يلبي المطلوب بالتوفيق.