يوسف السيد

اساتذتى الفضلاء .. الاكواد جميلة بارك الله فيكم هل بالامكان ان يتم اظهار الارقام الناقصة فى رسالة وليست كما بالمرفق فى عمود

الاستاذ سليم حاصبيا : الملف راائع جداً ولكن هل بالإمكان اظهار الارقام الناقصة من التسلسل فى رسالة

السلام عليكم : اعتذر عن التاخير نظراً لضيق الوقت ان شاء الله تجد بالمرفقات طلبك وزيادة تنوية: الفورم المستخدم هو للاستاذ : عبدالله باقشير test - 2.rar

بعد تنزيل المرفقات يبدو ان المشكلة فى اكواد الفورم وجارى العمل عليها ان شاء الله

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

انا لله وانا اليه راجعون .. البقاء لله الله يرحمها ويسكنها فسيح جناته

السلام عليكم : ابحث عن كود ليضم حوالى ثلاث نطاقات مع ScrollArea حيث ان الكود الاساسى يعمل على نطاق واحد ولا استطيع التعديل عليه وهو كالتالى: Sheets("main").ScrollArea = "d2:D3" اريد معه نطاق C6:C106 وكذلك النطاق E6:I106

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

السلام عليكم : اريد كود او معادلة لعد خلايا خلال اخر فترة تواريخ متسلسلة ولمزيد من التوضيح .. اتمنى النظر بالمرفقات عد خلايا.rar

الاستاذ الفاضل شوقى ربيع .. الكود رائع ولكن لماذا عند تغيير التاريخ لا يتوقف الوميض

استاذى الفاضل : منكم نستفيد ونتعلم بارك الله فيك ورزقك الجنة بغير حساب

تم بحمد الله التوصل الى النتيجة المطلوبة فى كود التعديل عن طريق كود ايضا للرائع الاستاذ : ابو حنين والفكرة هى حذف البيانات القديمة عند التعديل واعادة ترحيل البيانات مرة اخرى Sub sSave() Application.ScreenUpdating = False Dim i As Long, Last As Long, Sh As Worksheet, Shh As Worksheet Set Sh = Sheets("main"): Set Shh = Sheets("database") If Sh.Range("A6") = "" Then MsgBox "لا توجد أي بيانات للترحيل", vbExclamation + vbMsgBoxRight, "خطأ" Exit Sub: End If LR = Sheets("database").[B1000000].End(xlUp).Row For i = LR To 4 Step -1 If Sheets("database").Cells(i, 1) = Sheets("main").Range("C2") Then Sheets("database").Rows(i).Delete Shift:=xlUp End If Next 'كود الترحيل أ:ابو حنين If MsgBox("هل تريد ترحيل البيانات الحالية الى قاعدة البيانات", vbInformation + vbMsgBoxRight + vbYesNo, "ترحيل") = vbNo Then Exit Sub x = Shh.Cells(Rows.Count, "B").End(xlUp).Row + 1 Last = Sh.Cells(Rows.Count, "A").End(xlUp).Row For i = 6 To Last Sh.Range("A" & i).Resize(, 8).Copy With Shh .Range("B" & x).PasteSpecial xlPasteValues: .Range("A" & x) = Sh.Range("C2").Value .Range("A" & x & ":" & "I" & x).Borders.Value = 1: .Range("J" & x) = x - 4 x = x + 1 End With: Next Sh.Range("A6:I" & Sh.Cells(Rows.Count, "A").End(xlUp).Row + 1).ClearContents: Sh.Range("C2") = "" Application.ScreenUpdating = True MsgBox "تم ترحيل البيانات بنجاح", vbInformation + vbMsgBoxRight, "ترحيل" End Sub

للرفع رفع الله قدركم

وعليكم السلام : الاستاذ:ابو حنين .. جزاك الله خيراً وكما قال الاستاذ:سعيد بيرم ... فأنت متألق دائما فى منتدانا الحبيب وننتظر منكم ان شاء الله الكود المعدل لحالة نقص البيانات عن البيانات القديمة

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

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

up

السلام عليكم : ابحث عن كود للترحيل بالتاريخ مع امكانية استدعاء البيانات المرحلة عن طريق التاريخ وذلك للتعديل عليها ثم اعادة ترحيلها مرة اخرى سيارات.rar

الاستاذة : ام عبدالله شكرا استاذتى الكريمة

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

الاستاذة : ام عبدالله .. جزاك الله خيرا لى ملاحظة صغيرة وهى انه بعد التوزبع اريد تكون النتائج بارقام صحيحة دون الكسور لان تلك النتائج يتم وضعها فى برنامج محاسبى ولذلك كنت قد استخدمت فى الملف الاول الدالة Round

ترقية مستحقة لشخص خلوق الى الاما دائما أ:حمادة عمر

السلام عليكم : باختصار يوجد عندى رقم اقوم بتوزيعة على عدة خلايا بنسب معينة وعند جمع النواتج الناتجة من عملية التوزيع لاتتساوى مع الرقم الاساسى الذى تم توزيعه الشرح ايضا فى المرفقات توزيعات مصاريف المشاريع.rar

الاستاذ : عبدالله باقشير جزاك الله خيرا .. وزادك علماً ..... ونفع بك ننتظر اطلالتكم من حين لآخر فهى كنوز فى عالم الاكسل

ما شاء الله .. الاستاذ الخالدى , الاستاذ الخالدى اعمال فى منتهى الروعة .. جزاكم الله خبرا