أبوعيد

وعليكم السلام نعم يمكن لاحظ السطر الأصفر رقم 6 المعادلة موجودة فيه Book12.rar

وعليكم السلام أخي من الأفضل إن ترفق الملف لأن المشكلة قد تكون لعدة أسباب تحياتي

شكرا أستاذ ياسر خليل ماشاء الله , اللهم زد وبارك فعلا , يمكن ربطها بالمصنف كنوع من الحماية وهذه النتيجة التي حصلت عليها بعد تطبيق الدالة : Latitude D620 , 4C4C4544-0038-4710-8058-B7Y0433334A وقد لفت انتباهي في الكود كلمة UUID وهي اختصار لكلمة Universal Unique Identifier المعرف الفريد العالمي والذي يهدف إلى أعطاء رقم خاص (كالمبين أعلاه) لكل جهاز من أجهزة الحاسوب حول العالم مهما اختلفت الشركات المصنعة لها مريدا من المعلومات على الرابط الآتي : https://en.wikipedia.org/wiki/Universally_unique_identifier

المشكلة طلعت بسيطة , تم حلها والحمدلله الطريقة : 1 كليك يمين الماوس على الملف 2 نختار (فتح باستخدام) 3 ثم (اختيار البرنامج الافتراضي) 4 ثم نضع علامة الصح كما في الصورة (السهم الأحمر) ثم موافق

أهلا بك في منتدى أوفيسنا وأرجو منك تغيير اسمك إلى اللغة العربية كما هو المعمول به هنا لاحظ المرفق , في المرفق بداية لقاعدة البيانات التي طلبتها هل تحب أن تضيف أي بيانات غليها ؟ بيانات الحجز.rar

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

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

هو حيترجم أي حاجة بس المشكلة أن الإنجليز مش هايفهموها هههه

السلام عليكم الكود يبدأ التسلسل من 1460 تم التعديل Book3.rar

السلام عليكم المعادلة موجودة في العمود الأصفر sheet2 تفضل Book2.rar

السلام عليكم تفضل جرب المرفق Book2.rar

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

السلام عليكم سؤال : كيف يسيتطيع الكود معرفة القيمة السابقة (التي كانت مكتوبة في الخلية ) قبل التغيير ؟ حواب : عن طريقة الخلية VV1 لأنها تقوم بحفظ قيمة الخلية قبل التغيير عند اختيار أي خلية من الجدول تقوم الخلية VV1 مباشرة بتسجيل القيمة الموجودة ( قبل أي تغيير ) وبعد عملية التغيير يكون أمام الكود قيمتين لكل خلية القيمة الأولى : في الخلية VV1 ( قبل التغيير ) القيمة الثانية : في الخلية نفسها ( بعد التغيير ) يقوم الكود بعد ذلك بوضع القيمتين في أماكنهما المناسبة في صفحة التغييرات تحت عمود (القيمة السابقة ) و ( القيمة الجديدة )

تم حل المشكلة تفضل تعقب التغييرات والحذف1.rar

تفضل تعقب التغييرات والحذف.rar

السلام عليكم طلبك غير مفهوم لنفرض أن الورقة الأولى فيها 5 أشخاص انتهت صلاحيتهم والورقة الثانية فيها 4 أشخاص انتهت صلاحيتهم أصبح لدينا 9 أشخاص . كيف ستظهر النتيجة ؟

شكرا لك أخي أبوالبراء على مد يد العون لإخوانك حتى يصلوا للقمة شكرا على الإضافة الجميلة في الكود وأنت اسمح لي بتطوير هذا الكود لجعله ديناميكيا كما يأتي Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim LR As Long, N As Integer N = Sheets.Count If Sh.Index < N Then LR = Sheets(N).Cells(Rows.Count, "A").End(xlUp).Row + 1 If Target.Column < 10 And Not IsEmpty(Target) Then With Sheets(N) .Cells(LR, 1) = ActiveSheet.Name .Cells(LR, 2) = Target.AddressLocal .Cells(LR, 3) = Target.Value .Cells(LR, 4) = [vv1].Value .Cells(LR, 5) = Application.UserName .Cells(LR, 6) = Format(Date, "dd-mm-yyyy") .Cells(LR, 7) = Format(Now, "h:mm:ss") End With End If End If End Sub التعديلات هي : يجب أن تكون ورقة التغييرات آخر ورقة في الملف وأي ورقة سيتم التغيير عليها (غير ورقة التغييرات) سيتم تسجيل بياناتها N = Sheets.Count If Sh.Index < N Then إضافة اسم المستخدم الذي قام بالتغيير .Cells(LR, 5) = Application.UserName التعديلات تجدها في المرفق تعقب التغييرات1.rar

وعليكم السلام ورحمة الله تفضل

السلام عليكم أحبابي الكرام فكرة هذا الملف هو نفس خاصبة تعقب التغييرات التي بالاكسل عند فتح المرفق تجد ثلاث أوراق الورقة الاولى : يناير الورقة الثانية : فبراير الورقة الثالثة : التغييرات غير أي خلية في الجدولين الموجودين في الورقة الأولى والثانية ستجد في ورقة التغييرات البيانات الآتية : اسم الورقة ـ عنوان الخلية ـ القيمة الجديدة ـ القيمة السابقة ـ التاريخ ـ الساعة أرجو أن ينال أعجابكم تعقب التغييرات.rar

أخي ياريت تغير اسمك إلى اللغة العربية هذه محاولة بالمعادلات أرجو أن تنال إعجابك k2 mido1.rar

السلام عليكم غير حرفين فقط في آخر سطر في الكود import كما في الصورة ثم غير ما يلزم

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

نفس الشي ويبدو أن الخلل في جهازي

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

أولا : من الأفضل إدراج الدالة if (لحساب العمود opex category) في الكود import data ثانيا :ارفق ملف يحتوي على جميع الأعمدة في main file مع الأعمدة التي تضيفها وملف يحتوي على جميع الأعمدة في section A وفي حدود 100 تقريبا سطر كنموذج وملف يحتوي على جميع الأعمدة في section B وفي حدود 100 تقريبا سطر كنموذج ثالثا : عملية إزالة معلومات ملف سيتم معالجتها لاحقا إن شاء الله بعد تطبيق التعديلات في أولا وثانيا