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

تابع الروابط التاليه مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_برنامج خزينه_سندات و شيكات و كشف حساب و الارصدة مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_برامج محاسبيه جاهزه

مكتبة ريم شاكر لمرورك الكريم

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

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كيفية الغاء الاصفار والفراغات من عمود معين مع اعادة ترتيب الاعداد مشاركة من الفاضل أ / أبو تامر 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 و لا تنسونا من صالح الدعاء تحياتى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تصفيه ارقام وأسماء مكررة في عمود تم ارفاق كود الحل من الفاضل ا / أبوعبد الله مرفق الملف و الشرح ___________________.rar و مشاركة اخرى بالمعادلات من الفاضل ا / نزار سليمان عيد مرفق الملف و الشرح ________________________.rar و مشاركة اخرى مساعدة لدمج البيانات و تم الحل من الفاضل _ أ / أبو تامر_عمر الحسينى مرفق الملف و الشرح Omar_1.rar و حل اخر من الفاضل ا / أبوعبد الله مرفق الملف و الشرح subtotal.rar و لا تنسونا من صالح الدعاء تحياتى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة نسخ جميع الشيتات فى شيت واحد تم ارفاق كود الحل من الفاضل ا / سليم حاصبيا مرفق الملف و الشرح كود نسخ اوراق العمل و ترحيلها الى ورقة واحدة.rar و لا تنسونا من صالح الدعاء تحياتى

سليم حاصبيا اخى الفاضل ما شاء الله عليك

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

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

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / أبوعبد الله_اكسلجى مرفق الملف و الشرح VALIDATION_FROM_2_LISTS.rar و لا تنسونا من صالح الدعاء تحياتى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كود جميل من سطر واحد مشاركة من الفاضل أ / 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 و لا تنسونا من صالح الدعاء تحياتى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كود رائع يمشى معك كظلك داخل الورقة تم ارفاق الكود من الفاضل أ / 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 و لا تنسونا من صالح الدعاء تحياتى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة ادخال التاريخ تلقائيا فى خليه تم ارفاق كود الحل من الفاضل ا / أبوعبد الله Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Cells(Target.Row, 15).Value = Date End If End Sub مرفق الملف و الشرح _____________.rar و لا تنسونا من صالح الدعاء تحياتى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة حذف بيانات حسب شرط معين تم ارفاق كود الحل من الفاضل ا / أبوعبد الله _ ابو اسامة العينبوسي مرفق الملف و الشرح CLEAR_CONTENTS_COUNT_OF_CELLS.rar CLEAR_CONTENTS_COUNT_OF_CELLS.rar و لا تنسونا من صالح الدعاء تحياتى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كود أكسيل اضافة صفحة تم ارفاق كود الحل من الفاضل ا / أبوعبد الله مرفق الملف و الشرح ADD_SHEET_WITH_THE_NAME_OF_CURRENT_SHHET.rar ADD_SHEET_WITH_THE_NAME_OF_CURRENT_SHHET.rar و لا تنسونا من صالح الدعاء تحياتى

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة بحث معقد تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير مرفق الملف و الشرح ________________1.rar و لا تنسونا من صالح الدعاء تحياتى

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

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة 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 و لا تنسونا من صالح الدعاء تحياتى

abouelhassan أبو أنس80 جزاكم الله خيرا

منياوى ميدو63 تحياتى و ايام مباركة

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

محمد حسن المحمد تحياتى بتغيب بتغيب و تظهر بدر منور تحياتى و جزاك الله خيرا يرجى ارفاق الملف مرة اخرى لانى مش عارف افتحه من مشاركة الاولى