جلال الجمال_ابو أدهم

يناير 26, 2017

مكتبة ريم

شاكر لمرورك الكريم

يناير 24, 2017

محمود_الشريف

تحياتى و عوده حميده
و جزاك الله خيرا
و نتمنى لك الصحه و العافيه

يناير 24, 2017

محمود_الشريف

اخى الفاضل من غير دخول فى تفصيل
و حشتنا و جزاك الله خيرا
و الف حمدالله على سلامتك

يناير 22, 2017

تم رفع هذا الكود فى مشاركة منفصله

حتى لا ننسى هذه المشاركة كيفية الغاء الاصفار والفراغات من عمود معين مع اعادة ترتيب الاعداد

مشاركة من الفاضل أ / أبو تامر

Sub Test()
Dim Rng As Range, Cel As Range
Set Rng = Range(Range("A1"), Cells(Rows.Count, 1).End(xlUp))
For Each Cel In Rng
If Cel = 0 Then
    Cel = ""
End If
Next
Rng.SORT [A1], xlAscending
End Sub

مرفق الملف و الشرح

Omar_1.rar

و مشاركة اخرى من الفاضل أ / أبوعبد الله_اكسلجى

مرفق الملف و الشرح

________________________.rar

و لا تنسونا من صالح الدعاء

تحياتى

يناير 19, 2017

تم رفع هذا الكود فى مشاركة منفصله

حتى لا ننسى هذه المشاركة تصفيه ارقام وأسماء مكررة في عمود

تم ارفاق كود الحل من الفاضل ا / أبوعبد الله

مرفق الملف و الشرح

___________________.rar

و مشاركة اخرى بالمعادلات من الفاضل ا / نزار سليمان عيد

مرفق الملف و الشرح

________________________.rar

و مشاركة اخرى مساعدة لدمج البيانات و تم الحل من الفاضل _ أ / أبو تامر_عمر الحسينى

مرفق الملف و الشرح

Omar_1.rar

و حل اخر من الفاضل ا / أبوعبد الله

مرفق الملف و الشرح

subtotal.rar

و لا تنسونا من صالح الدعاء

تحياتى

يناير 18, 2017

تم رفع هذا الكود فى مشاركة منفصله

حتى لا ننسى هذه المشاركة نسخ جميع الشيتات فى شيت واحد

تم ارفاق كود الحل من الفاضل ا / سليم حاصبيا

مرفق الملف و الشرح

كود نسخ اوراق العمل و ترحيلها الى ورقة واحدة.rar

و لا تنسونا من صالح الدعاء

تحياتى

يناير 18, 2017

سليم حاصبيا

اخى الفاضل ما شاء الله عليك

يناير 18, 2017

الزباري

اخى الفاضل ما شاء الله عليك
موضوع اكثر من رائع

يناير 18, 2017

رجب جاويش

اخى الفاضل جزاك الله خيرا
واحشتنا اعمالك كتير

يناير 17, 2017

محمد ابو صهيب

اخى الفاضل جزاك الله خيرا

فى الانتظار

يناير 17, 2017

تم رفع هذا الكود فى مشاركة منفصله

حتى لا ننسى هذه المشاركة

تم ارفاق كود الحل من الفاضل ا / أبوعبد الله_اكسلجى

مرفق الملف و الشرح

VALIDATION_FROM_2_LISTS.rar

و لا تنسونا من صالح الدعاء

تحياتى

يناير 17, 2017

تم رفع هذا الكود فى مشاركة منفصله

حتى لا ننسى هذه المشاركة كود جميل من سطر واحد

مشاركة من الفاضل أ / h63

Private Sub Worksheet_Change(ByVal Target As Range)
Cells(Target.Row, 1) = Target.Row
End Sub

مرفق الملف و الشرح

New__________Microsoft_Excel.rar

و مشاركة اخرى من الفاضل أ / أبوعبد الله_اكسلجى

