اذهب الي المحتوي
أوفيسنا

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

المشرفين السابقين
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    2336

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    1

 نوع المحتوي 

كل منشورات العضو ابو اسامة العينبوسي

  1. ابو اسامة العينبوسي
    السلام عليكم و رحمة الله جميل و رائع الى الامام
  2. ابو اسامة العينبوسي
    السلام عليكم ورحمة الله وبركاته زادك الله علماً و تواضع توكل على الله و الى الإمام فلكل مجتهد نصيب و مكانك هنا الاشراف
  3. ابو اسامة العينبوسي
    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
  4. ابو اسامة العينبوسي
    السلام عليكم ورحمة الله وبركاته مشكور اخي الكريم
  5. ابو اسامة العينبوسي
    و الله انت الأستاذ اخ ياسر ماشاء الله عليك اتمنى لك مزيدا من التقدم و النجاحات ☆
  6. ابو اسامة العينبوسي
    السلام عليكم ورحمة الله وبركاته نفعنا الله بعلمك
  7. ابو اسامة العينبوسي
    السلام عليكم ورحمة الله وبركاته اخي الكريم حمادة و باقي الاخوة الأعضاء الكرام انا لم اغب عن المنتدى ابدا هذا المنتدى جمعنا معا اسرة واحدة قبل ان تكون قد تأسست مواقع التواصل الإجتماعي لم اشارك منذ فترة لكن لم انقطع عنكم احبتي ان تحب ما تعمل هو مفتاح النجاح و التقدم و فقكم الله لما فيه الخير
  8. ابو اسامة العينبوسي
    السلام عليكم و رحمة الله و بركاته 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
  9. ابو اسامة العينبوسي
    السلام عليكم ورحمة الله وبركاته اخ ياسر انت معطاء و دينامو المنتدى وفقك الله لما فيه الخير
  10. ابو اسامة العينبوسي
    تعديل كود البحث في جميع الشيتات Find All VBA Form - All Worksheets B column 2.rar
  11. ابو اسامة العينبوسي
    wellcom brother asslamu alikum Find All VBA Form - All Worksheets B colomn.rar
  12. ابو اسامة العينبوسي
    السلام عليكم و رحمة اللة بعد طول غياب نحب المنتدى و اهله كود اثبات وجود و انتماء للمنتدى ليس اكثر 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
  13. ابو اسامة العينبوسي
    السلام عليكم احبتى رابط قديم لموضوع مشابه http://www.officena.net/ib/index.php?showtopic=18562&hl=
  14. ابو اسامة العينبوسي
    السلام عليكم اول مشاركه منذ زمن بعييد الكود منقول للامانه يقوم بحفظ كافة الملفات المفتوحه و اغلاقها باستثناء النشط 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
  15. ابو اسامة العينبوسي
    السلام عليكم جميعا اشتقت لابداعك اخى حفظك الله
  16. ابو اسامة العينبوسي
    thank you brother
  17. ابو اسامة العينبوسي
    http://www.cpearson.com/excel/missingreferences.aspx
  18. ابو اسامة العينبوسي
    ممكن اخى مثال: ادخال انجليزى في الاعمدة الفردية و عربي في الزوجية Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column Mod 2 = 0 Then Call ChangeToArabic Else Call ChangeToEnglish End If End Sub تغيير لغة الادخال - مع زر2.rar
  19. ابو اسامة العينبوسي
    السلام عليكم حدد اخي الاوراق التى تريد ان تظهر و نجعلها لك كما تحب
  20. ابو اسامة العينبوسي
    salmu alikum try this brother or tell me what sheets do u want to view in the listbox Etc. sheet1 or sheet2...... 123.rar
  21. ابو اسامة العينبوسي
    Sheets(2).PrintOut not Sheets(1).PrintOut
  22. ابو اسامة العينبوسي
    On Error GoTo omar For i = 6 To 109 z = 6 Cells(5, "E") = Sheets(1).Cells(i, 3) Cells(6, "E") = Sheets(1).Cells(i, 4) Cells(7, "E") = Sheets(1).Cells(i, 5) For x = 10 To 17 Cells(x, "G") = Sheets(1).Cells(i, z) z = z + 1 Next x Sheets(1).PrintOut Next i omar: MsgBox "no printer detected" تقرير الكفاءة السنوي2.rar
  23. ابو اسامة العينبوسي
    Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("A1")) Is Nothing Then Sheet2.Cells(Target.Row, 1) = Target.Value Target = Null Application.EnableEvents = True End If End Sub
  24. ابو اسامة العينبوسي
    شافاك اللة و عافاك
  25. ابو اسامة العينبوسي
    السلام عليكم نكمل ان هذا هو المطلوب Private Sub Worksheet_Calculate() z = Sheet3.Cells(4, "IV") For i = 1 To 8 Range("RN" & i).Cells(1, 1) = Sheet2.Cells(z + 2, 1) Range("RN" & i).Cells(2, 1) = Sheet2.Cells(z + 2, 2) Range("RN" & i).Cells(3, 1) = Sheet2.Cells(z + 2, 5) Range("RN" & i).Cells(4, 1) = Sheet2.Cells(z + 2, 7) z = z + 1 Next i End Sub 11.rar
×
×
  • اضف...

Important Information

  I accept