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

وعليكم السلام Option Compare Database Private Sub أمر1_Click() On Error Resume Next Me.dd.SetFocus DoCmd.GoToRecord , , acNext End Sub Private Sub أمر3_Click() On Error Resume Next Me.dd.SetFocus DoCmd.GoToRecord , , acPrevious End Sub جعفر

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله لطالما أردت طرح هذا الموضوع الهام جداً والشيق جداً والمفيد جداً .. ولكن يبدو أن الزهايمر يلعب دوراً هاماً في حياتي .. عموماً ذكرني عنوان موضوع رأيته الآن بهذا الموضوع ، فأحببت أن أشارككم هذا الكود الرائع والمتميز .. الكود يقوم بالمهام التالية .. في بداية تنفيذ الكود يمكنك الكود من اختيار الطابعة المطلوب الطباعة عليها .. من خلال الصور سأقوم بالطباعة على ملف بامتداد XPS .. حتى لا أهدر أوراقي (سامحوني .. دا مش بخل دا حرص مش كدا ولا ايه يا فلاحجي (لأنه أكتر واحد هيفهمني )) حسناً رأيتم الصورة معبرة ..أليست كذلك؟ نقرنا على زر الأمر PRINT ...فظهرت نافذة تتيح لنا إمكانية اختيار الطابعة ثم نضغط أوك لننتقل للنافذة التالية في النافذة التالية يتيح الكود كتابة عدد النسخ المراد طباعتها وبشكل افتراضي يكون عدد النسخ نسخة واحدة فقط ، ويمكن تغيير عدد النسخ المطلوبة هنا تظهر لك أوراق العمل الموجودة في المصنف عدا ورقة العمل النشطة المسماة Data ، يمكنك الكود من اختيار أوراق العمل المراد طباعتها بكل سهولة ثم أخيراً يتم تنفيذ أمر الطباعة ..في المثال الموضح سأقوم بتنفيذ أمر الطباعة لملف بامتداد XPS .. حيث يتم كتابة اسم الملف وتحديد المسار الذي سيحفظ فيه الملف ثم اوك قمت بتحديد مسار حفظ الملف بامتداد XPS على سطح المكتب وها هو الملف وقد طبع ورقتي العمل Sheet1 و Sheet3 فقط ، لأنني حددتهما من خلال النوافذ التي تظهر وأخيراً إليكم الكود الرائع الذي يقوم بكل هذه المهام الرائعة Sub PrintSelectedSheets() Dim I As Integer Dim TopPos As Integer Dim SheetCount As Integer Dim PrintDlg As DialogSheet Dim CurrentSheet As Worksheet Dim Cb As CheckBox Dim Numcop As Long Dim Cnt As Integer Dim X As String Application.Dialogs(xlDialogPrinterSetup).Show Application.ScreenUpdating = False If ActiveWorkbook.ProtectStructure Then MsgBox "المصنف محمي", vbCritical Exit Sub End If Set CurrentSheet = ActiveSheet X = CurrentSheet.Name Set PrintDlg = ActiveWorkbook.DialogSheets.Add SheetCount = 0 TopPos = 40 For I = 1 To ActiveWorkbook.Worksheets.Count Set CurrentSheet = ActiveWorkbook.Worksheets(I) If Application.CountA(CurrentSheet.Cells) <> 0 And CurrentSheet.Visible Then SheetCount = SheetCount + 1 PrintDlg.CheckBoxes.Add 78, TopPos, 150, 16.5 PrintDlg.CheckBoxes(SheetCount).Text = CurrentSheet.Name TopPos = TopPos + 13 End If Next I PrintDlg.Buttons.Left = 240 With PrintDlg.DialogFrame .Height = Application.Max(68, PrintDlg.DialogFrame.Top + TopPos - 34) .Width = 230 .Caption = "اختر أوراق العمل المراد طباعتها" End With PrintDlg.Buttons("Button 2").BringToFront PrintDlg.Buttons("Button 3").BringToFront Numcop = Application.InputBox("أدخل عدد النسخ للطباعة:", "كم عدد النسخ?", 1, Type:=1) If Numcop = 0 Then ElseIf Len(Numcop) > 0 Then End If CurrentSheet.Activate Application.ScreenUpdating = True If SheetCount <> 0 Then If PrintDlg.Show Then For Each Cb In PrintDlg.CheckBoxes If Cb.Value = xlOn Then If Cnt = 0 Then Worksheets(Cb.Caption).Select Else Worksheets(Cb.Caption).Select Replace:=False End If Cnt = Cnt + 1 End If Next Cb ActiveWindow.SelectedSheets.PrintOut copies:=Numcop End If Else MsgBox "كل أوراق العمل فارغة", 64 End If Application.DisplayAlerts = False PrintDlg.Delete Sheets(X).Select End Sub تقبلوا جميعاً وافر تقديري واحترامي حمل الملف من هنا تحميلك للملف يدعم صاحب الموضوع .. فلا تبخل بدقيقة من وقتك .. وللعلم يمكنك عدم تحميل الملف ونسخ الكود في موديول في المصنف الخاص بك ، وستجد الكود جاهز للعمل لديك بدون تحميل الملف .. دمتم على طاعة الله ...

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

