نجوم المشاركات

لدينا مجموعة من الأسماء المكررة في جدول امام كل اسم المبلغ المستحق عليه كيف نقوم بترتيب هذه الاسماء دون تكرار ابتداءً من الاسم الذي عليه اكبر مبلغ مع ادراج مجموع ما يستحق على كل اسم انظر الى المرفق Rank_By_Sum.rar

كل عام و انتم بخير ايام مباركه و عيد فطر سعيد على الجميع لا تنسونا من صالح الدعاء مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_ العاب الاكسيل الترفيهى مجموعة ألعاب 1.zip

وعليكم السلام ورحمة الله وبركاته تفضل اخي صالح كود الحفظ مطبق على ملف التصدير الخاص بك :: تحياتي EXportEmPSave.rar

اخواني الكرام اضع بين ايديكم الجزء الاول من شرح الترحيل وبإنتظار تعليقاتكم واستفسارتكم ابواحمد الجزء الاول من الشرح ملف شرح الجزء الاول الترحيل.rar الجزء الثاني من الشرح ملف شرح الجزء الثانى الترحيل2.rar الجزء الثالث من الشرح (ترحيل القيم - ترحيل محدوود) ملف شرح الجزء الثالث الترحيل3.rar الجزء الرابع من شروحات الترحيل ملف شرح الجزء الرابع ترحيل حسب اسم الشيت.rar لا تنسوني أخوتي من الدعاء لي بظهر الغيب

السلام عليكم انا بحاجه لبرنامج بسيط لمزرعه ابقار ارجو التواصل للاتفاق بدر bdrjd@yahoo.com

تخيل الأمر قد يوضح الصورة مع بداية كل عام دراسى تأتيك شهادات ميلاد الرقم القومى للتلاميذ الجدد أنت تنقل الرقم القومى من الشهادة موضوع الفديو استخراج تاريخ الميلاد و ما تفضلت به فى غاية الأهمية فمثلا الرقم الأول يساوى 2 أو 3 فقط الرقمان الثانى و الثالث و يمثلان سنة الميلاد يحصران بين 00 و 90 مثلا و الشهر 01 إلى 12 و اليوم 01 إلى 31 ورقم المحافظة 01 إلى و هذه قيود مفيدة جدا تقلل الأخطاء و هى محل اعتبار و أهمية لكن بالنسبة لعملنا فإن الرقم القومى ينقل بدقة و يتم حساب السن فى أول أكتوبر باليوم و الشهر و السنة فتظهر الأخطاء كما أنه يتم تكليف لجنة خاصة بالمدرسة لمطابقة شهادة الميلاد و ما فيها من معلومات على كشف مطبوع اسمه 12 د لكن مع هذا فا لفكرة عظيمة جدا و أفكر فى آلية تنفيذها مبدئيا بنفس الدالتين Mid Val و معا نسير فى النقاش لنتعلم و نعلم ولا تنس إضافة الفديو للشروح جزاك الله خيرا وزادك صفاء فى الذهن و الفكر

السلام عليكم ورحمة الله وكل عام وانتم بخير استاذ عبدالفتاح هذ الفيديو الثاني فيما يخص الرقم القومي وحين شاهدت عرضك هذا وخاصة ادراج تاريخ الميلاد آليا بمجرد كتابة الرقم القومي قدحت في رأسي فكرة : وهي بما ان الرقم القومي يحمل معلومات محددة تخص صاحبه مثل تاريخ الميلاد والمحافظة والجنس ومعلومات اخرى مثل اول رقم اقول جميل ان يكون التحقق من صحة الرقم عن طريق هذه المعلومات فان كانت صحيحة تظهر البيانات في الحقول والا نطالبه بتصحيح الرقم مثلا الرقم الاول محصور بين الرقمين 2 و 3 وما يخص التاريخ يمكن حصره بين فترتين زمنيتين تقريبيتين ويمكن تخصيص الرقم الاول من الرقم القومي بتواريخ محددة فمثلا الرقم 2 تختلف التواريخ فيه عن ما يخص الرقم 3 ايضا من ضمن الضوابط رقم المحافظة فلا بد ان يكون الرقم المدخل موجودا ضمن قائمة المحافظات علما ان هذا الاجراء لا يمنع من التلاعب المقصود ولكنه يضبط الاخطاء الحاصلة عند الادخال وهي كثيرة ما رأيك أستاذي العزيز ؟

السلام عليكم اشكرك جزيل الشكر فعلا تم معالجة مشكلتي باستخدام اجراءاتك كما في الصورة جزاك الله وجعلها في ميزان حسناتك وادامك سند لكل الحائرين في الاكسز من امثالي المبتدين وكل عام وانت بالف خير

ا/ ياسر بارك الله فيك دى حاجة جديدة خالص ده فهرس للتغييرات على الخلية b3 احسنت

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

