نسخ قيم الفواتير بشرط

[ابو جودى]

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

فى البداية أشكر جميع القائمين على الموقع  و جزاهم الله خيراً كثيرا على مساعداتهم لجميع الاعضاء

و كنت احتاج مساعدة فى نسخ الفواتير من جدول الى اخر حسب الملف المرفق

[ibn_egypt]

اخى الفاضل

 

تفضل الملف المرفق لربما به طلبك

 

تحياتي  

copy invoices.rar

[ابو جودى]

ابن مصر الغالى

فعلاً هو المطلوب

دائماً مبدع

جزاك الله خيراً و زادك علماً

[ياسر خليل أبو البراء]

إثراءً للموضوع هذا حل آخر بالأكواد

Sub Test()
    Dim Cell As Range, Rng As Range
    On Error Resume Next
    Set Rng = Sheet1.Range("B2:E" & Sheet1.Cells(Rows.Count, 2).End(xlUp).Row)
    For Each Cell In Sheet2.Range("E2:E" & Sheet2.Cells(Rows.Count, 2).End(xlUp).Row)
        Cell.Value = Application.WorksheetFunction.VLookup(Cell.Offset(0, -3), Rng, 4, False)
    Next Cell
End Sub

[محمد الريفى]

السلام عليكم

بعد اذن اخى الحبيب بن مصر

لاثراء الموضوع

حل اخر بالمعادلات

تقبلو منى تحياتى

copy invoices.rar

[ابو جودى]

الاستاذ/ ابن مصر

و الاستاذ/ ياسر خليل

و الاستاذ/ محمد الريفى

اشكركم على مساعدتكم و جزاكم الله خيرا

[ابو جودى]

السلام عليكم

بعد التجربة

أرجو عدم نسخ القيم من شيت1 الا شيت2 فى حالة وجود قيمة فى شيت 2

[ibn_egypt]

السلام عليكم

بعد التجربة

أرجو عدم نسخ القيم من شيت1 الا شيت2 فى حالة وجود قيمة فى شيت 2

 

اخى الفاضل

 

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

 

تحياتي  

copy invoices.rar

[ابو جودى]

السلام عليكم

و صلى الله على نبينا محمد و على اله و صحبه و سلم

أخى الكريم

رائع جداً

بارك الله فيك و جزاك خيرا