السلام عليكم أخي صالح ، شرحك هو حول الامر NZ هنا تحدثت عن هذا الامر: فالدالة Len هي لحساب عدد الحروف في حقل او قيمة ، بغض النظر عن نوع الحقل ، نص او رقم او تاريخ او .. جعفر

حياكم الله اساتذتنا الكرام الطريقة التقليدية ان يحتوي الكشف على جميع الأسماء .. يميز الحاضر بالتوقيع .. والغائب من لم يوقع في ذلك اليوم .. ولهذا اقترحت ان يكون الحقل في جدول comeIN .. ============= وهنا اقتراح اخر وهو في المرفق .. بإضافة حقل status إلى جدول الأسماء كما اشرت انت استاذ ابراهيم . وقمت كذلك بإنشاء جدول للإجازات . ===== واعتقد ان مطالعة المرفق اسهل من شرح الفكرة .. وعموما هذه الثلاث استعلامات التي تعتمدها الفكرة : strSQL = "select tblnames.* from tblnames where userid not in(select userid from tblcomin where tblcomin.datem=date())" بحيث يتم اختيار معرف الموظف من جدول الموظفين .. الذي لم يسجل في جدول الحضور لتاريخ اليوم وبالتالي يسجل غياب . strSQLB = "select tblnames.* from tblnames where userid in(SELECT Vac_tbl.id FROM Vac_tbl WHERE Vac_tbl.v_to >=Date())" وهنا يتم اختيار الموظف من جدول الموظفين .. الذي لم يسجل في جدول الحضور ومسجل في جدول الإجازات بشرط ان تاريخ نهاية اجازته اكبر او يساوي تاريخ اليوم . strSQL = "select tblnames.* from tblnames where userid in(select userid from tblcomin where tblcomin.datem=date())" وهنا يتم اختيار الموظف من جدول الموظفين ... الذي سجل حضوره بتاريخ اليوم .. ==== من بعدها يتم تحديث الحالة status في جدول الموظفين الى :: حاضر , غائب , مجاز . اتمنى ان تكون المساهمة مفيدة .. وبالتوفيق للجميع . db.rar

السلام عليكم ادلو بدلوي اللي انا عملته في مجموعة من برامجي ، وخصوصا عند حساب الحضور في برنامج البصمة ، ان يكون عندي جدول خاص بالاجازات: حقل واحد للتاريخ (مفهرس) ، وليس حقلين: من تاريخ والى تاريخ ، وانما هو حقل واحد للتاريخ ، حيث في النموذج اجعل البرنامج يعمل سجلات بعدد ايام الاجازة ، حقل نوع الاجازة ، حقل قطع اجازته ، نعم/لا ، الفائدة من جعل حقل واحد للتاريخ ، هو امكانية عمل الامر Between بين تاريخين ، وإلا فنضطر الى عمل كود ليحسب بين التاريخين !! والفرق: عندما نتعامل مع قاعدة بيانات فيها 100 او 1000 سجل ، فما في مشكلة ، جميع الطرق تحقق لك سرعة مقبولة ، ولكن لما تتعامل مع اكثر من 300,000 سجل شهريا ، وعندك اكثر من جدول يجب التعامل معه ، فسترى ان طريقة الحقل الواحد اسرع واريح في العمل طبعا باستخدام الامر Between بين تاريخين جعفر