Sub Show_Sheets_Tab() Dim x x = InputBox("ادخل كلمة المرور.", "Password Required") If x = "123" Then ActiveWindow.DisplayWorkbookTabs = True Else MsgBox "كلمة المرور غير صحيحة" End If End Sub توضع في موديول وفي حدث المصنف تضع الكود التالي لإخفاء التبويب عند تشغيل المصنف ActiveWindow.DisplayWorkbookTabs = False

وعليكم السلام ورحمة الله وبركاته جرب الدالة بدون ان تضع التنسيق

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

السلام عليكم وكل عام وانتم بخير اخي الكريم راجع خصائص العلاقات في الاستعلام كما في الصورة

بارك الله فيك أخي الحبيب صلاح أعتقد أن المطلوب التغيير في خلية واحدة ، لنفترض أن الخلية الهدف هي الخلية B3 جرب الكود بهذا الشكل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$3" Then Dim LR As Long LR = Cells(Rows.Count, 7).End(xlUp).Row + 1 Cells(LR, 6).Value = Target.Value Cells(LR, 7).Value = Date Cells(LR, 8).Value = Time End If End Sub

لو توضع مثال ، علشان نعدل لك عليه

السلام عليكم جمعة مباركة هذا الكود يوضع في الوحدة النمطية للورقة Private Sub Worksheet_Change(ByVal Target As Range) If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("F3:F12")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "خلية لا يمكن تعديلها" End If End Sub ايضا يوجد رابط تحميل في رابط المدونة ادنى التوقيع حماية خلايا معينة من التعديل.rar

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

طبعا ممكن تفضل يتم نسخ الصورة المختارة على سطح المكتب باسم رقم الشخص انت على حسب عملك وحاجتك تستطيع التحكم بالاسم والمكان :: تحياتي waz-Img&Save.rar

بارك الله فيكم و رمضان سعيد و ان شاء الله عيد مبارك للجميع.

لعل الملف التالي يخدمكم في ما طلبتموه، أما بالنسبة لإضافة وحذف عناوين فسنتركها للخبراء. كل ما عليكم هو تحديد الفلاتر في الجدول.. وتقبلوا تحياتي فلتر متابعة2.rar

الاخ أيمن ابراهيم الكود سليم وليس به خطأ سبب الرسالة هو اخفاء بعض الاعمدة اظهر الاعمدة المخفية سيعمل الكود بدون ظهور رسالة الخطأ

السلام عليكم في الملف المرفق أنا استخدمت الـ Pivot Table بعيدا عن الأكواد التي شخصياً أتجنبها كلما كان أمكن لو انت تستخدم أوفيس 2013 أو 2016 هيظهرلك الـ Slicer التي تساعدك على الفلترة بشكل سهل وأنيق لو إصدار أقدم مش هتظهر عندك ولكن هيظل الـ Pivot Table يعمل ويتحدث تلقائيا في كل مرة يتم فيها فتح الملف من جديد أو يتم تحديثه يدويا بالضغط على Refresh All الجدول موجود في Sheet1 يتم الفلترة بناء على الأشهر أو الشهور التي يتم اختيارها لكل كود موظف بإجمالياته من الاستقاطاعات والاستحقاقات مع إجمالي كلُ على حدى عند الطباعة يتم طباعة كل كود موظف في ورقة مستقلة ويمكن التنسيق في الطباعة كما تريد اتفضل ألقي نظره عسى يكون المطلوب أو ع الأقل فكره مبدئية يمكنك التطوير فيها بما يتماشى مع متطلباتك طباعة كل كود فى ورقة مستقلة.rar

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

تم التعديل حسب الطلب working with all sheets Corriger.rar

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

قم بما يلي 1-حدد اي نطاق (خليتين او اكثر من مكان حيث لا يوجد هذه السطور ) 2-اضغط على اشارة الفرشاة من التبويب Home 3-امسح النطاق المراد تغييره

المهندس محمد طاهر كل عام وانتم بكل خير

ماشاء الله تبارك الله .. بدايه موفقه ان شاء الله وان شاء الله يكون اضافه قويه لكل المهتمين بادارة المشاريع فى الوطن العربى .. هل موجود فى مكتيه يا بشمهندس فى مصر او فى السعوديه بدل من شرائه من على أمازون. جزاكم الله خيرا

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

أخي وأستاذي الكبير / أبو خليل سلام الله عليكم ورحمته لا يأ اخي Docmd.Requery لا تفي بالغرض حيث أن النموذج مبني على جدول وليس استعلام وانا لا أريد تغييره وإريد تحديث للبيانات مع ادخال كل نموذج بدون فتح وغلق النموذج فهل يوجد كود لمفتاح يفي بالغرض وجزاكم الله خيرا

الأخ الفاضل / خالد القدس كود الأستاذ خبور واضح ويشرح نفسه غير فى السطر وأكتب المدى المطلوب If Not Application.Intersect(Target, Range("F3:F12,d3:d12")) Is Nothing Then

السلام عليكم تفضل أخي هذه المحاولة لعلها تفي بالغرض عند فتح الملف يقوم الكود بإخفاء علامات تبويب الأوراق وهناك زر من أجل إظهارها وكلمة السر هي 123 تبويب الأوراق.rar