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

السلام عليكم العفو لقد اخطات في تنسيق التاريخ تفضل اخي المطلوب شكرا اخ محمد احمد لطفي Database1-1.accdb

Try this code Sub Test() Dim rng As Range, iRow As Long, lr As Long, m As Long Application.ScreenUpdating = False With ActiveSheet .Columns("E:H").ClearContents lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1 m = 3 For iRow = 4 To lr If .Cells(iRow, "B").Value <> .Cells(iRow - 1, "B").Value Then Set rng = .Range("A" & m & ":A" & iRow - 1) .Cells(iRow - 1, "E").Value = .Cells(iRow - 1, "B").Value .Cells(iRow - 1, "F").Value = CountUniqueValues(rng) .Cells(iRow - 1, "G").Formula = "=SUM(" & rng.Offset(, 2).Address(0, 0) & ")" .Cells(iRow - 1, "H").Formula = "=SUM(" & rng.Offset(, 3).Address(0, 0) & ")" m = iRow End If Next iRow End With Application.ScreenUpdating = True MsgBox "Done", 64 End Sub Function CountUniqueValues(ByVal rng As Range) As Long Dim cel As Range, dict As Object Set dict = CreateObject("Scripting.Dictionary") For Each cel In rng If Not dict.Exists(cel.Value) Then dict.Add cel.Value, 1 Next cel CountUniqueValues = dict.Count End Function

وعليكم السلام ربط خليتين.xlsm

@kkhalifa1960 العزيز خليفة سبق وان ساعدتى فى انشاء استعلام بين تاريخين يرجى ان تغير حقل التاريخين بدل ان اقوم بكتابة التاريخ يدويا ان يتم استبداله بنمط التاريخ المدكج بالاكسيس مثل اللى بالصورة والقاعدة مرفقة Database1-1.accdb

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

@محمد احمد لطفى احسنت وللامانة ما انتبهت

تشكر أخي على مجهدتاك

شكرا على هداياك الجميله

@Ahmed_J

السلام عليكم تفضل اتمنى ان يكون المطلوب تحياتي Database1-1.accdb

@محمد احمد لطفى يا باشا هنا اريد ان يظهر مربع التاريخ لاختار منه اليوم بدل كتابة التاريخ يدويا كما فى الصورة

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

هذا هو مطلوب اخي الكريم جزاك الله خيرا

اهداء الى طالبه عز-سوريه للعامه وخاصه حاليا يعمل على دقه شاشه 1920x كلمة مرور: 6 استعلام فوري بالمركبات والعملاء ولكن جعلته للمشاركه معكم لا يوجد تقارير وهناك برنامج للاستاذ @عبد اللطيف سلوم بسيط وجميل برنامج تأجير مركبات على قناته وهذا برنامج الاستاذ @عبد اللطيف سلوم ومنها طلب استكمال جزئية الاحتساب كيلو مترات المضافة مع مبلغ المضاف وليس اضافة على المتبقي- وتمديد عقد آخر بجديد كل وقت بحسابه فلا يحتاح الى مبلغ اضافي لتمديد (المطلوب فقط فارق مسافه المستقطعه بالعداد لاجمالي المبلغ آلي ) ولم اكمل ربط علاقات!! نسيت ضم كليهما في واحد لا يحتاج علاقات ليه لا يوجد احد يكمل لي برنامج! لو جزء صغير ربما يكون معقد لدى البعض قدمة لاحد دعوة تسجيل لهذا الموقع اوفيسينا ولكن اشتكى لا يستطيع بسبب مشاكل في تاكيد تسجيل بالايميل الموقع لا يرسل ولا يوجد حل! نصيحه لا تقدم لاي احد دعوة تسجيل لموقع الى بعد فترة اصلاح الموقع وتأكد ! ملاحظه برنامج لتأجير بنيته على مرفق @Eng.Qassim لتحميل البرنامج ميديا فير مباشر وسريع: https://www.mediafire.com/file/3wxd3etu2o6ed5n/X-Care_Upsofte_XGPT_For_Office_RintCare_To_2024_Devloper.rar/file Ezril تقر عينكم بالغايب طويل مسافات

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

ماشاء الله ابداع جدا رائع سلمت اناملك

ياخي انا اشكرك كل الشكر ومتابع ردودك شكرا لك من أعماق قلبي فعلا إنك لا تبخلل على الجميع بأي معلومة زادك الله من نعيمه شكر خاص لك وشكر للمنتدى ثانيا

نعم ممكن بعد السطر الخامس او السادس نضع الامر التالي المهم انه يكود داخل الحلقة التكرارية ctl.FontName = "tahoma" ctl.FontSize = 10 ويمكن تغيير نوع الخط والحجم وفقا لما تريد مع ذلك الافضل ان يكون التحكم من خلال نموذج للقيم الثابته حيث يمكن لكل مستخدم اختيار الستايل المناسب له وسوف احاول ان اضع مثال لذلك انظر للصورة المرفقة ربما تتضح فكرة نموذج القيمة التي اشرت اليها

كل عام وانتم بالف خير ..جعله الله عيدا مباركا على الجميع.. نسأله تعالى بهذه المناسبة المباركة ان يحفظ الجميع ...وان يعيد الينا استاذنا الغالي جعفر @jjafferr سالما غانما بأذن الله

‏كلُّ عيدٍ والسعدُ يحفُّ أرواحكم ‏هنأكم الله، وبشّركم، وسرّكم، وأسعدكم، وأبهجكم، وآنسكم، وأفرحكم، وأضحككم، ورضي عنكم .. كُل عام وقلوبكمْ في علوٍ ورفعةٍ ‏من الدينْ والدُنيا، وكل عام وأكاليل السعادة تزهى بكم. كُلّ عـــام وَ الطمأنينة وَ السـلام تطـوق ٲرواحكم. كُلّ عـــام وَ قلوبكم تنبضُ حُـبّاً وفرحاً .. -‏كل عام وأنتم بخير وعافية وإنشراح صدر، وقلوبكم مليانة سعادة وطمأنينة وسلام، عيد سعيد عليكم جميعًا 🌷🌷💗🌹🌹🌹🌹🌹🌹🌹🌹💗🌷🌷

كل عام وانتم جميعا بخير وسعادة لفته جميلة من خبيرنا / خليفة

تقبل الله صيامكم وقيامكم وصالح الأعمال، عيدكم مبارك وكل عام وأنتم بخير وصحة وعافية

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

يعمل عندي بشكل جيد !!!!!!!!!!!!! أخي @blue sea أين ردك ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