أبو إيمان

السلام عليكم المطلوب كود بديل عن VLOOKUP يعمل بطريقة تبادلية بين الخليتين ربط خليتين.xlsm

شكرا لك أستاذ Lionheart الكود جميل والفكرة ممتازة وفكرة الألوان العشوائية تعطي احساس بالتجديد عندى ملاحظة بسيطة أنه عند التجهيز يتم كتابة الرقم في الخلية C2 قبل كتابته أمام الأفراد والكود لايعمل إلا اذا تم كتابة الرقم بعد الاختيار وسوف اتغلب على هذه الجزئية بوضع استدعاء الكود داخل كود أخر مخصص للطباعة تقبل تحياتي وشكراً لك

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

THANKS ALOT

شكرا لك أخي الكريم lionheart وتم إضافة مووضوع جديد بالمطلوب الجديد في الرابط https://www.officena.net/ib/topic/118797-تظليل-الاسماء-المرتبطة-عند-ترحيلها-تلقائيا/

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