أبو إيمان

السلام عليكم أولا : أود أن أشكر الاستاذ LIONHEART على الكود الخاص بربط الاسماء والشكر موصول لجميع الاخوة في المنتدى ثانيا : المطلوب في ورقة كشف الترحيل SHEET2 تظليل الاشخاص المرتبطين.xlsm

الاستاذ lionheart * أولا : شكرا للتوضيح وسوف يتم العمل بهذه النصيحة * ثانيا : الكود يعمل بكفاءة لكن يعمل عن نفس الورقة المسماة الرئيسي والمطلوب أن يتم التظليل في ورقة العمل المسماة كشف الترحيل مع ملاحظة ازالة اللون إذا تم ازالة رقم اليوم من أمام كود الشخص في ورقة العمل المسماة الرئيسي

الاستاذ / lionheart شكرا جزيلا يعمل بكفاءة باقي التظليل

جاري التجربة هل يمكن أن يتم تظليل الأسماء المرتبطة في كشف الترحيل كل مجموعة بلون مختلف الاشخاص المرتبطين 003.xlsm

السلام عليكم الاخ lionheart هل يمكن التعديل في الكود المرفق بحيث أن رقم ( كود الشخص ) يحتوي على حروف الاشخاص المرتبطين 002.xlsm

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

المطلوب حساب قيمة المستهلك في عمود C كمثال في عمود B في شهر 7 تم استهلاك 900 * سعر 5 =4500 وفي شهر 8 تم استهلاك 900 تم حساب 100 رصيد اول بسعر 5 ، 800 بسعر 6 = 5300 وكذلك شهر 9 تم استهلاك 500 تم حساب 200*6 ، 300 * سعر 7 = 3300 في شهر 8 على اي اساس تم احتساب 100 رصيد أول بسعر 5 وكذلك في شهر 9

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

جزاكم الله خيرا وسلمت يمينك

الاخ الفاضل alsaeed من الافضل : تثبيت نطاق الخلايا مع دالة Vlookup أو تسمية النطاق حتى تتجنب أخطاء العمل ويمكن اكتشاف الاخطاء إذا قمت بكتابة الرقم 3 في الخلية A85 لكن عند الثبيت لا يظهر اخطاء

السلام عليكم لدي ملف يحتوى على عدد من الاشخاص وفي كل يوم يتم حضور ما يقرب من 70 شخص لغرض ما وهناك بعض الاشخاص الذين يتوجب حضورهم في نفس اليوم مثلا رقم 101 و 108 و 110 رقم 102 و 106 المطلوب كود عند كتابة رقم اليوم أمام 101 يتم كتابته تلقائيا أما الاشخاص المرتبطين به وكذلك 102 الاشخاص المرتبطين.xlsm

أستاذ محي جزاكم الله خيرا الكود المرفق يعمل بنفس فكرة الكود المرسل سابقا في الملف المطلوب عند تنفيذ الكود يبحث في أرقام الفواتير وإئا وجد تكرار ( Duplicate ) يحذف بيانات الفاتورةالمكررة دون الحاجة إلى ادخال الرقم يدويا

الأخ كريم شكرا لك ولا مانع من التنوع وذلك لزيادة الفائة وإثراءا للموضوع

وعليكم السلام ورحمة الله وبركاته لاخفاء شريط الصيغة Application.DisplayFormulaBar = False إليك هذا الكود يخفي جميع الاشرطة ويجعل الوضع ملء الشاشة ويقوم بإخفاء تبويب أوراق العمل لاحظ الصفحة المراد أن تفتح عليها ( يمكن وضع الكود في حدث فتح المصنف _ الملف _ ) Range("a1").Select Application.ScreenUpdating = False Dim ws As Worksheet Sheet1.Visible = xlSheetVisible For Each ws In ThisWorkbook.Worksheets If Not ws.Name = "اكتب هنا اسم الصفحة التي تريد ظهورها اول شيء" Then ws.Visible = xlSheetVeryHidden Next ws ActiveWindow.DisplayHeadings = False Application.DisplayFormulaBar = False Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" Application.ActiveWindow.DisplayWorkbookTabs = False

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

وعليكم السلام Dim a As Integer For a = 1 To 100 Cells(a, 1).Value = "موظف" Next End Sub 1 أول صف به بيانات 100 أخر صف يمكن اضافة تحسنات للكود بحسب الرغبة

بعد إذن الاستاذ محمد هشام a1 أول عمود فيه بيانات O اخر عمود فيه بيانات الاستاذ حيدر استبدل حرف O ب أخر عمود عندك وبحسب ما ذكرت سوف يكون AE Set MOSS = ws.Range("A1:AE" & lr)

أقصد الفاتورة المكتوبة 325 ولكي يتضح الأمر قمت بإرفاق الملف التالي ربما يكن الأمر أكثر وضوحا واعتذر اذا لم استطع التوضيح حذف الفواتير المكررة 002.xlsm

ربما لديك بيانات في أخر عمود

الكود التالي يحذف جميع بيانات الفاتورة المحدد Application.ScreenUpdating = False On Error Resume Next Dim XL As String XL = 325 LR = [B10000].End(xlUp).Row For R = 2 To LR x = Cells(R, 2).Value If x = XL Then If R <> LR Then n_lr = .Cells(R, 2).End(xlDown).Row - 1: GoTo 20 n_lr = [H10000].End(xlUp).Row End If Next R 20 Range("D" & R & ":H" & n_lr).EntireRow.Delete Shift:=xlUp End With ما قمت بعمله في المرفق السابق هو حلقة تكرارية تبحث عن قيمة كل خلية وفي حالة التكرار قيمة القاتورة يتم حذ جميع البيانات لكن عند التنفيذ هناك خطأ .

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