اعتقد كوني عضو جديد لا يمكنني إرفاق ملف !
حيث تظهر رسالة :
findkey.xlsm
غير مسموح برفع هذا النوع من الملفات
لكن الكود هو كالتالي :
Sub FindX()
lastR1 = Sheets(1).Range("a50000").End(xlUp).Row
Key = Sheets(1).Range("e2")
For Each news In Sheets(1).Range("a2:i" & lastR1)
findkey = InStr(news, Key)
If findkey > 0 Then
news.Offset(0, 1) = findkey
End If
Next
End Sub
بحيث العامود الأول يحتوي على الأخبار التي بها الكلمات " انعقدت الجمعية العمومية " ، " توقيع عقد مع شركة "
والخانة e2 بها كلمة "عقد"
والمطلوب إيجاد نتيجة للجملة الثانية فقط
مع جزيل الشكر