طارق محمود

أنظري المرفق بداية من العمود G ستجدي معادلات قد تفيدك فيما تريدين الوصول إليه الاصناف ونسبة الخصم.rar

السلام عليكم أولا أهلا ومرحبا بك الأخت الكريمة بين إخوانك وأخواتك ثانيا السؤال غير واضح مثلا ، الصنف 101 موجود بالجدول بالتواريخ : 01/06/2014 ، 02/06/2014 ، 08/06/2014 ، 09/06/2014 ، 12/06/2014 وأنت كتبتي "نسبة الخصم ستكون 75% لان المنتج نزل ليوم واحد فقط" هل هذا خطأ أم أنني لم أفهم المطلوب

السلام عليكم أخي العزيز أنت لم تقرأ الشرح في مشاركتي السابقة (بالورقة المسماة CODE بالملف السابق) قلت لك أن "هذه الأكواد الأربعة متماثلة وكلها عبارة عن أمرين 1- وضع رقم الزر في الخلية q1 ثم 2- إستدعاء وتشغيل الكود nn" ============== أي أن الكود "nn" هو محور العملية فهو ببساطة ينقل جميع الشارتات بالورقة الأولي للورقة الثانية (فتختفي ظاهريا) ثم يعيد نقل الشارت المطلوب حسب قيمة الزر المضغوط للورقة الأولي ============ ثم أنك لم توضح ماذا تريد عمله بالزر (5)

إن كنت بدأت كود إكتبه حتي يراه الإخوة معك ويساعدوك وإن كنت تريد الحل بالأكواد ولم تبدأ فيلزمك شرح أكثر ، ماهي المحددات التي لديك لعملية إختيار الخلايا مثلا فكرة الكود ممكن تكون كاالتالي زر-A بالضغط عليه يفتح الصفحة من الحماية زر-B بالضغط عليه يفعٍل حماية الصفحة بنفس الترتيب السابق شرحه مع إلغاء الحماية من الخلايا التي تقف عليها وقت الضغط علي زر-B

أخي العزيز أنظر المرفق باستخدام معادلة الصفيف لفصل محتويات الرقم المعادلة طويلة شوية لكنها مفيدة and-or.rar

السلام عليكم الأخ الكريم / محمد لطفي الفكرة ببساطة كالتالي 1- تظلل (أو تعلم) الخلايا التي تريد التحرك خلالها فقط مع استخدام زر الـ Ctrl لو كانت الخلايا متفرقة 2- ثم كليك يمين الماوس وأنت علي إحدي هذه الخلايا أثناء إختيارها (أنظر الصورة) 3- إختر Format Cells ثم أزل علامة إختيار قفل الخلية Locked 4- إختر قائمة Review ثم Protect Sheet ثم أزل علامة إختيار Select locked cells وممكن تضع كلمة سر أو لاتضع بهذا أنت منعت الإختيار لكل خلايا الشييت إلا ماتم إختياره بالمرفق تجد هذا الذي طلبت وكلمة سر الحماية 11 مع صور توضيحية في شييت الشرح Book10-تحديد نطاق الحركة.rar

السلام عليكم تفضل أخي المرفق لاحظ المطلوب في العمود M باللون الأحمر توزيع الاعداد حسب جدول البيانات.rar

السلام عليكم أخي فراسكو تفضل الملف به طلبك الأخير =================== أخي الفاضل / محمود_الشريف أخي الفاضل / أبو حنين جزاكما الله كل خير علي المرور الكريم والكلمات العطرة TOTAL_Files3.rar

السلام عليكم أخي العزيز في صفحتي "الاسلحة المتوسطة" و"الاساحة الخفيفة ف4ل3" يوجد بالعمود D "الرقم العربي" مما يحرك عمود مكان التواجد من العمود E الذي يتم الفرز علي أساسه لذلك أضفت لك هذا العمود ولو فارغا في صفحة الاسلحة الثقيلة حتي يعمل الكود علي نفس المنهج (ويمكنك إخفاؤه إن كنت لاتريده - لن يتأثر الكود إن مخفيا) وتم تعديل اختيار السرية الرابعة بدلا من سمقر فقط أصبح سمقر أو س4 تم إضافة ورقة أخير للاسلحة المفقودة والمدمرة والعاطله تفضل المرفق بعد التعديلات TOTAL_Files2.rar

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

الملف محمي بكلمة سر

السلام عليكم أخي الكريم تفضل المرفق وبه شيت جديد لشرح الكود أرجو الإنتباه للغة الألوان في شرح الكود جدول حراسة22.rar

السلام عليكم أخي الكريم ضع الكود التالي في حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) r = Target.Row If Target.Column = 3 Then Cells(r, 6).Activate If Target.Column = 6 Then Cells(r + 1, 3).Activate End Sub تفضل الملف وبه الكود =============================== شرح سريع الكود في حدث التغيير بالورقة Worksheet_Change نسمي صف الخلية التي حدث بها تغيير r ثم من خلال سؤالين شرطيين 1- إذا كان عمود الخلية المتغيرة =3 أي أنه العمود C فلتنشط الخلية التي بنفس الصف في العمود 6 أي أنه العمود F اللي به الكمية 2- إذا كان عمود الخلية المتغيرة =6 أي أنه العمود F فلتنشط الخلية التي بالصف التالي r + 1 في العمود 3 أي أنه العمود C اللي به كود الصنف الإحتمالات الأخري غير هذين العمودين سيخرج الكود عن العمل ولايفعل شيئا ، أي أن الأمور تظل طبيعية طلبية.rar

