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

كل الاكواد بسطر واحد نموج واحد بسيط والكود بداخل الزر Sken_Calendr_One_Form.rar

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

The code is already OK as it exports data from the listbox to the worksheet Just comment out those two lines For X = 0 To ListBox1.ListCount - 1 Next X as I don't see any need to loop through the items of the listbox

شكرا لحضرتك استاذى الكريم Nox Vidmate VLC

السلام عليكم -تفضل كان عليك استخدام خاصية البحث بالمنتدى أولا قبل رفع مشاركتك فبه كنوز تحميل نموذج حضور وانصراف الموظفين excel و سلف و مرتبات شيت المرتبات الشامل 2023.xlsm

السلام عليكم ورحمه الله وبركاته تفضل راس الصفحة - كود.xlsb

جميل حقا

لازم تجعل كل ورقة في شيت مستقل

تمام يا معلمى تم الموضوع بنجاح بالغ التحية والتقدير لك كل التقدير معلمى

السلام عليكم تفضل المرفق وقد تم الغاء العمود تنبية للوصول بسن المعاش 2.xlsm

بص كده بيانات بحاجة الى تعديل.xlsx

عمل جميل جدا ، تسلم إيديكي على هذا العمل ، لي ملاحظة ، وهي ظهور الفرق بين تاريخين -5 شهر ، أو العدد بالايام -170.. هل هذا منطقي ؟؟؟؟

أخي @Armia Nabilرقم السيارة مكرر على طول العمود مثلا الرقم 125 هل يحب ترحيل البيانات على جميع الصفوف ام فقط الصف الأول تفضل اختار ما يناسبك Option Explicit Sub test1() Dim WS As Worksheet, dest As Worksheet Dim c As Range, f As Range Set WS = Sheets("1"): Set dest = Sheets("التقرير") Application.ScreenUpdating = False For Each c In WS.Range("H2", WS.Range("H" & Rows.Count).End(3)) Set f = dest.Range("H:H").Find((c.Value), , xlValues, xlWhole, , , False) If Not f Is Nothing Then dest.Range("A" & f.Row & ":j" & f.Row).Value = WS.Range("A" & c.Row & ":j" & c.Row).Value End If Next Application.ScreenUpdating = True End Sub '======================== Sub test2() Dim WS As Worksheet, dest As Worksheet Dim Lastrow As Long, i As Long, rng As Range, code As Variant Set WS = Sheets("1"): Set dest = Sheets("التقرير") Lastrow = WS.Cells(WS.Rows.Count, "H").End(xlUp).Row Application.ScreenUpdating = False With dest Intersect(.Range(.Rows(2), .UsedRange.Rows(.UsedRange.Rows.Count)), Union(Range("A:G"), .Range("I:J"))).ClearContents End With For i = 2 To Lastrow: code = WS.Cells(i, "H").Value Set rng = dest.Columns("H").Find(What:=code, LookIn:=xlValues, LookAt:=xlWhole) If Not rng Is Nothing Then dest.Cells(rng.Row, "A").Resize(1, 10).Value = WS.Cells(i, "A").Resize(1, 10).Value End If Next i Application.ScreenUpdating = True End Sub '================================= Sub test3() Dim WS As Worksheet, dest As Worksheet Dim cel As Range, r As Range, tmp As Range Set WS = Sheets("1"): Set dest = Sheets("التقرير") Application.ScreenUpdating = False For Each tmp In dest.Range("H2:H" & dest.Cells(Application.Rows.Count, 8).End(xlUp).Row) Set r = WS.Columns(8).Find(tmp.Value, , xlValues, xlPart) If Not r Is Nothing Then dest.Range("A" & tmp.Row & ":j" & tmp.Row).Value = WS.Range("A" & r.Row & ":j" & r.Row).Value End If Next tmp Application.ScreenUpdating = True End Sub تقرير.xlsb

شغال عالي يا باشمهندسه الله ينور 🌹🌹🌹

رائع الله ينور عليك🌹🌹🌹🌹

سوف اقدم اليك النصح وانا اقل طويلب علم بالمنتدى ضع نصب عينيك دائما وابدا وبوجه خاص مع الاكسس البساطة قدر الامكان لانه صدقنى وعندما تكون البيانات اولا قليلة او قد يتتطلب مشروعك عمل وتنفيذ الكثير من الاجراءات وبالاخص ان كانت معقدة وام تم التعامل مع جهاز ضعيف او عبر استخدام القاعدة ضمن شبكة محلية قد تصيبك صدمة من استخدام ما قد يكون لو تأثير بالسلب على اداء وسرعة فاعدة البيانات لذلك انصحك بالبساطة اعلم انه فد ترى وتشاهد حركات وامور تكون مبهجة وقد تعجب بها جدا ولكن كما اخبرتك واليك مثال على الرئيسية على سبيل المثال expand and collapse button V3.zip

اخي الكريم ،، الرقم هو فعلاً 9 مليار ( 9000000000 ) أما 9 مليون ( 9000000 ) 😅

يمكن ذلك ، ولكني أنصحك بفتح موضوع جديد مستقل واشرح المطلوب مع إرفاق ملف

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