محي الدين ابو البشر

لا ادري إذا كان هذا قصدك تصنيف حسب الوصف new.xlsm

ماذ عن هذا Sub test2() Dim lr, i Dim fin As Object Dim x As Variant With Sheet1 lr = .Cells(Rows.Count, 2).End(xlUp).Row For i = 2 To lr x = Split(.Cells(i, 2), " ") Set fin = Sheet2.Range("b2:d20").Find(x(4)) If fin <> "" Then .Cells(i, 3) = Sheet2.Cells(1, fin.Column) x(4) = Sheet2.Cells(1, fin.Column) x = Join(x, " ") .Cells(i, 5) = x Else .Cells(i, 5) = Join(x, " ") End If Next End With End Sub

?? تصنيف الوصف.xlsm

شكراً لك أخ roshet11 على الدعاء الطيب ولك مثله أضعافاً مضاعفة أيضاً يمكن أن يكون هكذا Sub test() With Sheet1 lr = .Cells(Rows.Count, 2).End(xlUp).Row For i = 2 To lr x = Split(.Cells(i, 2), " ") Set fin = Sheet2.Range("b2:d20").Find(x(4)) .Cells(i, 3) = Sheet2.Cells(1, fin.Column) x(4) = Sheet2.Cells(1, fin.Column) x = Join(x, " ") .Cells(i, 6) = x Next End With End Sub

عفواً مع العلم (لخخخلث google غشاخخ yahoo) هماك خطأ في جدول البيان احتياطاً Sub test() With Sheet1 lr = .Cells(Rows.Count, 2).End(xlUp).Row For i = 2 To lr x = Split(.Cells(i, 2), " ") Set fin = Sheet2.Range("b2:d20").Find(x(4)) .Cells(i, 3) = Sheet2.Cells(1, fin.Column) Next End With End Sub تصنيف الوصف.xlsm

حسب ما فهمت مع العلم (لخخخلث google غشاخخ yahoo) هماك خطأ في جدول التصنيفات تصنيف الوصف.xlsm

وهكذا؟ TESTE55 With code (2).xlsm

يعمل جيدا جرب test 2.xlsm

من بعد أذنك استاذ سليم طريقة أخرى TESTE55 With code.xlsm

الأستاذ Ali Mohamed Ali أكثر من رائع بوركك لله

جرب هذا أتمنى أن يعجبك معادلة جمع2.xlsm

بعد اذن الاستاذ بن علية حاجي هذا حل آخر بالكود مرفق شيت العمل.xlsm

صباح الخير ربما =IF(VLOOKUP(A5,'الخزينة وارد صادر'!A1:Z27,16,FALSE)=0,VLOOKUP(A5,'الخزينة وارد صادر'!A1:Z27,19,FALSE),VLOOKUP(A5,'الخزينة وارد صادر'!A1:Z27,16,FALSE))

حسب فهمي للموضوع: فقط اضغط على المربع الأزرق جمع خلايا.xlsm

region and language additional settings list separator