تسلسل تلقائى مع الاخذ فى الاعتبار الصفوف الفارغه و لا يتأثر بحذف الصفوف

=IF(B2<>"";ROW()-1;"")

تسلسل تلقائى مسلسل لا يأخذ الفراغات في الاعتبار و لا يتأثر بحذف الصفوف

=IF(G2<>"";COUNTA($G$2:G2);"")

مرفق الملف و الشرح

AUTO_SERIAL_WITH_FORMULAS.rar

و لا تنسونا من صالح الدعاء

تحياتى

يناير 17, 2017

تم رفع هذا الكود فى مشاركة منفصله

حتى لا ننسى هذه المشاركة كود رائع يمشى معك كظلك داخل الورقة

تم ارفاق الكود من الفاضل أ / h63

كود تلوين صف الخلية النشطة

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Sh.Cells.Interior.ColorIndex = xlNone
    If Target.Cells.Count = 1 Then
        With Rows(Target.Row).Interior
            .ColorIndex = 8
            .Pattern = xlSolid
        End With
    End If
End Sub

كود تلوين الخلية النشطة و عدم تلوين عند الكابس مرة اخرى

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Selection) Is Nothing Then
If Target.Interior.ColorIndex = 34 Then
Target.Interior.ColorIndex = 0
Else
Target.Interior.ColorIndex = 34
End If
End If
End Sub

مرفق الملف و الشرح

New_Folder.rar

و لا تنسونا من صالح الدعاء

تحياتى

يناير 17, 2017

تم رفع هذا الكود فى مشاركة منفصله

حتى لا ننسى هذه المشاركة ادخال التاريخ تلقائيا فى خليه

تم ارفاق كود الحل من الفاضل ا / أبوعبد الله

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Cells(Target.Row, 15).Value = Date
End If
End Sub

مرفق الملف و الشرح

_____________.rar

و لا تنسونا من صالح الدعاء

تحياتى

يناير 17, 2017

تم رفع هذا الكود فى مشاركة منفصله

حتى لا ننسى هذه المشاركة حذف بيانات حسب شرط معين

تم ارفاق كود الحل من الفاضل ا / أبوعبد الله _ ابو اسامة العينبوسي

مرفق الملف و الشرح

CLEAR_CONTENTS_COUNT_OF_CELLS.rar

CLEAR_CONTENTS_COUNT_OF_CELLS.rar

و لا تنسونا من صالح الدعاء

تحياتى

يناير 17, 2017

تم رفع هذا الكود فى مشاركة منفصله

حتى لا ننسى هذه المشاركة كود أكسيل اضافة صفحة

تم ارفاق كود الحل من الفاضل ا / أبوعبد الله

مرفق الملف و الشرح

ADD_SHEET_WITH_THE_NAME_OF_CURRENT_SHHET.rar

و لا تنسونا من صالح الدعاء

تحياتى

يناير 17, 2017

تم رفع هذا الكود فى مشاركة منفصله

حتى لا ننسى هذه المشاركة بحث معقد

تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير

مرفق الملف و الشرح

________________1.rar

و لا تنسونا من صالح الدعاء

تحياتى

يناير 12, 2017

MURADALAJORE

اخى الفاضل جزاك الله خيرا
تحياتى

يناير 12, 2017

عبد القادر محمد مهدى

جزاك الله خيرا و تمنياتنا بالتوفيق
تحياتى

يناير 10, 2017

تم رفع هذا الكود فى مشاركة منفصله

حتى لا ننسى هذه المشاركة

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = True
Dim My_Value
If Target.Address = "$A$2" Then
Range("A2").Select
My_Value = ActiveCell.Value
Range("B2").Select
ActiveCell.FormulaR1C1 = ActiveCell.Value - My_Value
End If
End Sub

مرفق الملف مشاركة من الفاضل / أبو أنس حاجب

______________.rar

و لا تنسونا من صالح الدعاء

تحياتى