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

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

احمد ابوزيزو جزاك الله خيرا_ تحياتى

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة انشىء زر بورقة العمل و الحق به هذا الكود Sub sort() ActiveSheet.Unprotect Application.ScreenUpdating = False If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData End If End Sub و لا تنسونا من صالح الدعاء تحياتى

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

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

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

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

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

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

الأستاذ / محمد الدسوقى تحياتى و ايام مباركة تابع من هنا شاشة دخول_صلاحيات_PASS WORD_اخفاء معادلات

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

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

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

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

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

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل _ ا / ابو اسامة العينبوسي Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheets(1).Protect Password:="Secret", UserInterfaceOnly:=True Sheets(1).Cells.Locked = True If Sheets(1).Cells(ActiveCell.Row, ActiveCell.Column).Value = vbNullString Then Sheets(1).Cells(ActiveCell.Row, ActiveCell.Column).Locked = False End Sub مرفق الملف Lock.zip و لا تنسونا من صالح الدعاء تحياتى

بسم الله و ما شاء الله اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا اهداء لكل من شارك بعلمه اقل ما يقال لكم "عندما تنتهى كلمات الابداع و تبدأ من جديد و تنتهى عندكم" بارك الله لكم ( فكرة المدونة هى سهولة الوصول و البحث فى المنتدى للذهاب الى ملف _ المدونه الاصدار الاول من هنا مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_سلسله تجميعيه ميديا فاير_MediaFire مركز تحميل طق طق مركز الخليج File Upload adyou.me uploadfiles Tinyupload wikisend filedropper dropcanvas

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل _ ا / ابو اسامة العينبوسي Sub_copyprotect() ActiveSheet.Unprotect ActiveSheet.Range("e4:f503").Value = ActiveSheet.Range("b4:c503").Value ActiveSheet.Protect End Sub و عن طريق تسمية نطاق Sub_copyprotect() ActiveSheet.Unprotect ActiveSheet.Range("omar2").Value = ActiveSheet.Range("omar").Value ActiveSheet.Protect End Sub مرفق الملف 6564.rar و لا تنسونا من صالح الدعاء تحياتى

رائد داود شاكر مرورك تحياتى

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

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

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

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