بسم الله الرحمن الرحيم الحمد لله الواحد القهار، العزيز الغفار،مكور الليل على النهار ، تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ، الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار، وشغلهم بمراقبته وإدامة الأفكار ، وملازمة الاتعاظ والادكار، ووفقهم للدؤوب في طاعته والتأهب لدار القرار، والحذر مما يسخطه ويوجب دار البوار، والمحافظة على ذلك مع تغاير الأحوال والأطوار. أحمده أبلغ حمد وأزكاه، وأشمله وأنماه. أما بعد: رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته ولذا رأيت أنا الفقير إلى الله المحمدي عبد السميع عبد الغني أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ، ولهذا ساقدم سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له في موضوع مستقل وسأشرح كيفية استخدام الكود ماتيسر لي إن شاء الله وعلى الله قصد السبيل ****************************************** هذا كود ترحيل الصفحة كامله بشرط واحد على سبيل المثال عندنا درجات الطلاب وفيهم طلاب ناجحون وطلاب دور ثان وطلاب راسبون هذا الكود يفصل الطلاب الناجحون في ورقة ويفصل الطلاب الذين لهم حق الدخول في الدور الثاني في صفحة أخرى ويفصل الطلاب الراسبون في صفحة أخرى وهكذا طريقة الاستفادة من الكود افتح ملف اكسيل اضغط على الرز ALT وانت ضاغط على الزر اضغط على F11 الموجود أعلا لوحة المفاتيح ستظهر شاشة الماكرو اضغط على موديول 1 سيتم فتح الموديول الصق فيه الكود الموجود تحت هذا السطر Sub KH_START()[/center] ''' متغيرات بعدد الصفحات المطلوب الترحيل اليها Dim R As Integer, M As Integer, N As Integer, O As Integer ''' أسماء الصفحات المطلوب الترحيل اليها والمدى المطلوب مسح البيانات الثديمة منه Sheets("ناجح").Range("A11:DZ1000").ClearContents Sheets("دور ثان في").Range("A11:DZ1000").ClearContents Sheets("رسوب").Range("A11:DZ1000").ClearContents ''' عدد الصفوف العليا في الصفحات المنقول اليها البيانات M = 11: N = 11: O = 12 Application.ScreenUpdating = False ''' بداية ونهاية صفوف الورقة المصدر For R = 11 To 1000 ''''''''''''''''''''''''''''''''''''''''''''''''''''' ''' رقم عمود المعيار وكلمة المعيار If Cells(R, 113) = "ناجح" Then Range("A" & R).Resize(1, 115).Copy ''' سيتم اللصق في هذا الشيت Sheets("ناجح").Range("A" & M).PasteSpecial xlPasteValues Application.CutCopyMode = False M = M + 1 '''''''''''''''''''''''''''''''''''''''''''''''''''' ''' رقم عمود المعيار وكلمة المعيار ElseIf Cells(R, 113) = "دور ثان في" Then Range("A" & R).Resize(1, 115).Copy ''' سيتم اللصق في هذا الشيت Sheets("دور ثان في").Range("A" & N).PasteSpecial xlPasteValues Application.CutCopyMode = False ''' اجعل الرقم 1 الى الرقم 2وانظر في صفحة الدور الثاني بعد الترحيل N = N + 1 ''''''''''''''''''''''''''''''''''''''''''''''''''''' ElseIf Cells(R, 113) = "رسوب" Then Range("A" & R).Resize(1, 115).Copy Sheets("رسوب").Range("A" & O).PasteSpecial xlPasteValues Application.CutCopyMode = False ''' لترك صف فارغ اعلا كل صف O = O + 2 End If ''''''''''''''''''''''''''''''''''''''''''''''''''''' Next MsgBox ("الحمد لله تـــم ترحيل الناجحين و الراسبين إلى أوراق عمل جديدة ") Application.ScreenUpdating = True End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''' وإذا اردت زيادة عدد الصفحات الطلوب نقل وترحيل البيانات اليها ... سهلة إن شاء الله ماعليك إلا أن تضيف هذه الجزئيه في الكود مع كتابة اسم الصفحة الجديده والمعيار الجديد ''' رقم عمود المعيار وكلمة المعيار ElseIf Cells(R, 113) = "دور ثان في" Then Range("A" & R).Resize(1, 115).Copy ''' سيتم اللصق في هذا الشيت Sheets("دور ثان في").Range("A" & N).PasteSpecial xlPasteValues Application.CutCopyMode = False ''' اجعل الرقم 1 الى الرقم 2وانظر في صفحة الدور الثاني بعد الترحيل N = N + 1 ودمتم في حفظ الله ترحيل مفيد جدا كل الصفحة بشرط.rar

الأخ الكريمnahfehh السلام عليكم يرجى الأطلاع على قواعد المنتدى بتغيير الأسم الى اللغة العربية جرب المرفق التالى لعلة يفى بالغرض . abo_abary_ترحيل واستعلام.rar

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

الأخ الكريم فايز فراج السلام عليكم جرب المرفق بالمعادلات التالى لعلة يفى بالغرض abo_abary_شيت كنترول الصفين الرابع والخامس الإبتدائي.rar

وعليكم السلام الكود يقوم بفتح الملف الموجود مساره واسمه في الحقل DTPath فمثلا الملف التالي سيفتحه الكود اعلاه بإستخدام البرنامج الافتراضي في الوندوز لفتح هذه الصيغة: DTPath= "F:\Officena\Report_Time.txt" جعفر

بعد فتح المصنف الذي تريد قم بما يلي: 1-من تبويب Formula اختر name manager 2- حدد New 3 -في خانة Name حدد اي اسم تريده (عندي انا cell_has_formula ) 4- في خانة Refers to اكتب هذه المعادلة =GET.CELL(48,INDIRECT("rc",FALSE)) 5-اصغط Ok ثم Close 6- اصغط Alt+O+D+N ثم اختر من النافذة ....use a formula to determine 7-اكتب في خانة Fomat value هذه المعادلة cell_has_formula= 8- اختر التنسيق الذي تريد

ماشاء الله عليك أخي صالح جبتها من الاخر .. اشكرك جزيل الشكر وبارك الله فيك على مجهودك الرائع لوتكرمت أخي صالح مامعنى هذه العبارة : If Len(Me.code & "") = 0 Then

تستطيع استعمال اي من هذه الطرق الثلاث: Private Sub أمر1_Click() 'On Error Resume Next '1. ' Me.dd.SetFocus ' DoCmd.GoToRecord , , acNext '2. Me.dd.Form.Recordset.MoveNext '3. ' Me.dd.SetFocus ' DoCmd.RunCommand acCmdRecordsGoToNext End Sub Private Sub أمر3_Click() On Error Resume Next '1. ' Me.dd.SetFocus ' DoCmd.GoToRecord , , acPrevious '2. Me.dd.Form.Recordset.MovePrevious '3. ' Me.dd.SetFocus ' DoCmd.RunCommand acCmdRecordsGoToPrevious End Sub جعفر

تم حل المشكلة أن شاء الله بس باقي مادة الرياضيات مش فاهم كيف ستكون جرب المرفق تصميم شيت2.rar

اسم الفرعى لا يوضع هنا بل فى سطر Setfocus Me.subform.setfocus

ما اسم النموذج الفرعى؟ الفكرة هايلة و الكود رائع يستاهل يتحط في فيديو

طيب سؤال من فضلك لاحظ الصورة هل المجموع صحيح لكل من س و ص ؟ إذا كان خطا فكم سيكون المجموع لكل منهما ؟ ومن منهم الراسب ومن الناجح ؟

لو ترفق المرفق افضل ! واعتقد يوجد امثلة بالمنتدى لو بحثت قليلا هذا احدها وقريب لما تريد بالتوفيق

أرى أن تضاف الأيام التي يمنح فيها الموظف إجازة باستعلام إلحاقي إلى جدول الحضور اليومي (بدون وقت حضور وانصراف) [العملية مرتبطة بقرار الإجازة لا بشكل يومي .. ويظهر كأنه داوم في اليوم 0 دقيقة]

وهنا مثال آخر http://www.officena.net/ib/topic/67762-استخراج-رمز-المعالج-والماذر-بورد-ورقم-الهارد-ديسك-للحماية/?page=2#comment-444811

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

وعليكم السلام اخوي رمهان 1. حياك الله ، ولك مثل ما دعوت لي وزيادة ان شاء الله 2. كلامك صحيح ، هذا لأن الاخ محمود سعيد اخبرني ان الموضوع كله متعلق بالجدول Blagh ، فلهذا السبب شغلي كله كان عليه ، مع اني شفت الجدولين الثانيين ، ولكني لم اربط بينهما ، ولكن وبعد ملاحظتك ، قمت بتعديل البرنامج ، بحيث اصبح يأخذ من الجداول الثلاثة: Blagh والمصابين والوفيات ، ومرفق نسخة منه ، 3. لا تستطيع ان تستغني عن حقلي المصابين والوفيات في الجدول Blagh ، وذلك لأنه في حالات يوجد بلاغ ولا يوجد مصابين ولا وفيات ، ولا يوجد جدول مستقل لحالات البلاغ ، وقد عملت البرنامج على حساب هذين الحقلين في الجدول شكرا على المتابعة وعليكم السلام اخي محمود لوسمحت المرات الجاية ، لوسمحت لا تضع ملف تجريبي ، لأن العمل يصير مرتين استعمل احد برامج الضغط مثل winzip او winrar ، وارفق ملفك في الموضوع ، فانا لا املك حساب في الموقع الذي رفعت فيه الملف. جعفر 411.Database11.accdb.zip

السلام عليكم المشكلة في زر التعديل من وجهة نظري هي : 1. عند الاختيار من الكومبوبكس 1 والاختيار مباشرة من اللست بوكس يتم التعديل مباشرة لأن قيمة ListBox1 هي عبارة عن ( رقم ) وهو رقم الصف الموجودة فيه البيانات المراد تعديلها . ومن خلال هذا الرقم مع المعادلات الموجودة في الكود يتم التعرف على الصف المراد نقل تعديل البيانات إليه . شاهد الصورة التالية وانظر لقيمة ListBox1 : 2. عند الاختيار من الخيارات التي فرزها الكمبوبوكس 2 لا يتم التعديل ويظهر الخطأ وذلك لأن قيمة ListBox1 هي عبارة عن ( نص ) وهو النص الموجود في الخلية التي تم اختيارها في العمود b ويسبب ذلك أن المعادلات الموجودة لا تستطيع جمع نص مع أرقام لذلك يظهر الخطأ . شاهد الصورة التالية وانظر لقيمة ListBox1 : ملحوظة : a1 الموجودة في الصورة هي النص الموجود في الخلية b15 ملاحظة أخيرة : في الشيت لو استبدلت النصوص الموجودة في العمود b بأرقام سيعمل زر تعديل ولن تظهر الرسالة . ولكن المشكلة أن الترحيل يتم بشكل خاطئ وفي نفس الصف لجميع البيانات حقيقة حاولت وحاولت وحاولت أن أصحح الخطأ ولكن لم أستطع ويحتاج إلى أحد خبرائنا الأفاضل للتعديل .

السلام عليكم اثابك الله على ماتقدمه دائما استاذ جعفر الحقيقة لي تعليق لاخي جعفر : اعتقد انك تسرعت قليلا فخلينا نعيد القراءة مع تركيز قليلا ! فجرب ان تضيف مصابين اكثر لنفس البلاغ في جدول المصابين! هل سيتغير العدد ؟!! ولي عودة بعد طلب وملاحظة للاخ السائل ! اخي محمود سعيد مارايك ان هناك فكرة تعديل في البرنامج ( فكرة محلل ) وهي عبارة عن الاستغناء عن حقلي مصاب و وفيات في جدول balagh لانه يمكن اعرف العدد بوجود رقم البلاغ بجدولي المصابين والوفيات !؟ بالتوفيق

وعليكم السلام ورحمة الله وبركاته السؤال ظاهرا سهل ، ولكني لم اجد طريقة سهلة لحلّه اليك خطوات عملي: الجدول الذي نأخذ منه البيانات: . والنموذج الذي يجب ان نحتار التاريخين فيه: . استعلام المجاميع Totals لجمع البيانات حسب الحالات المتشابهة بين تاريخي النموذج: . ونتيجته: . وفي الواقع ، كل العمل التالي هو لجعل معلومات الاستعلام اعلاه تدور 90 درجة الاى اليمين ، ليصبح: . لعمل الدوران لكل حالة ، نحن محتاجين نعمل استعلام جدولي Crosstab Query ، وفي حالتنا عندنا 3 حالات ، عدد البلاغات ، عدد المصابين ، عدد الوفيات: . والنتيجة لكل حالة: . ولكن الاستعلام الجدولي محتاج تضبيط قبل ان يشتغل بالطريقة الصحيحة: اولا: بإدخال جميع الحالات الموجودة ، حتى تظهر لنا في التقرير (وإن لم يكن فيها قيمة للفترة بين تاريخين): . ثانيا: بتعريف المعايير التي تم استخدامها في استعلام المجاميع سابقا: . الآن لدينا 3 استعلامات جدولية ، وفي كل واحد منها قيمة ، ولكننا نريد القيم الثلاث ، لذا يجب ان نعمل استعلام تجميع Union query لهذه الاستعلامات الثلاث: . والنتيجة: . ولكن الاستعلام اعلاه جدا حساس ، واذا غيّرت شئ ، فلن يعمل الاستعلام!! ولكننا بحاجة الى عمل مجموع للقيم !! لذا ، سنأخذ الاستعلام السابق ، ونعمل منه استعلام جديد عادي Select ، بحيث نجمع القيم في الحقل Total ، كمل عملنا حقل للملاحظات (طبعا انت يجب ان تربطه بجدول): . والنتيجة: . بس انت ولا يهمك كل الكلام اعلاه ، فقط اضغط في النموذج على زر معاينة التقرير ، علشان تحصل على نتيجة جميع الاستعلامات اعلاه: سهله هاه جعفر 411.Database11.accdb.zip

وعليكم السلام ورحمة الله وبركاته تفضل اخي صالح كود الحفظ مطبق على ملف التصدير الخاص بك :: تحياتي EXportEmPSave.rar

بارك الله فيك أخي الحبيب ناصر سعيد وجعل أعمالك في ميزان حسناتك يوم القيامة وندعو لمعلمنا الكبير عبد الله باقشير بكل خير وأن يتغمده الله برحمته في هذا الشهر الفضيل ، فكم استفدنا ولا زلنا نستفيد منه

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة مجموعة من المكرو اعجبتني "تقويم" تم ارفاق كود الحل من الافاضل / BuFaisal _ أبوعبد الله و لا تنسونا من صالح الدعاء تحياتى تقويم (ابو فيصل).rar عمل تقويم وتحديد اليوم الحالي بمجرد فتح الملف -ابو عبدالله).rar

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

وهذه طريقة أخرى عبر الدالة والاستعلام (للإستزادة) تحسب حسب العام والشهر واليوم في نموذج QryDate _ارشيف المهام.rar

تفضل اخي المرفق بعد التعديل (انشاء الله ) يكون المطلوب _ارشيف المهام.rar

السلام عليكم الاخ الكريم / أبو چيداء ضع الكود التالي في حدث ThisWorkbook علي اعتبار ان الفورم باسم UserForm1 Private Sub Workbook_Open() UserForm1.Show End Sub جزاك الله خيرا فتح الفورم عند فتح الملف.rar

شكرا جزيلا أخى الفاضل على هذا المرور العطر والكلمات الطيبة