Dr.Basel-D

بارك الله فيك يا اخي الكريم.....

جزاك الله الف خير ...ز شكرا جزيلا عالكود والله يعطيك العافية ويديم عليك الصحة. متل ما بقلو " الله يريحك متل ما ريحتني" وشكرا مرة اخرى

السلام عليكم جزاك الله الف خير على متابعة الموضوع واسف جدا على تقصيري في توضيح بعض النقاط..... النقطة الاولى: ملف الاساس هو RN حيث يتم البحث عن ارقام الفواتير الموجودة في RN,Sheet1,B3:B(على اساسها يتم البحث) ضمن داخل ملف العميل. النقطة الثانية : لا يتم مسح اي فاتورة من ملف العميل ان لم يوجد مطابق لها في الملف RN,Sheet1,B3:B يرجى لاطلاع على المثال في الملفات في المرفق حيث كتبت كل عملية سوف تتم في كل من RN and 100001 ولك فائق الشكر والتقدير وادعو ربي ان يجعلها من ميزان حسانتك. example.zip

في السؤال الاول : يظهر رسالة ان القيم غير متطابقة يرجى حذف بكشل يدوي او التاكد من الملبغ ( ايقاف العملية من دون حذف الصفوف) بالنسبة للسؤال الثاني: مجرد تطابق ارقام الفواتير في الملفين ( العميل و RN) ثم تساوي مجموع قيم الفواتير ( المتطابقة بين ملف العميل و RN) مع قيمة الشيك الموجودة في RN,Sheet1,C5 يتم حذف صفوف الفواتير( الفواتير المتطابقة بين ملف العميل و RN) في ملف العميل ثم التخزين والخروج