السلام عليكم إحتمالات كثيرة لهذا الخطأ في الكود الأول Private Sub Workbook_Open() Sheets("MyDate").Range("E3:IT3").ClearContents For I = 2 To Sheets.Count Sheets("MyDate").Cells(3, I + 3) = Sheets(I).Name Next 'UserForm1.Show End Sub (1) تأكد أن لديك بالملف شيت إسمه MyDate في الكود الثاني Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets("moving").Activate Application.ScreenUpdating = False For I = 2 To Sheets.Count (Sheets(I).Unprotect (5240 (2) تأكد أن لديك بالملف شيت إسمه moving (3) أعد كتابة السطر الأخير (Sheets(I).Unprotect (5240 ولكن تأكد أن مود الكتابة إنجليزي لأن الأقواس في هذا السطر قد يكون منها ماهو عربي

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

السلام عليكم إن شاء الله تستطيع عمل ذلك بنفسك بعد أن تقرأ شرح الكود بالمرفق (الشيت الأخير Code) وقد أضفت الكود الصغير بالمشاركة السابقة لحدث فتح الملف لجعل الشارتات كلها مخفية في البداية عند فتح الملف تفضل المرفق ظهور الرسم البياني عند ظغط زر.rar

السلام عليكم نعم ضع الكود التالي في حدث فتح الملف Private Sub Workbook_Open() On Error Resume Next Sheets(1).Activate Application.ScreenUpdating = False For i = ActiveSheet.ChartObjects.Count To 1 Step -1 ActiveSheet.ChartObjects(i).Activate ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet2" Sheets(1).Activate Next Application.ScreenUpdating = True End Sub

السلام عليكم تفضل أخي الملف به المطلوب ظهور الرسم البياني عند ظغط زر.rar

مرفق الملف وبه التعديل الاخير ترقيه4.rar

هذه Private Const MyColumn As Integer = 4 تعني أنني سأستخدم متغيرا رقميا صحيحا بقيمة ثابتة تساوي دائما 4 وسميته MyColumn متغيرا رقميا صحيحا Integer بقيمة ثابتة Const تساوي دائما 4 = 4 ولكن يبدو أن أستاذنا الجليل / عبدالله باقشير لم يستخدم هذا المتغير بعد أن عرفه في صدر الكود وبنفس الطريقة يمكنك فهم التالي(في صدر الكود أيضا) Private Const MyRng_Copy As String = "A9:Z9" وهذه تعني أنني سأستخدم متغيرا نصيا ثابت يساوي دائما "A9:Z9" وسميته MyRng_Copy فيما بعد ، في الكود ، ستجد هذا المتغير يستخدم كعنوان للنطاق (أو المجال) =========================== هناك طريقة لفهم خطوات أي كود ببساطة ، بدلا من أن يتم تنفيذ الكود دفعة واحدة (بالكبس علي الزر أو بضغط F5 من محرر الأكواد) تلك الطريقة تمكنك من تتبع خطوات الكود واكتشاف الخطأ متي يبدأ ولماذا تلك الطريقة تستطيع عملها بالكبس علي الزر أو بضغط F8 من محرر الأكواد لتفيذ خطوة واحدة من الكود علي أن يكون الملف أيضا في مجال رؤيتك لتري التغيرات واحدة بواحدة ثم بضغط F8 من محرر الأكواد مرة أخري لتفيذ الخطوة الواحدة التالية من الكود وهكذا

عذرا صديقي فهذا حالنا مع أكواد العبقري / عبدالله باقشير حفظه الله تحتاج وقت لدراستها ووقت للإستمتاع بها ثم قد تستطيع أو لاتستطيع التعديل عليها إبحث مرة أخري عن نفس السطر وأرجعه إلي القيمة الأولي mpRow.Offset(1, 0).EntireRow.Insert ثم إبحث عن السطر التالي With Cells(LastRow, 2).Resize(MyRow, .Columns.Count) وغير قيمته من 2 إلي 1 With Cells(LastRow, 1).Resize(MyRow, .Columns.Count) ليصبح الكود هكذا ............ ............ If Not mpRow Is Nothing Then For i = 1 To MyRow mpRow.Offset(1, 0).EntireRow.Insert Next LastRow = mpRow.Row + 1 Else LastRow = [E999].End(xlUp).Row + 1 End If If MyRow = False Then Exit Sub With Range(MyRng_Copy) .Copy With Cells(LastRow, 1).Resize(MyRow, .Columns.Count) .PasteSpecial xlPasteAll .SpecialCells(xlCellTypeConstants).ClearContents End With .Columns(1).Offset(LastRow, 0).Select End With ......... ..........

السلام عليكم أخي العزيز إبحث عن السطر التالي في الكود mpRow.Offset(1, 0).EntireRow.Insert وغيره إلي mpRow.Offset(0, 0).EntireRow.Insert

السلام عليكم تفضل الملف بعد التعديل ازالة الفرز2.rar

تفضل أخي حتي لو أكثر من جدول بالصفحة سيعمل الكود ازالة الفرز.rar

تفضل أخي حساب ايام الاجازات الاعنيادية2.rar