اذهب الي المحتوي
أوفيسنا

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

  1. hanan_ms

    hanan_ms

    02 الأعضاء


    • نقاط

      9

    • Posts

      76


  2. ابو جودي

    ابو جودي

    أوفيسنا


    • نقاط

      8

    • Posts

      6,646


  3. محمد هشام.

    محمد هشام.

    الخبراء


    • نقاط

      8

    • Posts

      1,214


  4. safaa salem5

    safaa salem5

    04 عضو فضي


    • نقاط

      8

    • Posts

      525


Popular Content

Showing content with the highest reputation since 13 يول, 2024 in all areas

  1. الاكسيس والموبايل استحالة التوافق بينهما مهما حاولت فلا تتعب نفسك ابحث عن لغة اخرى
    3 points
  2. اسف انا لسه واخد بالى انه سؤال يشبه التحدى انا قولت دعوة للتطوير ويل مع بعض نطوره واتعلم منكم اكتر lمرفق تعديل للتنسيق اعتقد ظبط شوية ونطوره برضه مع بعض Gemini API.rar
    3 points
  3. جرب هدا Sub SUMIF() Dim WS As Worksheet: Set WS = Sheets("كشف حساب") Dim sum As Double, Cnt As Long WS.[Y1] = CDate(Me.DateMini) Cnt = 0: sum1 = 0: sum2 = 0 On Error Resume Next With ListBox1 For R = 0 To .ListCount - 1 Cnt = Cnt + 1 sum1 = sum1 + .List(R, 10) sum2 = sum2 + .List(R, 11) Next R End With Me.S.Caption = Cnt TextBox3.Value = Format(sum1, "#,##00.00"): TextBox2.Value = Format(sum2, "#,##00.00") tb = sum1 - sum2 TextBox1.Value = Format(tb, "#,##00.00") tb1 = Evaluate("=SUM(SUMIFS('" & WS.Name & "'!G4:G100000,'" & WS.Name & _ "'!C4:C100000,{""مبيعات"";""قيد""},'" & WS.Name & "'!B4:B100000,""<=""&'" & WS.Name & "'!Y1))") tb2 = Evaluate("=SUM(SUMIFS('" & WS.Name & "'!H4:H100000,'" & WS.Name & _ "'!C4:C100000,{""مردودات مبيعات"";""سند قيد"";""سند قبض""},'" & WS.Name & "'!B4:B100000,""<=""&'" & WS.Name & "'!Y1))") result = tb1 - tb2 Me.Text_count.Value = Format(result, "#,##00.00") End Sub Copy of كشف حساب عميل V2.xlsm
    2 points
  4. مثال مبسط عند اعتمادك لمشروعك يمكن تحويل SQL او DOA او DAO 1- تحديد جميع التحاليل من لستة بوكس اما محدد او الكل والعكس 2- اعتماد المحدد او الكل من حقل قائمة الى صندوق النص بسطر جديد وكل حقول في الجدول 3- سهولة عرض التقارير بحقول النص باسم المريض واستخراج PDF 😏 شرح سابق بتحديث السابق للتوضيح فقط اشكر صفاء @safaa salem5 ❤️🌹 على اهداء المرفق تحويل بتحديث # SQL A ADO AOD Updat_ListBox_Selected_Item.rar
    2 points
  5. ليس مستحيلا يا صديقي يمكن تطبيق ذلك انا لدي برنامج مصمم بالاكسس وفي نفس الوقت لدي تطبيق على الهاتف يتم تبادل البيانات بينهما بكل اريحية باستخدام سيرفر وقاعدة بيانات وصفحات php ويتم ذلك باوامر api ويمكنني التحكم ببرنامج الاكسس من خلال الهاتف من اغلاق النسخة وتمديدها وارسال ملاحظات واستقبال ملاحظة من يعمل على البرنامج والكثير من الامور وان احببتم اضع لكم فيديو توضيحي لما يقوم به التطبيق بين برنامج الاكسس والهاتف :: تحياتي
    2 points
  6. السلام عليكم أخي الكريم عدلت لك قليلا في نسق الملف بحيث أن أول جدول يتطابق مع باقي الجداول التالية يعني كل جدول بما فيها الأول يكون 36 سطر شامل السطر الفاضي بين الجداول وعندما تريد إضافة جدول آخر تأخذ نسخة من الثاني وليس من الأول واحرص أن يكون الفارق بين بداية أي جدول والذي يليه 36 سطر بالضبط تفضل المرفق التجميع2.xlsx
    2 points
  7. أخي @hanan_ms أنت ماهر في تصميم النماذج ولديك خبرة في استخدام عناصر Active x 🙂 أيش رايك تعمل سلسلة دروس في كيفية استخدام هذي العناصر والتحكم فيها.. ( ولكن في مواضيع مستقلة بك وبشكل منظم .. بدل ما توزع المعلومات في مواضيع المنتدى بشكل متفرق ) .. كل مرة تشرح أداة من هذي الأدوات .. من بداية إدراجها .. واستخداماتها .. وكيفية تضبيطها .. والتحكم في خياراتها .. أيش رايك ؟؟ 🙂
    2 points
  8. بالنسبة للتسلسل يمكنك استخدام الصيغة التالية مع سحبها للاسفل بعد حدف كود ترقيم الصفوف من حدث ورقة 1 =IF(C9>0,SUBTOTAL(3,$C$9:C9),"") اما بخصوص تنسيق اعمدة الروابط اظن انه من الافضل ربط الكود مع زر يمكنك استخدامه مثلا بعد الانتهاء من نسخ جميع الروابط على العمودين جرب هدا Function tmp(Cnt As String) As Boolean Dim Request As Object Dim rc As Variant On Error GoTo EndNow Set Request = CreateObject("WinHttp.WinHttpRequest.5.1") With Request .Open "GET", Cnt, False .Send rc = .StatusText End With Set Request = Nothing If rc = "OK" Then tmp = True Exit Function EndNow: End Function Sub add_Hyperlinks() Application.ScreenUpdating = False Set WS = Sheets("Sheet1") Dim c As Excel.Range, Cnt As String, r As Excel.Range Dim a As Range, b As Range, Rng As Range lr = WS.Columns("i:j").Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row Set a = WS.Range("i9:i" & lr): Set b = WS.Range("j9:j" & lr): Set Rng = Union(a, b) For Each c In a If c > "" Then c.Select Debug.Print c.Value Cnt = Trim(CStr(c.Text)) If Left(Cnt, 4) <> "http" Then Cnt = "http://" & Cnt If tmp(Cnt) Then WS.Hyperlinks.Add Anchor:=c, Address:=Cnt, TextToDisplay:="رابط اليوتيوب" End If Next c For Each r In b If r > "" Then r.Select Debug.Print r.Value Cnt = Trim(CStr(r.Text)) If Left(Cnt, 4) <> "http" Then Cnt = "http://" & Cnt If tmp(Cnt) Then WS.Hyperlinks.Add Anchor:=r, Address:=Cnt, TextToDisplay:="رابط الفيسبوك" End If Next r With Rng .Font.Color = RGB(0, 0, 255) .Font.Underline = xlUnderlineStyleNone .Font.Bold = True .Font.Name = "Calibri" .Font.Size = 16 End With Application.ScreenUpdating = True End Sub 14-7-2024 V2.xlsm
    2 points
  9. في حدث عند التركيز ، جرب الكود التالي :- If Me.TextBox.Value = 0 Then Me.TextBox.Value = "" End If
    2 points
  10. السلام عليكم ورحمة الله أخي الكريم كنت ابحث في الموضوع منذ أن طرحته (كود جلب بيانات من داخل موقع) ولم أجد مايصل الى الهدف بل كل ما وجدته يدور حوله. فطلب حضرتك ربط الاكسس بالموقع بطريقة شرعية وتحديث البيانات داخل قاعدة الاكسس بالضغط على زر (Import) . بينما (جلب البيانات) طريقة غير شرعية .وذلك لأن الموقع المراد سحب البيانات منه غير مصمم ليرتبط مع قاعدة بيانات اكسس وغير مصرح لك بجلب تلك البيانات (Data Grab) لوجود حماية على كل المواقع من كل أدوات جلب البيانات أو (الاستيلاء على البيانات) أما عدا ذلك فهو خيال علمي والخلاصة أنه يجب عليك تصميم قاعدة بيانات اكسس مرتبطة مسبقاً مع الموقع. لا أن يتم ذلك بعيدا عن مصمم الموقع أو بدون أذن للولوج للموقع وربط قاعدة البيانات به. بالنسبة لطلبك (أستاذة حنان، ممكن الرابط تبع المواضيع مع استاذنا إبراهيم) تفضل الملف الذي عليه النقاش مباشرة موجود بالمرفقات والكود الموجود به هو Dim mypath As String mypath = "http://www.nbe.com.eg/en/ExchangeRate.aspx" txtpath = mypath2 DoCmd.Maximize Set web = Me.WebBrowser4.Object web.Navigate mypath أما بالنسبة لنوع صفحة الموقع واللغة المكتوبه به هو عبارة عن ملفات ASPX وهي اختصار ل Active Server Pages وهذا الرابط يشرح المزيد https://www.3arrafni.com/aspx-files/ وهناك ماوجدته لتصميم قاعدة اكسس وربطه بالموقع مسبقاً أو وهذه طريقة يدوية لجلب البيانات من صفحة HTML مخزنة على الكمبيوتر وهذا رابط أخر تناول الموضوع مسبقاً على هذا المنتدى العظيم و أرجو أن أكون قد أفدتك. أخوك أحمد دراز WebImport.rar
    2 points
  11. اتفضل استاذنا الفاضل وجدت هذا البرنامج على النت وهو جميل جدا جدول الحصص الأسبوعي.zip
    2 points
  12. انا لم اجرب بعد 2 اقترح اضافة صندوق نص و كود استبدال نجمة "*" بسطر جديد يسحب النص الى نص بسطر جديد للتنسيق
    2 points
  13. حاول تجربة هدا من خلال اليوزرفورم Dim f Private Sub UserForm_Initialize() Set f = Sheets("ClassSheet") Set d = CreateObject("Scripting.Dictionary") For Each c In f.Range("b2:b" & f.[b65000].End(xlUp).Row) d(c.Value) = "" Next c Me.ComboBox1.List = d.keys End Sub Private Sub ComboBox1_Change() Set d = CreateObject("Scripting.Dictionary") For Each c In f.Range("b2:b" & f.[b65000].End(xlUp).Row) If c.Value = Me.ComboBox1 Then d(c.Offset(0, -1).Value) = "" Next c Me.ComboBox2.List = d.keys Me.ComboBox2.ListIndex = -1 Me.ComboBox3.ListIndex = -1 End Sub Private Sub ComboBox2_Change() Set d = CreateObject("Scripting.Dictionary") For Each c In f.Range("b2:b" & f.[b65000].End(xlUp).Row) If c.Value = Me.ComboBox1 And _ c.Offset(0, -1).Value = Me.ComboBox2 Then _ d(c.Offset(0, 1).Value) = "" Next c Me.ComboBox3.List = d.keys Me.ComboBox3.ListIndex = -1 End Sub Private Sub b_validation_Click() If Me.ComboBox1 <> "" Then ActiveCell.Offset(0, 2).Value = Me.ComboBox1.Value If Me.ComboBox2 <> "" Then ActiveCell.Value = Me.ComboBox2.Value If Me.ComboBox3 <> "" Then ActiveCell.Offset(0, 4).Value = Me.ComboBox3.Value Unload Me End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Sheet1.Range("b8:b200")) Is Nothing Then UserForm1.Show End If End Sub All.BOQ V2.xlsm
    1 point
  14. بكذا نحن بحاجة الى اعادة تصميم نموذج التوزيع بحيث تكون التصفية كالتالي : الصف / النوع / ........ بكذا يظهر العدد سواء ذكور او اناث .. ونوزع العدد الناتج على المجموعات المناسبة انتظرني .. لأني سأغير النوع من نص الى رقم .. افضل واسرع
    1 point
  15. Version 1.0.0

    6 تنزيل

    السلام عليكم ورحمة الله وبركاته أسعد الله أوقاتكم بكل خير وسرور .. وتقبل الله منا ومنكم صالحات الأعمال .. 😊🤲🏻 يطيب لي أن أقدم لكم هذا الهدية المتواضعة بمناسبة هذا الشهر الفضيل 🙂🌼🎁 استبدل الرسائل العادية في أكسس برسائل ذات تصاميم قمة في الإبداع وبمميزات إضافية . من مميزات هذه الرسائل: - تصميم جميل وألوان جذابة. - خاصية ذاتية الاختفاء. - عنوان رئيسي + عنوان فرعي - تحكم بالنص ( عربي - إنجليزي ) ( توسيط - محاذاة على اليمين أو اليسار) - سهلة الاستخدام . الشرح على اليوتيوب : التحميل 🙂 Moosak MsgBox.accdb ولا تنسوني من صالح دعواتكم 😊🌷🌼🌹
    1 point
  16. لم ابحث في اليوتيوب ولكن كان عندي مشروع مماثل لك استخدمت الذكاء الاصطناعي وحاولت حتي وصلت للمراد، اعطني قاعدة البيانات الخاصة بك به الجدول وسوف اكتب لك كود يقوم بتصميم الصفحة HTML مع اكواد الجافا سكربت وكود الحفظ والاسترجاع من PHP المرفق المرسل اقوم بتصدير البيانات من قاعدة البيانات تحتاج الي برنامج مثل XAMPP كالمرفق وتضع ملف في htdocs من البرامج من C وجرب ادخال البيانات سوف تقوم بالحفظ والاسترجاع بعدها ستحتاج كود في قاعدة البيانات يقوم بتصدير البيانات الي جدول اكسس بالتوفيق ان شاء الله mymapproject.rar
    1 point
  17. الحمد لله ان حضرتك اكتشفت الغلط فين جل من لا يسهو ( محدش فينا كبني ادمين مبيغلطش ) ☺️☺️ اما بالنسبه لسعه صدرى دي كانت عشان انت راجل محترم فكان حقك اني لازم ارد عليك قدام من الاول حاولت اساعد ومش عيب اني لما اوصل لنقطه اني مش فاهم السؤال او المشكله اسيب الطريق لغيري يكمل لأن موجود كتير جدا من هو افضل مني ( انا مجرد هاوي ) 🥱🥱🥱 بالنسبه لأفضل اجابه دي فدي والله لم تعد تعنيني علي الاطلاق 🤓 انا بجتهد لنفسي ( بحب اتحدي نفسي في صعوبات الاكسس ) تحياتي لشخصك
    1 point
  18. انا مش حابه اعلق على كلامك انا عموما عملتها بمساعدة منتدى اجنبى شكرا لكل اللى تعب معايا ومش ناسيه ولا ناكره مجهود حد. وعلشان مش حابه اسبب لحد تعب او اجهاد بسبب طلباتى اللى بتكون صعبه ومبهمه او مش واضحه بالنسبالكم علشان كدا انا اخدت قرار مش هدخل المنتدى تانى شكرا لكل الناس اللى ساعدتنى ووقفت معايا @عمر ضاحى شكرا @Foksh شكرا @ابو جودي شكرا @ابو خليل شكرا @kkhalifa1960 شكرا حبيبتى @hanan_ms
    1 point
  19. السلام عليكم تفضل المرفق التكرار.xlsx
    1 point
  20. السلام عليكم و رحمة الله استخدم هذا الكود Sub AddRow() Selection.EntireRow.Insert , xlFormatFromLeftOrAbove End Sub
    1 point
  21. السلام عليكم بالمشاركه مع جميع العمالقه اللي ردوا عالتعليقات وخاصه ابو جودى وتعديل علي طريقته اللي حضرتك قولتي عليها انها زي اللي انتي عايزاه بس عايزه فى كل مره تضيف فالتكست بتاعك القيمه اللي تختاريها مشاركتى عشان الموضوع زاد فى اكتر من صفحه نصيحه اخويه حضرتك حددي اللي انتي عايزاه كله مره واحده وبالتفصيل فالملف عشان الناس تقدر تفيدك محدش بيدعي عليكي او بيظلمك فى وجهه نظره لان حضرتك مبتقوليش طلبك كامل + ان كل شويه طلب مختلف + ان ممكن بعد شهر تفتكري او تبيقي عايزه تعدلي حاجه ترجعي تعملي منشن رغم ان الموضوع زي مبيقولو بلغه البحث العلمي بيبقي قتل بحثا ( اتعمل اكتر من مره ) اسف لوجهه نظري ولو مش علي هواكي ارميها فالسله (القمامه ) انا من اسلوبك كنت مقرر اني مش هشارك تاني بس قولت المره دي اقول وجهه نظري بجزء من الاستفاضه لاني جديد عليكم يعني مفيش معزه بيني وبين حد عشان اتحرج زي غيري واسف جدا جدا جدا عالاطاله ((((((( ولو مش هو ده المطلوب زي محضرتك طلبيتيه فمشاركاتك وظلمتي اغلب اللي عملوه بالظبط بس بوجهه نظرهم )))))))) انا مستعد ابطل اكسس ان شاء الله safaa_nn.accdb
    1 point
  22. الله عليك استاذنا @M.Abd Allah فينك من زمااااان جيب لي راسك اقبلها 😘 بارك الله فيك وجزاك الله عني خير شكرا لردك وكذلك انك خصصت من وقتك الثمين لأعطائي الحل حفظك الله ورعاك وزادك الله نورا وعلما
    1 point
  23. ابداع وتلق وعمل مهم جدا أخي @فريدالطحان وياريت يتم تطويرة من اساتذتنا الافاضل
    1 point
  24. للاسف لم افهم الية العمل في برنامجك والارتباطات الموجوده بها .... فقم وانا اسف للتعديلات على الجداول والنماذج والعلاقات ( من اجل تقريب الصورة ) فخرجت بهذا الشكل .... وعند اكتماله وبدون اخطاء سوف ادرجه هنا ان شاء الله ....................... انظر الصور فهل تصوري صحيح لاكمل ام اتوقف لانه خطأ
    1 point
  25. السلام عليكم ورحمة الله وبركاته 🌹 درسنا اليوم عن طريقة عمل قوائم ديناميكية متحركة بأقل عدد من الأكواد وطريقة مبتكرة . 🙂 النتيجة النهائية : الشرح : تحميل الملف : Dynamic Menus.accdb
    1 point
  26. انا محاسب تكاليف وافهم ما تقصد لكن انت طلبت ان يجلب التركيات وايضا ارصدتها في المستودعات وهذا فرق كبير بين الطلبين وايضا يجب ان يحسب الكميات اللازمة للانتاج بناء على معادلة التصنيع والا ما الفائدة من جلب التراكيب العائدة للمنتج
    1 point
  27. شكرا @Eng_shukri 🌹 انا اعجبني مرفقك ❤️ !كنت بحاجة لبروقرس فيجوال مع نافة حول برنامج متحركة كملة وعدلة وصلحة 😇 واتمنى ان ينال اعجابكم New Slide porgres bar.rar
    1 point
  28. لن اقول الا ان فهم السؤال ثلثى الاجابة وارجو ولوجه الله تعالى رحمة ورأفة بمن يحاول تقديم المساعدة - ان يتقدم صاحب المسألة بالشرح الوافى والكافى ليتثنى للجميع الفهم الجيد الذى سوف يترتب عليه كل شئ - وضع المرفق المراد العمل عليه وتعديله - وضع كل التصورات التى يريد صاحب المسألة تحقيقها ليجد مبتغاه بسهولة حتى وان كان يمتلك فكرة بمرفق ويريد تحقيها يضع المرفق وينوه عنها نحن وحين نضع الاجابات لن نقتح المندل او نضرب الودع او نحضر الارواح لتدلنا على افكاركم وتطلعاتكم دعونا لا نتفاجئ بعد وضع الحل وبذل الجهد والوقت لتحقيق ما تم طلبة بتطلعات فى خيال صاحب السؤال فنكون مجبرين على ان نعيد التحليل والتفكير والنظر مرة بعد مره تلو الاخرى واعادة هيكلة الكود او خذف جزء او اجزاء استغرفت الوقت الوجهد فنمسى كالتى نقضت غزلها . الرحمة يرحمكم الله
    1 point
  29. لقد سبق الاشارة الى انه يفضل اظافة باسوورد لمحرر الاكواد تفاديا لهدا Password 3698 فتح المصنف على اجهزة محددة.xlsm
    1 point
  30. WS.Copy Set NewWb = ActiveWorkbook ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value NewWb.SaveAs fname, FileFormat:=51 NewWb.Close False Set NewWb = Nothing
    1 point
  31. ايوه تمام هى دى النتيجه وفى انتظار الطريقه التانيه ايوه تمام هى دى النتيجه وفى انتظار الطريقه التانيه ايوه تمام هى دى النتيجه وفى انتظار الطريقه التانيه ايوه تمام هى دى النتيجه وفى انتظار الطريقه التانيه
    1 point
  32. وعليكم السلام ورحمه الله وبركاته تقدر تستخدم الطريقه دي هتعمل الداله دي فى module وتحفظها باي اسم بالطريقه دى يبقي حضرتك عملت ا لكود مره واحده وبتستدعيه كل متحب Public Function HandleKeyDown(KeyCode As Integer, Shift As Integer) As Integer If KeyCode = 115 Then ' F4 Form_Form1.k1.SetFocus HandleKeyDown = 0 ' لمنع إدخال بيانات في الحقل الحالي ElseIf KeyCode = 114 Then ' F3 Form_Form1.k5.SetFocus HandleKeyDown = 0 ' لمنع إدخال بيانات في الحقل الحالي Else HandleKeyDown = KeyCode ' لإعادة KeyCode الأصلي لتمكين إدخال البيانات في الحقل End If End Function هفترض أن لديك نموذج يحتوى على عده حقول k1,k2,k3,k4,k5 وعايز تطبق نفس الكود علي جميع هذه الحقول هتعمل فى حدث keydown لكل حقل كالاتى Private Sub k1_KeyDown(KeyCode As Integer, Shift As Integer) KeyCode = HandleKeyDown(KeyCode, Shift) End Sub Private Sub k2_KeyDown(KeyCode As Integer, Shift As Integer) KeyCode = HandleKeyDown(KeyCode, Shift) End Sub Private Sub k3_KeyDown(KeyCode As Integer, Shift As Integer) KeyCode = HandleKeyDown(KeyCode, Shift) End Sub Private Sub k4_KeyDown(KeyCode As Integer, Shift As Integer) KeyCode = HandleKeyDown(KeyCode, Shift) End Sub Private Sub k5_KeyDown(KeyCode As Integer, Shift As Integer) KeyCode = HandleKeyDown(KeyCode, Shift) End Sub
    1 point
  33. يسعدني وضع أول مشاركة أستاذ @أبو عبدالله الحلوانى ، حالياً اقوم بالتصفح من الجوال ، سألقي نظرة على فكرتك الجميلة .. وددت لو أرفقت لنا صور على الأقل لتكتمل الصورة 😉 .
    1 point
  34. أخي العزيز (تامر عجور) لقدطلبت الاتي: (السلام عليكم عايز شرح للكود ده) أنا شرحت الكود برمجياً فأنت لم ترفع القاعدة على المنتدى لأعرف ما هي المتغيرات التي أقوم بشرحها و لا إلى ماذا ترمز ولم تطلب معرفة ما الذي يفعله الكود؟ فأنا لا أعرف ماهي هذه المتغيرات aa bb xx y v ولا إلا ماذا تشير من فضلك قم برفع ملف الاكسس على المنتدى كمرفق فسيقوم الجميع بشرحه و ماذا يعنى هذا الكود وماذا يفعل وشكرا لك
    1 point
  35. بالنسبة لي ارى ان التصميم خاطىء يجب ان يبقى الرقم القومي فريد لا يتكرر .. مع البيانات الأخرى الثابتة اما السنوات والبيانات المتغيرة فتدرج في جدول آخر فرعي
    1 point
  36. وعليكم السلام ورحمة الله تعالى وبركاته جرب هل هدا ما تقصده Sub SaveActiveSheetVBA() Dim WS As Worksheet, NewWb As Workbook Dim SPath As Variant, FileName As String, fname As String Set WS = ThisWorkbook.Sheets("Sheet1") ' تحديد ورقة العمل SPath = ThisWorkbook.Path & "\" ' مسار الملف FileName = "TEST" ' اسم الملف fname = SPath & FileName With Application .DisplayAlerts = False .ScreenUpdating = False .CopyObjectsWithCells = False WS.Copy Set NewWb = ActiveWorkbook NewWb.SaveAs fname, FileFormat:=51 NewWb.Close False Set NewWb = Nothing .DisplayAlerts = True .CopyObjectsWithCells = True .ScreenUpdating = True End With End Sub Copy another Workbook.xlsm
    1 point
  37. تفضل تم اضافة الادارات والحاقها في التقارير ايضا يمكنك تصفية الادارات : حسب الادارة , وحسب التاريخ EvaluationEmpUp4.rar
    1 point
×
×
  • اضف...

Important Information