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

الاخوه الافاضل لدى هذه المعادله والخاصه باستخراج سيريال الهارد 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) ارجو المساعده

شكرا" أخي الصقر لكن بالمعادلة التفقيط بالانكليزي لا يتم التغيير لا أعرف السبب يظهر لي هناك خطأ تقبل تحياتي أخي الصقر تقبل تحياتي اخي ابراهيم اخى هل تريد تحويل العمله الى درهم ويكون التفقيط باللغه العربيه ام باللغه الانكليزيه

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

اخى اين المرفق

اخى الصقر منور المشاركه تقبل تحياتى اخى مصطفى تقبل تحياتى

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

اخى ممكن توضح اكثر

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

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

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

تفضل اخى 2015.rar

اخى هل تقصد هكذا اداره المخازن.rar

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

اخى ابا اسماعيل ممكن توضح المطلوب اكثر وبالتحديد ماهى اعمده الجمع والطرح وماهو عمود الناتج

اخى وليد جرب وضع الكود الاتى Application.ScreenUpdating = FALSE فى بداية الكود والكود الاتى Application.ScreenUpdating = True فى نهاية الكود

استاذنا الكبير محمد صالح منور المشاركه تقبل تحياتى

اخى ابا ماريه معلش هطول معاك شويه فى الاسئله العمود Cédit فى شيت Fournisseurs هل هو عباره عن اجمالى المبلغ المدفوع من العملاء ------------------------------------------------ اين يتم وضع المبلغ المدفوع والخاص بكل سلعه على حده يعنى مثلا السلعه رقم 1فى شيت Stocks مبلغها 375000 نفترض ان العميل دفع 20000 فقط اين تظهر 20000 كمبلغ مدفع ------------------ ارجو التوضيح بمثال على الشيت تقبل تحياتى

اخى مصطفى تقبل تحياتى

اخى ابا ماريه فيه ؤال بسيط الى ماذا يشير العمود الاول فى شيت Fournisseurs

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

اخى تفضل ما تريده ----------- ولكن لك منى دعوه لتغير اسم الظهور الى اللغه العربيه التزاما بقواعد المنتدى تقبل تحياتى تفقيط.rar

اخى ابو حازم تقبل تحاتى

اخى اب ماريه تم عمل المطلوب الاول Originale5.rar

للرفع

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