أبو إيمان

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

سوف تقوم بتحدد الخلايا ----- الضغط على conditional formatting ثم New Rule ثم اختيار format only cells that contain ثم equal to ثم اكتب ""= ثم اختار اللون الذي تريد ثم موافق

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

حضرتك محتاج ان الصورة تظهر على التقرير ( مثل السيرة الذاتية )

حضرتك لا يوجد في الملف الرقم 12 لكي يتم تغييره المكتوب 12.5 القيمة الصغرى والكود لا يعتمد على قيم ثابته فالكود يعمل بحسب القيم المدخلة في الخلية C5 , D5 , E5 وإليك شرح الكود 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 وكما تلاحظ في الشرح لم يتم الربط بقيم ثابته

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

يمكن عمل ذلك من خلال خاصية البحث ولاستبدال بتحديد العمود المراد البحث فيه واستبدال القيمة وإليك كود يقوم بتنفيذ المطلوب ( مع ملاحظة انه يمكن اختصار الكود لكن فضلت ان يكون هناك شروط قبل التنفيذ ) 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