ابو اسامة العينبوسي

السلام عليكم و رحمة الله جميل و رائع الى الامام

السلام عليكم ورحمة الله وبركاته زادك الله علماً و تواضع توكل على الله و الى الإمام فلكل مجتهد نصيب و مكانك هنا الاشراف

Private Sub Workbook_Open() Dim x As Date x = Date If x >= Sheets(1).Cells(1, 1).Value Then MsgBox "goodbyee" Application.DisplayAlerts = False With ThisWorkbook .Saved = True .Close End With Else: MsgBox " file will close after " & Sheets(1).Cells(1, 1).Value - x & " days " End If End Sub السلام عليكم بخصوص اغلاق الملف هناك ايضا عشرات الطرق 2015.rar

السلام عليكم ورحمة الله وبركاته مشكور اخي الكريم

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

السلام عليكم ورحمة الله وبركاته نفعنا الله بعلمك

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

السلام عليكم و رحمة الله و بركاته ActiveWorkbook.ActiveSheet.Copy After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count) Sheets(Sheets.Count).Name = MonthName(ActiveWorkbook.Sheets.Count - 1) & "-" & Format(Date, "yyyy") copy sheets excel 2003.rar

السلام عليكم ورحمة الله وبركاته اخ ياسر انت معطاء و دينامو المنتدى وفقك الله لما فيه الخير

تعديل كود البحث في جميع الشيتات Find All VBA Form - All Worksheets B column 2.rar

wellcom brother asslamu alikum Find All VBA Form - All Worksheets B colomn.rar

السلام عليكم و رحمة اللة بعد طول غياب نحب المنتدى و اهله كود اثبات وجود و انتماء للمنتدى ليس اكثر For i = 1 To UsedRange.Rows.Count For x = i + 1 To UsedRange.Rows.Count If Cells(i, 1).Value = Cells(x, 1).Value Then Cells(x, 1).Delete Next x Next i Return To Excel Offciena.rar

السلام عليكم احبتى رابط قديم لموضوع مشابه http://www.officena.net/ib/index.php?showtopic=18562&hl=

السلام عليكم اول مشاركه منذ زمن بعييد الكود منقول للامانه يقوم بحفظ كافة الملفات المفتوحه و اغلاقها باستثناء النشط Sub CloseAllًWbsExActive() Dim WBs As Workbook For Each WBs In Application.Workbooks If Not WBs.Name = ThisWorkbook.Name Then WBs.Close (true) Next WBs End Sub

السلام عليكم جميعا اشتقت لابداعك اخى حفظك الله