أبو إيمان

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

يمكن عمل ذلك من خلال خاصية البحث ولاستبدال بتحديد العمود المراد البحث فيه واستبدال القيمة وإليك كود يقوم بتنفيذ المطلوب ( مع ملاحظة انه يمكن اختصار الكود لكن فضلت ان يكون هناك شروط قبل التنفيذ ) Sub replace() If [e5] > [d5] Then lr = [B10000].End(xlUp).Row For y = 2 To 9 If Cells(8, y).Value = [c5] Then For x = 9 To lr If Cells(x, y).Value = [d5] Then Cells(x, y).Value = [e5] End If Next End If Next End If End Sub

يمكن الاطلاع على الموضوع التالي يمكن يفيدك https://www.officena.net/ib/topic/39376-ملف-به-شاشة-دخول-بسيطه-ومنها-الى-شاشة-صلاحيات-متطوره/#comment-218345

تفضل كود بطريقة بدائية ربما تفيد إن شاء الله ولعل الأساتذة لديهم أفضل من ذلك Budget 2023.xlsb

صيانة عدد وادوات صغيرة يوجد صفر في العمود يناير وفبراير هل تريد نقلها --- نفقات دعاية واعلان يوجد قيمة في يناير فقط نفقات دعاية العلامه التجاريه لا يوجد قيم أي منهم تريد الحذف وأي منهم تريد الابقاء عليه

المرفق يحتوى على شيت لادخال البيانات ياليت ارسال نموذج لما تريد

وعليكم السلام ورحمة الله وبركاته إليك الروابط التالية يمكن تفيدك https://www.officena.net/ib/topic/117835-قائمة-منسدله-ديناميكه-لتعبئة-٣-حقول-او-خلايا/#comment-710475 https://www.officena.net/ib/topic/117252-كيف-عمل-قائمة-منسدلة-مبنه-على-الشيت/#comment-706640 وهناك موضوع للاستاذ محمد طاهر على ما اتذكر يشرح فيه مثل هذه القوائم

بعد إذن الاستاذ محمد يوسف الاستاذ طاهر ينقصك وضع النص بين " " =COUNTIF(C3:C24;"طبيب")

الاخ الفاضل lionheart كود جميل كيف تم عمل اختصار للكود في شريط العنوان

وعليكم السلام ورحمة الله وبركاته كود المطلوب الأول ويمكن توظيفه بحسب رغبتك ( وضعه في حدث الورقة أو عمل حلقة تكرارية من البداية للنهاية ) Sub dat() Application.ScreenUpdating = False On Error Resume Next رقم اخر صف يحتوي على تاريخ lr = [d10000].End(xlUp).Row رقم اخر صف يحتوي على بيانات n_lr = [f10000].End(xlUp).Row حلقة تكرارية تبداء For X = lr To n_lr اذا كان اخر خلية في العمود d If Cells(n_lr, 4) = "" Then قم بجعلى الخلية التالية تساوى الخلية السابقة في نفس العمود Cells(lr + 1, 4) = Cells(lr, 4) End If قم بالنزول صف يلي صف التاريخ lr = lr + 1 اعادة الحلقة التكرارية Next End Sub

فرضنا وجود رقم 24 مكرر في أكثر من صف في مادة اللغة العربية هل يقوم بالتغيير كامل أم تغيير درجة واحدة والافضل ارفاق ملف يوضح تصور لشكل الصفحة كامل

السلام عليكم ورحمة الله وبركاته الاستاذ علي كما تفضل الاستاذ حسونة حسين إلى عمل الاكواد بطريقة سليمة - وانا اضم صوتي إليه فالاعمدة الغير مظللة تختفي وتظهر بعد الطباعة واذا كان هناك شيء اخر فضلا قم بارسال ثورة توضح مشكللتك

يمكن الاطلاع على هذا الموضوع يمكن يفيدك مع ملاحظة أنه سوف يتم عمل كود يوضع في حدث فتح الملف كي يعمل تلقائي https://www.officena.net/ib/topic/58863-ارسال-رساله-الي-الايميل-بانتهاء-المده/

موفق إن شاء الله

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

خطأ في الكود والافضل رفع الملف كما اشار الاستاذ كمال

وعليكم السلام ورحمة الله وبركاته بحسب فهمي من قائمة insert إدراج - - ثم اختر من تبويب charts مخطط - اخر الشكل المطلوب وذلك بعد تحديد الدى المراد اعمل المخطط له ويفضل الذكر والانثى وكذلك حالة العملية استخدام دالة countif لتعطي أرقام يمكن استخادمها في الرسم البياني ( المخطط ) وإذا كنت ترغب في في في عمل مخططات مخصلة سوف تحتاج خلايا مساعدة ( كأن تقوم بعمل مخطط لحالة وزن الذكور مثلا )

مرحبا بك في أي وقت الاكواد كما يلي طباعة الصفحة الحالية ( صفحة واحدة ) Sub print_1() ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1, Copies:=1, Collate _ :=True, IgnorePrintAreas:=False End Sub طباعة كل الموظفين ( ولعمل ذلك تم عمل عمود مساعد لوضع رقم مسلسل للموظفين ) Sub print_1() ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1, Copies:=1, Collate _ :=True, IgnorePrintAreas:=False End Sub Sub print_all() ' الاعلان عن متغير من النوع الرقمي الصحيح Dim x As Integer 'عمل حلقة تكرارية بديتها القيمة الموجودفي في الخلية ام 3 وتنتهي في الخلية ام 4 For x = [m3] To [m4] 'أمر الطباعة ActiveWindow.SelectedSheets.PrintOut From:=1, to:=1, Copies:=1, Collate _ :=True, IgnorePrintAreas:=False ' زيادة القيمة في الخلية بمقدار 1 للانتقال للشخص التالي [m3] = [m3] + 1 ' تكرار التنفيذ Next [m3] = 1 End Sub إذا كنت لا ترغب في العمود المساعد يمكنك عمل الرقم الوظيفي قائمة منسدلة ويمكنك الاطلاع على الرابط التالي الكود في الأساس للاستاذ بن عليه حاجي على ما أتذكر ( فقط تم توظيفه ليناسب طلب السائل ) الاداة التي تنقل بين أرقام الموظفين ( أداة تحكم ) لا يوجد بها كود فقط يمكن ضبطها من خلال خصائصها طباعة الكل ومفرد.xlsm

حضرتك محتاجة ترحلي القيمة الموجودة في D5 أم E5 إلى الجدول وهل عند ترحيل اللغة العربية عند اختيار مادة أخرى يتم الترحيل في نفس الصف أم للصف التالي

وعليكم السلام ورحمة الله وبركاته الأكواد الموجودة في البحث التالي قد تفيدك فأنت تحتاج إلى كود بنفس فكرة التفقيط https://www.officena.net/ib/search/?q=تفقيط&quick=1&type=forums_topic&nodes=135

بعد إذن الاستاذ بن علية اقتراح لللسائل ممكن تستبدل ال0 بحرف ص أي عندما يكتب حرف ص يتم استبداله ب صفر نأمل من إدارة المنتدى تغيير العنوان ليناسب المحتوى وليكن مثلا كود استبدال حرف بكلمة

جزاكم الله خيرا

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

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

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