mehyo27

السلام عليكم ورحمة الله وبركاته اعتذر من الجميع على تقصيري ولكن وقتي ضيق وكلما اجد وقت احاول ان اتواجد بالنسبة الى استفسار الأخ إكسيلجي بعد بتصدير ال module بجب وضع هذا الكود في صفحة thisworkbook Private Sub Workbook_Open() Dim uName As String uName = Environ("username") Call FillLog(uName) End Sub ليشغل الكود عند فتح البرنامج وشكر خاص لأخي نزار سليمان عيد على المساهمة وسلامي للجميع

السلام عليكم جرب هذه المحاولة Private Sub Workbook_NewSheet(ByVal Sh As Object) Sheets("Sheet1").Cells.Copy Range("A1") ActiveSheet.DisplayRightToLeft = True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Range("C2:D5").ClearContents Application.CutCopyMode = False Range("C3").Select End Sub a2.rar

السلام عليكم أخي ابوعاصم جرب هذه المحاولة المتواضعة وأرجو من الأخوة التحسين والتنقيح ولا تنسونا بالدعاء ____________________.rar

السلام عليكم أخي japarokey نعم يمكنك جمع حسب اللون وضعت داللة في المرفق لتجمع حسب اللون ولكن هنالك ثغرة في الدالة وهي حين تغير اللون يجب إعادة تفعبل الدالة بالنقر على الخلية F12 ثم Enter قد يستطيع أحد الأخوه المساعدة لحل هذه الثغرة مع تحياتي للجميع ____________________.rar

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

السلام عليكم جزاك الله خيراً أخي كريم معك حق تحياتي

السلام عليكم في قائمة الادوات ثم الخيارات إزالة إختيار الأعمدة والصفوف جرب وسف تصل عندي القوائم بالإنجليزية تحياتي

السلام عليكم جرب هذا =VLOOKUP(B7,data!$C$7:$D$16,2,1) TABLE.rar

السلام عليكم وضعة الكود على أن يحفظ الملف على /:C بأسم Test مع تاريخ اليوم Private Sub CommandButton1_Click() Dim FileName As String FileName = Format(Date, "YY-MM-DD") & "_test.xls" ActiveWorkbook.SaveAs FileName:="C:\" & FileName, FileFormat:=xlNormal End Sub وإليك المرفق try.rar

السلام عليكم المشكلة عندما تتوافر الشروط الكود يعيد نفسه الى لا نهاية عدلت قليلاً وجعلته يعمل عند اختيار الخلية فقط Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Selection, Range("G7")) Is Nothing Then If [G7] >= 3500 And [G7] <= 4999 And [A10] = "ESTABLISHED" And [I10] = "" Then [B11] = [G7] * 43 [D11] = [G7] * 3 [E11] = [G7] * 3 End If End If End Sub جربه Book1.rar

السلام عليكم عذراً من الجميع على قصر وقتي وضعت معادلة تبدل الكلمة الموجودة في الصف النشط محاولة أنظر المرفق ___________.rar

السلام عليكم لا أدري لم تريدها مع العلم إدخال الرقم أسرع من إدخال كلمة جرب هذا ربما يفي بالغرض ______.rar

السلام عليكم لم أفهم ما تريد لم لا ترسل مرفق جرب هذا المرفق Test.rar

هل جربت إقتراحي لأن سوف تغير المسار أتوماتيكيا بعد انتقاء المسار الجديد وإذا امكن ارسل الملف

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

السلام عليكم كأني أرسلت الرد سابقا إليك المرفق والمعادلة =INDEX(A3:A12,MATCH(MAX(C3:C12),C3:C12,0)) ______________________________.rar

السلام عليكم تم تعديله على امل ان يكون كما تريد ولا تنسانا بالدعاء FLASH.rar

السلام عليكم و رحمة الله بعض الإقتراحات لتسهيل إذا كان الرقم لا يتكرر وكما فعل أخي نزار سليمان عيد ووضع الارقام في صفحة أخرة يمكنك استعمال هذه ____________________.rar

السلام عليكم جرب هذا المرفق FLASH.rar

السلام عليكم ورحمة الله وبركاته إليك أخي المرفق _______________.rar

السلام عليكم جرب هذه أيضاً =INDEX(A3:A12,MATCH(MAX(C3:C12),C3:C12,0)) وإليك المرفق ______________________________.rar

جزاك الله كل خير أخي نزار سليمان عيد على اللمسات المميزة اخي فهيد انظر المرفق بعد التعديل الذي طلبت لا تنسونا بالدعاء _______________.rar

الرجاء إرسال نسخة عسى أن تتوضح الصورة ويمكن المساعدة

السلام عليكم ارجو ان يكون هذا الحل ما تريد ولكن يجب التقيد بشروط الإدخال يجب إدخال الساعات على تنسيق الساعات لا تدخل مجرد رقم يجب أن يكون مثل 8:00 أو 12:30 إلخ ولا تنسونا من الدعاء _______________.rar

جرب هذا =$A$1<=0 ضعها في conditional formating Try.zip