شكرا لتفهمك واسف على تقصيري في شرح الطلب...... العملية بالتفصيل مع المسميات: RN ملف سند القبض 100001 ملف الفواتير المتبقية الغير مدفوعة للعميل Dr. Basel 100002 ملف الفواتير المتبقية الغير مدفوعة للعميل Dr. Ahmed 1- سوف اضع اسم العميل في الخلية (A3) - ملف RN شيت Sheet1 2-الرقم التسلسلي للعميل المتربط باسم العميل (A4)- ملف RN شيت Sheet1 3-سوف ادخل ارقام الفواتير ( ملاحطة: الفواتير اراد العميل دفعها بالشيك) يدويا في الخلايا (B3:B)- ملف RN شيت Sheet1 4-تاريخ الشيك ادخال يدوي (C3) | رقم الشيك ادخال يدوي (C4) | قيمة الشيك ادخال يدوي (C5) - ملف RN شيت Sheet1 5-رقم التسلسلي التلقائي لسند القبض (D4) - ملف RN شيت Sheet1 6-عند ضغط الزر يعمل الكود كالتالي: يبحث في ملف العميل 100001 او 100002( ملاحظة: حسب اسم العميل ورقمه التسلسلي) عن الفواتير التى تم اضافتها في RNمن B3:B 7-اذ وجدت هذه الفواتير يتم التأكد من مجموع قيمها ( الموجود في ملف العميل في شيت 1 في الصف C من C2:C. 8-في حال تطابق مجموع قيم هذه الفواتير في ملف العميل مع قيمة الشيك في ملف RN,sheet1,C5 يتم حذف صفوف الفواتير التى وجدت من ملف العميل ثم الحفظ والاغلاق والعودة للملف RN

اخي الكريم ياسر, انا فقط اريد اضافة على الكود تقوم بالتأكد من مجموع قيم الفواتير التى وجدت في ملف العميل( التى انا وضعتها في العمود B) اذ تساوي قيمة سند القبض وبعدها يتفعل الكود تبعي ( حذف الصفوف )

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

ممكن المساعدة يا اخوان والله داخ راسي وانا احاول... لكم جزيل الشكر

لزيارد توضيح طلبي اخواني الاعزاء الرجائ منكم فتح الملف المرفق RN وانا كاتب فيه كمنتات توضيحية عن طيقة عمل الكود الذي اريد منك مساعدتي فيه .... وانشالله في ميزان حسناتكم يا اخواني File 3.zip

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

الملف في المرفق وشكرا مسبقا Workbook1 is RN " receipt Note " Workbook2 is 100001" Costumer Services Number " RN.Sheet1 column "B" --> invoice numbers in the receipt. Rn.sheet1 Cell "D3" --> the receipt amount. 100001.Sheet1 Column "A" --> all unpaid invoices numbers of the costumer. 100001.Sheet1 Column "C" --> all unpaid invoices amounts of the costumer. what i need to be done in the code as the following: code must be in "RN" 1- open 100001.xlsx depending on a cell value Ex: "100001" in A1 2-find the invoice numbers that are in RN.Sheet1 "B:B" in 100001.Sheet1 "A:A" 3- if any invoice number is not exited in 100001.Sheet1 "A:A" --> cancel and give MSG "check the Invoice Numbers" 4-if all the invoice numbers was found in 100001.Sheet1 "A:A" or available --> Sum same invoices amounts that have been founded and compare it with the receipt amount in RN.Sheet1 "D1". 5- if the amount is the same "equals" then delete the entire row of the Founded invoices numbers in 100001.Sheet1 please help me as soon as possible. thanks and regards, File 1.zip

ممكن حدا يساعدني يا جماعة الخير

Workbook1 is RN " receipt Note " Workbook2 is CSN " Costumer Services Number " RN.Sheet1 column "B" --> invoice numbers in the receipt. Rn.sheet1 Cell "D1" --> the receipt amount. CSN.Sheet1 Column "A" --> all unpaid invoices numbers of the costumer. CSN.Sheet1 Column "C" --> all unpaid invoices amounts of the costumer. what i need to be done in the code as the following: code must be in "RN" 1- open CSN.xlsx depending on a cell value Ex: "CSN" in A1 2-find the invoice numbers that are in RN.Sheet1 "B:B" in CSN.Sheet1 "A:A" 3- if any invoice number is not exited in CSN.Sheet1 "A:A" --> cancel and giev MSG "check the Invoice Numbers" 4-if all the invoice numbers was found in CSN.Sheet1 "A:A" or available --> Sum same invoices amounts that have been founded and compare it with the receipt amount in RN.Sheet1 "D1". 5- if the amount is the same "equals" then delete the entire row of the Founded invoices numbers in CSN.Sheet1 please help me as soon as possible. thanks and regards,

جربت اخي الكريم بس ما نفع لو سمحت ساعدي اكثر جربت عدل باكود كمان ما نفع كالتالي: Private Sub CommandButton1_Click() Dim WB1, WB2 As Workbook Dim WS1, WS2 As Worksheet CSN = Cells(1, 1) Set WB1 = ThisWorkbook Set WB2 = Workbooks.Open("C:\Users\Basel\Desktop\" & CSN & "") Set WS1 = WB1.Worksheets("sheet1") Set WS2 = WB2.Worksheets("Sheet1") LastRow1 = WB1.WS1.Cells(Rows.Count, 2).End(xlUp).Row lastrow2 = WB2.WS2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row For i = LastRow1 To 1 Step -1 For r = lastrow2 To 1 Step -1 If WB1.WS1.Cells(i, 2).Value = WB2.WS2.Cells(r, 1).Value Then WB2.WS2.Cells(i, 1).EntireRow.Delete End If Next Next End Sub شاكر افضالك اخي الغالي

السلام عليكم, اريد طلب مساعدة في الكود .... شرح طلبي : 1- اريد كود لمسح صف في ملف اكسل اعتمادا علي تواجد نفس القيمة في ملف اكسل اخر مثال : workbook 1 A1 = اسم الملف المراد فتحه وحذف الصف منه B:B = ارقام الفواتير المراد حذفها من الملف الاخر workbook 2 A:A= ارقام فواتير عمل الكود: فتح الملف workbook 2 ثم البحث عن ارقام الفواتير الموجودة في B:B workbook 1 ثم تحديد الخلايا التى تحتوي على نفس ارقام الفواتير في الملف workbook 2 A:A ثم حذف الصف كامل. جربت صمم الكود التالي ولكن عملية الحذف لم تتم ارجو المساعدة. Private Sub CommandButton1_Click() Dim WB1, WB2 As Workbook Dim WS1, WS2 As Worksheet Set WB1 = ThisWorkbook CSN = Cells(1, 1) Set WB2 = Workbooks.Open("C:\Users\Basel\Desktop\" & CSN & "") Set WS1 = WB1.Worksheets("sheet1") Set WS2 = WB2.Worksheets("Sheet1") LastRow1 = WB1.WS1.Cells(Rows.Count, 1).End(xlUp).Offset(1, ).Row LastRow2 = WB2.WS2.Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To 20 If WB1.WS1.Cells(i, 2).Value = WB2.WS2.Cells(i, 1).Value Then WB2.WS2.Cells(i, 1).EntireRow.Delete End If Next i End Sub File.zip