أبوعيد

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

السلام عليكم أهلا بك أخي المنار في هذا المنتدى ونتمنى لك طيب الإقامة بعد إذنك أخي الفلاحجي جرب هذا المرفق الخطوات كالآتي بعد أن تكون جميع الملفات مفتوحة 1) اكتب جميع الملفات التي عندك في العمود الأحمر وهذه الخطوة ستعملها مرة واحدة فقط 2) اختر الملف الذي تريد إحضار معلوماته 3) اضغط Import data ملاحظة : لمسح جميع البيانات في الشيت اضغط clear all من أين يتم جلب بيانات العمود الأصفر كما في الصورة ؟ تحياتي مجلد جديد ‫‬.rar

وعليكم السلام ورحمة الله وبركاته عندما يكون بالفاتورة أسطر فارغة (سطر واحد أو أكثر ) اضغط على الرقم كما في الصورة سيتم نقل الأسطر الفارغة إلى الأسفل ثم واصل ادخال البيانات بالطريقة المعتادة ارسال بيانات سطر فارغ1.rar

السلام عليكم أخي راجع الملف الذي أرفقته الملف المضغوظ اسمه (ارسال بيانات لي سطر فارغ) وبعد فك الضغط يظهر ملف الإكسل باسم ( اظهار اسم كامل ليست بوكس ) ربما أنك أخطأت في إرفاق الملف

أخي الكريم أنت كاتب اسم ظهورك ZOOM10 نحن نريدك أن تكتبه بالعربي بس مش تكتب زووم10 ولكن اكتب ما يدل على شخصيتك أهلا بك

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

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