هشام جمال الدين

عندى معادلة عاوز اعملها بس مش عارف .. عندى رقم 30 عايز اعملة 2 اوس كام يدينى اقرب رقم للــ 30 بس يكون اكبر من 30 او يساوى 30 وليس اقل ... (( 2 ^ ؟؟؟؟؟ ) = 30 أو اكبر ) عاوز اكتب الرقم اللى هو 30 وهو يطلعلى قيمة الاوس ^ وشكرا

شكرا جزيلا هل ممكن الشرح فديو ولكم جزيل الشكر

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

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

اذا امكن تفعيل هذا الكود Private Sub Worksheet_change (ByVal Target As Range) On Error GoTo zz If Target.Column = 2 And Target.Value <> "" Then Application. EnableEvents = False Target.offset (0, -1) = Format (Now (), "dd-mm-yyyy hh:mm:ss") Application.EnableEvents = True End If zz: End Sub

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

حسن على جزاكم الله خيرا

برنامج.xlsm

اريد عند اضافة نفس الصنف يتم زيادة الكمية وليس تكرار اسم الصنف وشكرا برنامج.xlsb

السلام عليكم اريد كود يمنع الوقف او تحديد خلايا شيت الاكسيل ماعد الخلايا المحددة وشكرا جزيلا Book2.xlsx

جزاكم الله خيرا عبدالفتاح في بي اكسيل

اخى الفاضل هل يمكن اضافتها للملف

السلام عليكم اريد تسريع عملية البحث فى الليست بوكس حيث انها بطيئة جدا وتعمل على تهنيج الملف وايضا ضبط حجم العمود فى الليست بوكس وشكرا ليست بوكس بحث.xlsb

عفوا اخى الفاضل Ali Mohamed Ali الكود لايعمل جيداا اريد الكود يعمل تلقائى عند فتح الملف

السلام عليكم أساتذتى الكرام أرجو التعطف على مساعدتى فى ايجاد كود منع تظليل الخلايا ... ولكم جزيل الشكر Book1.xlsm

شكرا اخى الفاضل Ali Mohamed Ali وايضا تم التوصل لهذا الكود للاستفادة منه In the ThisWorkbook code sheet: Private Sub Workbook_Open() toggleDragAndDrop End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) toggleDragAndDrop xx:=False End Sub Private Sub toggleDragAndDrop(Optional xx As Boolean = True) Static yy As Boolean, zz As Boolean With Application If xx Then yy = .CellDragAndDrop zz = .AlertBeforeOverwriting .CellDragAndDrop = False Else .CellDragAndDrop = yy .AlertBeforeOverwriting = zz End If End With End Sub

كود اخفاء وتعطيل اداة السحب

جزاكم الله خيرا اخى الفاضل حسين مامون

فى هذا الكود اريد اضافة قاعدة if حيث اذا كان f13 :I فارغاً اظهر لى رسالة الفاتورة فارغة وايقاف العملية وشكرا جزيلا Sheet3.Range("D" & firstDBRow & ":g" & firstDBRow + TotalRows - 2).Value = Range("F13:I" & lastitemrow).Value 'item detail

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

اريد عند البحث ظهور النتائج فى الليست بوكس وليس فى التكست بوكس لانه يوجد تكرار فى ارقام الفواتير فانا اريد عند ظهور النتائج اعمل سيليكت على نتيجة معينة وحذفها وجزاكم الله خيرا My_ListBox (2).xlsm

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

اخى الفاضل جزاكم الله خيرا .. لكنى اريد عرض النتائج فقط فى الليست بوكس هل يمكن

تنشيط البحث برقم الفاتورة بداية من A2 وجعل الفروم يعمل ايضا عند قفل الـ protect sheet وكل عام وانتم بخير ليست بوكس2.xlsm

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