ادراج ارقام الفواتير من شيت امام الاصناف فى شيت اخر

[hesham1001]

invoice items.xlsmاخوانى الاعزاء لدى مشكلة فى الشيت المرفق 

عند ادراج ارقام الفواتير من الشيت رقم 2 للاصناف الموجودة فى الشيت رقم 1 يتم ادراج ارقام الفواتير ولكن المتكرر بيعها يدرج رقم فاتورة واحدة ويكرره اما الصنف ولا يدرج الرقم الصحيحز

برجاء المساعدة فى تلك المشكلة

invoice items.xlsm

[سليم حاصبيا]

يمكن انك تريد هذا الشيء

Option Explicit

Sub Yemken_Matloub()
  Dim S1 As Worksheet
  Dim S2 As Worksheet
  Dim Db As Object, Dc As Object
  Dim lr%, i%, m%, Cont%
  Dim ar

  Set S1 = Sheets("Sheet1")
  Set S2 = Sheets("Sheet2")
  Set Db = CreateObject("Scripting.Dictionary")
  Set Dc = CreateObject("Scripting.Dictionary")

lr = S2.Cells(Rows.Count, 1).End(3).Row
If lr = 1 Then Exit Sub
Cont = S1.Range("A1").CurrentRegion.Rows.Count
If Cont > 1 Then
  S1.Range("A1").CurrentRegion. _
  Offset(1).Resize(Cont - 1).Clear
End If
i = 2
Do Until i = lr + 1
  Db(S2.Cells(i, 1).Value) = Db(S2.Cells(i, 1).Value) + _
  IIf(IsNumeric(S2.Cells(i, 2).Value), S2.Cells(i, 2).Value, 0)
   
   If Not Dc.Exists(S2.Cells(i, 1).Value) Then
    Dc(S2.Cells(i, 1).Value) = S2.Cells(i, 3).Value
   Else
     Dc(S2.Cells(i, 1).Value) = Dc(S2.Cells(i, 1).Value) & "*" _
     & S2.Cells(i, 3).Value
   End If
  i = i + 1
Loop

  m = 2
For i = 0 To Db.Count - 1

  S1.Cells(m, 1) = Db.keys()(i)
  S1.Cells(m, 2) = Db.items()(i)
  ar = Split(Dc.items()(i), "*")
  S1.Cells(m, 3).Resize(, UBound(ar) + 1) = ar
  m = m + 1
 Next
 Cont = S1.Range("a1").CurrentRegion.Rows.Count
 If Cont = 1 Then GoTo Bay_Bay

With S1.Range("A1").CurrentRegion. _
  Offset(1).Resize(Cont - 1).SpecialCells(2, 23)
  .Borders.LineStyle = 1
  .InsertIndent 1
  .Font.Bold = True
  .Font.Size = 16
  .Interior.ColorIndex = 35
  
End With
Bay_Bay:
  Set S1 = Nothing:  Set S2 = Nothing
  Set Db = Nothing:  Set Dc = Nothing

End Sub

الملف مرفق

Hisham_Invpice.xlsm

[hesham1001]

اساتذتى الكرام

اخى الكريم الاستاذ سليم لك جزيل الشكر والامتنان على سرعة تفاعلك ومجهودك.

الملف الذى ارفقته فى منتهى الروعة

لكن النتائج مختلفة 

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

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

[سليم حاصبيا]

ارفق ملف بسيط فيه النتائج التي تتوقعها

[hesham1001]

شاكر لاهتمام حضرتك

 

the required result.xlsx

[سليم حاصبيا]

من اين جئت بهذه الارقام

[hesham1001]

موجودة فى شيت رقم ٢

ده اللى باوصفه لحضرتك الصنف الواحد متكرر بيعه اكتر من مرة بكميات مختلفة وكل مرة له رقم فاتورة مختلف عند البحث بدالة vlookup كانت النتيجة انه ظهر رقم فاتورة واحدة فقط

[سليم حاصبيا]

Try This New File

Salim_book.xlsm

[hesham1001]

اذا امكنك التواصل معى واتس اب حتى اتمكن من تسجيل رسالة صوتية لك وبعد يتم الحل هنا على الموقع لتعم الفائدة على الجميع .

هذا رقمى 00966538754827

 

[أحمد يوسف]

  hesham1001

أين انت من كل هذه الإجابات الممتازة؟!!!

أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!! 💙