إبراهيم ابوليله

اخى هل تقصد هكذا تقبل تحياتى Invoice full.rar

اخى الصقر اعتزر فلم ارى مشاركتك عند رفع مشاركتى تقبل تحياتى

اخى سيف هذه محاوله من ارجو ان تفى بالغرض تقبل تحياتى يوميات فرنسية.rar

اخى ممكن التوضيح اكثر تقبل تحياتى

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

اخى تقبل تحياتى

اخى محمد اشكرك على الكلمات الطيبه واشكرك مره اخرى على متابعة الموضوع تقبل تحياتى

اخى اعتزر على الخطأ الذى حدث اثناء الرفع اليك الملف الصحيح تقبل تحياتى جدول متغير الحجم3 .rar

اخى اليك الكود المستخدم Private Sub Workbook_Open() Sheet1.Select End Sub تقبل تحياتى Book1.rar

اخى الجموعى بارك الله فيك ومشورا على المجهود المبذول تقبل تحياتى

اخى واستاذنا محمد وهذا حل اخر بالكود Sub month_days() Dim m As Integer, y As Integer, DaysInMonth As Integer m = Format([b2], "mm") y = Format([b2], "yyyy") DaysInMonth = DateSerial(y, m + 1, 1) - DateSerial(y, m, 1) [d2] = DaysInMonth End Sub تقبل تحياتى

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

اخى واستاذنا محمد اعتقد ان هذه المعادله تفى بالغرض =DAY(DATE(YEAR(B2),MONTH(B2)+1,1)-1) تقبل تحياتى

اخى جرب هذه التعديل تقبل تحياتى جدول متغير الحجم2 .rar

اخى ابا ماريه جرب الملف الاتى واخبرنى هل هذا هو المطلوب ام لا تقبل تحياتى Originale5.rar

السلام عليكم ورحمة الله وبركاته معلش لى سؤال صغيرفى تنسيق الشيت اللى حضرتك عمله عنما اقف على خلية معينة يتم تلوين باقى خلايا الصف كيف يتم عملها وشكرا لك تقبل مرورى اخى سيف هذه محاوله منى ارجو ان تفى بالغرض اتبع الشرح الاتى =CELL("address")=ADDRESS(ROW(),COLUMN()) =OR(AND(CELL("row")=ROW())) تقبل تحياتى

اخى هذه محاوله منى ارجو ان تفى بالغرض تقبل تحياتى جدول متغير الحجم2 .rar

اخى حليم تقبل تحياتى

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

للرفع

اخى ابا ماريه راجع المشاركه رقم 29

اخى ياسر ستم تجربه فكره الاضافه من tools على الجهاز الذى يحدث به الخطأ

اخى ابا ماريه هذه محاوله منى على حسب فهمى للموضوع تقبل تحياتى Originale5.rar

اخى ابا ماريه اذا بناء على كلامك لو ان اجمالى ما سدده العميل مثلا 5000ج ثم جاء ليسدد مبلغ 200 يتم تغير القيمه التى فى الخليه من 5000 الى 5200 هل ما فهمته صيح ام غير ذلك

الاخوه الافاضل لدى هذه المعادله والخاصه باستخراج سيريال الهارد Function GetPhysicalSerial() As Variant Dim obj As Object Dim WMI As Object Dim SNList() As String, i As Long, Count As Long Set WMI = GetObject("WinMgmts:") For Each obj In WMI.InstancesOf("Win32_PhysicalMedia") If obj.SerialNumber <> "" Then Count = Count + 1 Next ReDim SNList(1 To Count, 1 To 1) i = 1 For Each obj In WMI.InstancesOf("Win32_PhysicalMedia") SNList(i, 1) = obj.SerialNumber i = i + 1 If i > Count Then Exit For Next GetPhysicalSerial = SNList End Function الخطأ يحدث على بعض الاجهزه ويقف عند السطر ReDim SNList(1 To Count, 1 To 1) ارجو المساعده