أبو عبد النور

يجب ان يكون كلا الملفين Store.xls و Supplieres.xls مفتوحين قبل تشغيل ملف Compare.xls.

اقصد سطر الكود الذي يولد رسالة الخطا هذه وتجده معلما بالاصفر عموما

تفضل : Aziz_ر002.rar

لا ادري ما فائدة الورقة الاولى : هل هي وصل ببيع او فاتورة او ما شابه ؟ ثم ان الصنف عبارة عموما عن مثلا مواد غذائية واسم السلعة مثلا هو طماطم او مواد تنظيف ومنها الجافيل مثلا ... رببما يعود اليك تسمية موادك التي تستعملها.

وعليكم السلام ورحمة الله، هل الاعمدة المرفقة في المثال الاخير نهائية ولن تتغير من يعد ذلك أم لديك تصور وترتيب آخر لها ؟ لانك بتغيير الاعمدة في كل مرة سيتغير الكود حتما حسب كل ترتيب.

بدون ملف يبين مشكلتك لن تستطيع الحصول على اجابة واضحة.

وعليكم السلام، جرب عندك هذه الفرضية واذا كانت هناك مشكلة في الملف الجديد ارفقه هنا لنرى الامر.

ارفق ملف اكسل وليس الصورة : https://www.officena.net/ib/uploads/monthly_2016_12/Aziz.png.3c080e3d747ecc76692b1edca67702af.png

على اي سطر توقفت رسالة الخطأ ؟

في الصورة المرفقة وليس الملف كما طلبت هناك ثلاث اعمدة فقط وليس ثلاثة.

ارفق لي الملف الذس تعمل عليه

وعليكم السلام ورحمة الله، جرب المرفق. Compare_v001.rar

اذا تم مسح الورقة invoice فلن تكون هناك بيانات في الفورم. ربما يجب عليك ابطال الزر "التعديل" في هذه الحالة حتى تتوفر بيانات جديدة.

وعليكم السلام ورحمة الله، هل جربت استعمال نموذج UserForm لحل مشكلتك ؟

مجموع حسب التاريخ_v001.rar

تقضل : مجموع حسب التاريخ_v001.rar

وعليكم السلام ورحة الله، جرب هذا الكود : Sub test() Dim Lr As Integer Dim Dt As Date Dim Tb() Lr = [B10000].End(xlUp).Row Set Rng = Range("B2:B" & Lr) Dt = Format("01/01/2016", "dd/mm/yyyy") For Each cel In Rng If cel <> Dt Then i = i + 1 ReDim Preserve Tb(1 To 2, 1 To i) Tb(1, i) = Dt Tb(2, i) = cp Dt = cel cp = 1 Else cp = cp + 1 End If Next Range("H2").Resize(UBound(Tb, 2), UBound(Tb)) = Application.Transpose(Tb) End Sub

السلام عليكم، جرب المرفق التالي : عند تعديل على اسم في الصفحة يتم تعديل في صفحة الأخرى_v003.1.rar

عدد وترتيب الاعمدة في الورقة الاولى ليس مثله في الورقة الثانية.

ملاحظة : هل تحب استحداث عمود جديد بسعر البيع في الورقة invoice ؟

عذرا اخي ولكن لدي سؤال : انت تريد ان تكون الورقة codes مطابقة للورقة invoice ولكن عندما يتم التعديل عليها تنتفي عنها المطابقة. تريد شيئين متضادين في نفس الوقت. هذا هو المشكل. تحرير : في المثال الذي ارفقته لي الورقتان غير متطابقان : الاولى فارغة والثانية بها بيانات.

ارفق لي الملف الذي على الفيديو رجاء.

ليس هناك حذف للبيانات على ما يبدو.

مهمة الكود VBA الموجود في آخر اسطر كود الزر "تعديل" ان يقوم بادخال المعادلتين في العمودينB و D من الورقة codes. هاتين المعادلتين تقومان بجلب المعلومات من الورقة invoice حسب الموجود من قيم في العمود A "كود" من الورقة codes. ثم اي زر لديك تقوم بواسطته بحذف البيانات من الورقة codes ؟

المعادلة يتم إظهارها الان عن طريق كود VBA من زر "تعديل" عند تعديل على اسم في الصفحة يتم تعديل في صفحة الأخرى_v002.rar