Jump to content
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

03 Special Member
  • Content Count

    387
  • Joined

  • Last visited

Community Reputation

169 Excellent

2 Followers

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

  • Rank
    Name

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    eng

Recent Profile Visitors

1,445 profile views
  1. لا ادري إذا كان هذا قصدك تصنيف حسب الوصف new.xlsm
  2. ماذ عن هذا 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
  3. شكراً لك أخ 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
  4. عفواً مع العلم (لخخخلث 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
  5. حسب ما فهمت مع العلم (لخخخلث google غشاخخ yahoo) هماك خطأ في جدول التصنيفات تصنيف الوصف.xlsm
  6. الأستاذ Ali Mohamed Ali أكثر من رائع بوركك لله
  7. جرب هذا أتمنى أن يعجبك معادلة جمع2.xlsm
  8. بعد اذن الاستاذ بن علية حاجي هذا حل آخر بالكود مرفق شيت العمل.xlsm
  9. صباح الخير ربما =IF(VLOOKUP(A5,'الخزينة وارد صادر'!A1:Z27,16,FALSE)=0,VLOOKUP(A5,'الخزينة وارد صادر'!A1:Z27,19,FALSE),VLOOKUP(A5,'الخزينة وارد صادر'!A1:Z27,16,FALSE))
  10. حسب فهمي للموضوع: فقط اضغط على المربع الأزرق جمع خلايا.xlsm
×
×
  • Create New...