البراء مصطفى

السلام عليكم ورحمة الله وبركاته أخوانى وأحبابى بالمنتدى جزاكم الله عنى خيرا حاليا أنا قمت بفضل الله ثم بفضلكم بعمل شيت مجمع لمستخلصات مقاولين الباطن🥳 وهو الان فى مرحلة التطوير حيث يوجد شيت مجمع للمقاولين ويتم تحديثه باستمرار بالبيانات العامة لكل مقاول عند الضغط على زر تحديث(refresh) ثم يوجد شيت لنموذج المستخلص حيث يتم وضع رقم مقاول الباطن(يتم وضع الرقم خارج نطاق الطباعة ويقوم بالبحث بالشيت المجمع ثم نضغط على Copy ليتم ترحيل اخر مستخلص تم عمله ثم يوجد شيتات تفصيلية لكل مقاول حيث تم وضع زر لاضافة مستخلص جديد حيث يتم نسخ الكميات الاجمالية ووضعها بخانة السابق ويتم تصفير الحالى وزيادة رقم المستخلص بواحد ووضع التاريخ بتاريخ اليوم طبعا تواجهنى بعض العقبات وأرجو المساعدة منكم😇 تم توضيحها بالملف المرفق فى شيت(الحفناوى للمقاولات) عند الضغط على زر Add new يحدث عطل بهذا الشيت فقط دونا عن باقى الشيتات والتى تعمل بكفاءة و أظن ان هذا بسبب وجود خلية واحدة فقط فى خانة بيان الاعمال لانى عندما اضفت سطر اخر لم يحدث مشاكل عند أضافة مستخلص جديد بالضغط على Add new يرجى جعل تنسيق الخلايا يعمل بشكل تلقائى (auto fit for columns & Rows) وتنشيط (print layout ) ليشمل الخلايا الجديدة يرجى جعل الخلية D2 تساوى الاجمالى الكلى للاعمال والذى يتغير مكانه باستمرار عند اضافة مستخلص جديد مستخلصات مقاولى الباطن - شرق الاقليمى.rar

جزاكم الله خيرا ....لكن ما زال الكمبيوتر يهنج

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

Up

السلام عليكم ورحمة الله وبركاته اساتذتى الأفاضل أقوم بعمل شيت أيتام للجمعية الشرعية حيث يوجد بالشيت(استمارة اسرة ايتام) نموذج لاستمارة الاسرة يتم ملأ البيانات من شيت (أيتام) بحيث يكون بالجدول الأول الذكور أصغر من ١٥ عام والاناث اصغر من ١٨ والجدول الثانى يكون به من هو اكبر من هذا السن يوجد الملف بالمرفقات شكرا جزيلا مقدما أسماء الجمعية الشرعية.xlsx

جزاكم الله خيرا ... هذا ما اردت فعلا ... جعلكم الله عونا لاخوانكم😍

السلام عليكم ورحمة الله وبركاته نرجو من اساتذتنا المساعدة فى عمل موقف تنفيذى تلقائى وذلك من خلال دالة Hlookup فى العمود F للتوضيح : البحث عن أكبر تاريخ فى الصف رقم 12 وعند تحقق الشرط يتم اختيار المقابل لها فى الصف رقم 9 وتم عمل الدالة الاتية فى العمود F (HLOOKUP(MAX(G12:DS12);G9:DS47;1;FALS للاسف مش مظبوطة eng m. marzok.xls

للرفع

السلام عليكم اساتذتى الكرام انا لدى private sub والتى تعمل على صفحات معينة فقط وانا اريدها تعمل على كافة الملف وهى كالتالى (Private Sub Workbook_Change(ByVal Target As Range Select Case 1 Case Cells(Target.Row, 4).Value >= 100 "عداد"=Cells(Target.Row, 5).Value Case Cells(Target.Row, 4).Value < 100 "مشروع"=Cells(Target.Row, 5).Value End Select End Sub وجزاكم الله خيرا

جزاك الله خيرا اخى الكريم انا اقدر مجهوداتكم كثيرا ومتأكد أن الأساتذة مشغولين جزاك الله خيرا للروابط المفيدة

بما إن مفيش حد فاضى فأنا بحثت فى النت ووجد العديد من الاكواد وبخبرتى الضعيفة حاولت التعديل عليها لتصبح كالاتى Private Sub workbook_open() Const PW1 As String = "albara" Const PW2 As String = "2" Const PW3 As String = "3" Dim inp As String Workbooks.Application.Visible = False inp = Application.InputBox("Enter a number") Select Case inp Case PW1 Workbooks.Application.Visible = True 'Full Workbook Access If ActiveWorkbook.ReadOnly Then _ ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, WritePassword:="admin" Case PW2 Workbooks.Application.Visible = True 'Limit Access If Not ActiveWorkbook.ReadOnly Then _ ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly, WritePassword:="admin" Case PW3 Workbooks.Application.Visible = True Case Else MsgBox "Wrong password" Workbooks.Close End Select End Sub

للرفع

السلام عليكم ورحمة الله وبركاته انا لدى شيت اكسيل وسوف اضعه على سيرفر بالعمل ما اريده انا اضع لنفس شيت الاكسيل عدة باسوردات بحيث بعض البسوردات تقوم بالتعديل الجزئى(الكتابة فقط دون الحذف) وبعضها يقوم بالتعديل الكلى وبعضها يقوم بالسماح للمشاهدة فقط هل ذلك ممكنا ؟

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

ليس هذا ما كنت أقصد .... أنا البرنامج بعد أن أضغط على زر الترحيل ف