Ali Mohamed Ali

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

وعليكم السلام بارك الله فيك اخى الكريم-فقط يمكنك تتبع المعادلات الموجودة بالخلايا التي بها تواريخ فهى سهلة جدا ويمكنك عملها فكل ما عليك عمله عند زيادة السنوات مثلا ,يمكنك تغيير عدد السنوات الى ما تريد في الخلية C2 وكتابة تاريخ بداية العقد في الخلية C3

تفضل تفقيط الدرجات.xls

وعليكم السلام -اهلا بكم فى المنتدى طالما انكى لم تقومى برفع ملف وشرح عليه المطلوب بشكل دقيق فيمكنك رؤية هذا الرابط داخل المنتدى فبه ملف سوف يفيدك https://www.officena.net/ib/topic/70419-برنامج-جرد-العهده-المخزنيه/ ولدى برنامج اخر بالأكسيس -تفضلى ادارة عهد المستودع.accdb

اعتقد انه ليس هناك كلام بعد هذا الملف فبه كل ما طلبت تفقيط الدرجات2.xls

الأمر ليس بالصعب طالما انك تريد هذا تفضل الملف بدون كلمة فقط تفقيط الدرجات.xls

وعليكم السلام عليك اخى الكريم رفع الملف فعموما هذا كود اخر لإثراء الموضوع بعد اذن الأستاذ ابو عيد . تفقيط الدرجات.xls

وعليكم السلام -تفضل حساب التاريخ تلقائى.xlsx

المعادلات تعمل بشكل دقيق ولكن عليك وضع علامة الصح كما بالصورة

وعليكم السلام تفضل 2.xlsm

وعليكم السلام يمكنك استخدام هذه المعادلة =SUMPRODUCT(('بنجلاديش متابعة'!$E$2:$E$92>=$A$4)*('بنجلاديش متابعة'!$E$2:$E$92<=$B$4)*('بنجلاديش متابعة'!$D$2:$D$92="وصول")) العمال .xlsx

تفضل حل بسيط وبدون برامج يمكنك رفع الملف المحمى على هذا الموقع مباشرة وسيتم فك الملف لك -وذلك كما بالصورة الموضحة لك http://www.ensode.net/xls-crack.jsf

تفضل لك ما طلبت بالمعادلات _الأحوال الثانية - نسخة.xlsm

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

وعليكم السلام كان عليك رفع ملف من البداية لعمل اللازم عليه تفضل كود تثبيت التاريخ تلقائيا.xlsm

بعد اذن الأستاذ محمد فؤاد لك ما طلبت كما تم مناقشة هذا الموضوع من قبل على هذا الرابط https://www.officena.net/ib/topic/91655-دالة-لعد-الطلاب/ New_Microsoft_Excel_Worksheet_(2).xlsx

بعد اذن الأستاذ عبدالله وهذا رابط اخر من داخل المنتدى -يمنع فتح الملف اذا تم نقاه وتغيير مكان الحفظ او تغيير اسمه https://www.officena.net/ib/topic/38637-موضوع-مميز-تمت-الاجابةأريد-كود-يمنع-الملف-من-الفتح-عندما-يستبدل-جهاز-الكمبيوتر-نقله/?tab=comments#comment-261437 وهذا موضوع اخر يخص طلبك وهو ربط بين ملف اكسيل واسم جهاز الكمبيوتر http://excel-egy.com/forum/t3183 وهذا ايضا موضوع اخر لملف يعمل على جهازين فقط https://www.officena.net/ib/topic/64356-ملف-يعمل-على-جهازين-فقط/ واخيرا اذا كنت حابب ان تمنع الملف ان يفتح ويعمل على اى جهاز يمكنك تتبع الأتى: اولا:-عليك بفتح مديول جديد ووضع هذا الكود به Sub CommitSuicide() 'http://www.cpearson.com/excel/workbooktimebomb.aspx With ThisWorkbook Application.DisplayAlerts = False If .Path <> vbNullString Then .ChangeFileAccess xlReadOnly Kill .FullName End If .Close SaveChanges:=False End With End Sub Sub Locked(ByVal bEnabled As Boolean) Dim sh As Worksheet Dim iHome As Integer Dim iOthers As Integer If bEnabled = True Then iHome = -1 'visible iOthers = 2 'very hidden Else iHome = 2 iOthers = -1 End If With ThisWorkbook On Error Resume Next Application.ScreenUpdating = False .Sheets("Welcome").Visible = iHome For Each sh In .Sheets If Not sh.Name = "Welcome" Then sh.Visible = iOthers End If Next sh .Sheets("Welcome").Visible = iHome Application.ScreenUpdating = True On Error GoTo 0 End With End Sub ثانيا :- وضع كود اخر فى حدث This Workbook Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Locked True End Sub Private Sub Workbook_Open() Select Case Environ("COMPUTERNAME") Case "LPPC28" 'approved computers Locked False Case Else CommitSuicide End Select End Sub واخيرا عليك بتسمية احد صفحات الملف ب Welcome Sheet ووضع هذا الكود فى حدث هذه الصفحة Private Sub Worksheet_SelectionChange(ByVal Target As Range) Locked False End Sub بارك الله فيك

تفضلوا هذا هو الملف بعد اذن الأستاذ محمد فؤاد طبعا لكى تعم الإستفادة للجميع المبيعات و العملاء.xlsm

تفضل data transfer.xlsm

تفضل data transfer.xlsm

حدد بالضبط اى الخلايا تريد ؟!

تفضل يمكنك وضع هذا الكود في حدث الصفحة Private Sub Worksheet_Change(ByVal Target As Range) If Range("g1").Value <> "" Then Range("b6").Value = Range("a3").Value End If End Sub data transfer.xlsm

تفضل هذه المعادلة -يمكنك وضعها في الخلية C2 فكان عليك لزاما من البداية رفع ملف وشرح المطلوب بكل دقة =B2&"."&A2

عليك بإتباع الخطوات التالية إظهار مقبض التعبئة أو إخفاؤه 1. انقر فوق علامة التبويب ملف، ثم فوق خيارات 2. انقر فوق خيارات متقدمة، ثم ضمن خيارات التحرير، حدد خانة الاختيار تمكين مقبض التعبئة وسحب الخلية وإفلاتها أو قم بإلغاء تحديدها لعرض مقبض التعبئة أو إخفائه. 3. لتفادي استبدال البيانات الموجودة أثناء سحب مقبض التعبئة، تأكد من تحديد خانة اختيار التنبيه قبل الكتابة فوق الخلايا. إذا كنت لا ترغب في ظهور رسالة لإعلامك بالكتابة فوق الخلايا غير الفارغة، فيمكنك إلغاء تحديد خانة الاختيار هذه

وعليكم السلام-يمكنك استخدلم الكود الموجود بملفك بهذا الكود Private Sub CommandButton1_Click() Dim rngCopy As Range With Worksheets("Sheet1") Set rngCopy = .Range("b7:H" & .Range("B" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible) End With rngCopy.Copy With Worksheets("Sheet2") .Activate .Range("B2").Activate .Paste Link:=True End With End Sub Transfer Data Without Hide Rows.xlsm