Ali Mohamed Ali

تفضل لك ما طلبت بالمعادلات _الأحوال الثانية - نسخة.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

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

حل وكود رائعان احسنت أستاذ سليم بارك الله فيك

أهلا بك في منتدانا تفضل يتم ذلك مباشرة بمجرد دخولك على هذه الروابط-اختر منها ما يناسبك : https://smallpdf.com/ar/pdf-to-excel https://www.hipdf.com/ar/pdf-to-excel https://www.freepdfconvert.com/ar/pdf-to-excel https://www.pdftoexcel.com/ar https://convertio.co/ar/pdf-xlsx/ https://www.ilovepdf.com/ar/excel_to_pdf

اهلا بك اخى الكريم في المنتدى تفضل هذا الرابط فبه كل ما تطلب https://www.officena.net/ib/topic/50897-تفقيط-مبلغ-معين-من-الأرقام-الى-الحروف-سواء-باللغة-العربية-أو-الإنجليزية-بدون-اكواد/?tab=comments#comment-313355

وعليكم السلام -نورت المنتدى جزاك الله كل خير واحسنت بما انه اول برنامج لك

وعليكم السلام يمكنك استخدام هذا الكود بعد وضعه فى حدث This Workbook Private Sub Workbook_Open() MsgBox "Ok" MsgBox DateDiff("d", "10/Jun/2019", Date) If DateDiff("d", "10/Jun/2019", Date) > 1 Then MsgBox "Ok1" Application.ActiveWorkbook.Close End If MsgBox "Ok2" End Sub Expire.xls

بارك الله فيك وجزاك الله كل خير ولكن الملف لا يفتح ويظهر كما بالصورة

بارك الله فيك وزادك الله من فضله -معادلات فوق الممتازة

بارك الله فيك أستاذ بن علية معادلات ممتازة

تفضل SEER.xlsx

ابداع أستاذ بن علية معادلة رائعة جعله الله في ميزان حسناتك وزادك الله من فضله

من فضلك ضع النتائج المطلوبة على الملف