kh_yh

اخي احد مبدئيا الحل جيد ولكن يوجد مشكلة في ترصيد الذمة الاخيرة حيث تظهر بدون رصيد

ان شاء الله صديقي الاستاذ احمد هذا الكود ضروري حيث اذا تم اي تعديل بعد الترحيل يقوم بتعديل الرصيد

اخي جرب مسح البيانات وبدا ترحيل من جديد انا لم اكتفي بنسخ الكود ولكن قمت بتحميل الشيت الخاصة فيك وعندما قمت بمسح البيانات في شيت 2 ظهرة المشكلة والرسالة التي قمت بكتابتها لك

صديقي يظهر لي مشاكل بالملف ولا استطيه اغلاقه الا عن طريق كنترول والت ودليت رسالة المشكلة excel cannot completed this task with available resoures . choose less data or close other application وتظهر هذه الرسالة عند تفريغ شيت 2 كما انني لا اريد ظهور اي شئ يظهر بالعامود i و في الشيت رقم 1 يعتمد على اخر صف بع بيانات بمعنى لو كان احد الصفوف الاربعة المحدد عندي في شيت 1 فارغ لا يظهر طلب باكمال البيانات

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

شكرا الك بارك الله فيك انا بانتظار حلك

لماذا لا تكون عن طريق مسج بوكس مثلا الفاتورة رقم 3 مكررة او سند قبض 4 مكرر

صحيح لا بدون تدخل حيث ان الشيت رقم 3 هي عبارة عن كشف حساب مستمد من البياتات في الشيت رقم 2 بمعنى ان الشيت رقم 3 هدفها الاستعلام فقط

اخي احمد قمت بتنفيذ الفكرة بالكود السابق مربوطة بعمود مساعد لتصل الفكرة لك ولكن انا احتاجها بالكود بدون اعمدة مساعدة (13-05-2018) كشف حساب.xlsm

صديقي احمد انا اشكرك على الحل ولكن انا ارغب ان يكون الحل على شكل كود شخص على الفيس بوك قدم لي الحل التالي Sub TRans() lr2 = Sheet1.Cells(Rows.Count, "b").End(xlUp).Row If Cells(lr2, 4) = "" Or Cells(lr2, 5) = "" Or Cells(lr2, 6) = "" Or Cells(lr2, 6) = "" Then MsgBox "ضع صفر مكان القيم الفارغة وضع الملاحظة" Else Dim myArray() As Variant myArray = Range("a2:h" & Cells(Rows.Count, 1).End(xlUp).Row) With Sheet2 lr = .Cells(.Rows.Count, "b").End(xlUp).Row For Each c In Sheet1.Range("d2:d" & lr2) For Each cc In Sheet2.Range("d2:d" & lr) If c = cc Then MsgBox "Please Check Invoices number....": Exit Sub Next Next .Cells(Rows.Count, 1).End(xlUp)(2, 1).Resize(UBound(myArray, 1), UBound(myArray, 2)).Value = myArray For x = 2 To lr Data = Application.WorksheetFunction.SumIf(.Range("$b$2:b" & x), .Range("b" & x), .Range("$e$2:e" & x)) Data2 = Application.WorksheetFunction.SumIf(.Range("$b$2:b" & x), .Range("b" & x), .Range("$f$2:f" & x)) .Range("g" & x).Value = Data - Data2 Next x End With MsgBox "DONE....", 64 End If End Sub حيث ان النص الملون بالاصفر مسؤول عن التحقق ولكن هذا الحل يبحث بالرقم فقط ولكن مثالي يجب عند التحقق يربط نوع السند مع رقم السند حيث ان اذا تكرر رقم 1 لرقم الفاتورة ورقم السند فهذا لا يعتبر تكرار حيث يجل ان لا يتكرر نوع سند يحمل نفس رقم السند مثلا لا يجب ان يكون هناك فاتورتين تحمل نفس الرقم اما وجود سند قبض وفاتورة تحمل نفس الرقم فلا مشكلة لا يعتبر تكرار

up......

اخي اذا قمت بتحميل الملف فه يحتوي على اكود ولا اظن الن تحقق من الصحة يعمل حيث انني احتاج عندما يجد قيمة مكرر من الموجود في صفحة رقم 1 من الصفحة رقم 2 يوقف الترحيل ويقوم باخباري ان المدخل مثلا فاتورة رقم 3 مكررة

up....

مسا الخير جميعا وتحية طيبة كل عام وانتم بخير الملف المرفق يحتوي كود ترحيل واستعلام لاستخراج كشف حساب محتاج اذا كان رقم المستند مكرر ان يقوم باظهار مسج يبين لي ان رقم فاتورة المبيعات للعميل خالد مكررة او رقم سند القبض للعميل احمد مكرر كما لاحظة ان الترحيل يصبح بطيئ في حال زيادة البيانات وذلك لوجود كود في شيت 2 يقوم بتعديل الرصيد اذا تم التعديل عليه فهل يوجد لهذه المشكلة حل (13-05-2018) كشف حساب.xlsm

كيف يمكن ان اقوم بادخال رقم 10 في خلية وتظهر #10# ؟؟ و يرجى شرح سبب ظهور هه الرسالة والحل للتخلص منها

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

استاذي الملف لا يعمل لدي جربته على اكسل 2016 + 2010+ 2007

لجنة.xlsm ارجو ان يكون هذا طلبك

SADAD.xlsx صديقي جرب هاد الحل

لا استطيع فتح الملف استعمل اكسل 2010 +2016

صديقي لماذا لايتم حذف البيانات اذا كان جميعهم متشابهات

هاد الفيديو ممكن يساعدك

هل يمكن تعديل العملة والملاحظة المشار اليها بالاعلى

عند الانتقال الى صفحة الاكسل كل شئ داخلها مغلق لم استطع الدخول الى developer

استاذ ياسر شخص اكثر من رائع اسال الله العلي القدير التوفيق لك في الدنيا والاخرة لانسى كم المساعدات بتجهيز العديد من الاكواد التي كنت استفسر عنها اعانتني كثيرا في عملي بارك الله فيك وسدد خطاك