پرسش نشان دادن چند سلول حاوی متن در یک سلول با شرط خاص

[علی زنجان]

با سلام و خسته نباشید خدمت یکایک دوستان .
فرض کنیم چند ستون داریم ک از مقادیری مثل قطعات خودرو تو اونا درج شده.حالا من میخوام هم ردیف این ستون ها ستونی اضافه کنم ک توی اون شرطی بنویسم مثل (ندارد).ک قطعه هم ردیف اون مشخص بشه .در نهایت میخوام همه اون قطعاتی ک با شرط ندارد مشخص کردم تو یک سلول نوشته بشه ..

[shamsololama]

با درود فراوان به دوستان دوست داشتنی
با این کد میشه انجامش داد

Dim c As Range
Dim m
For Each c In Range("A2:A1000")
    If c.Offset(0, 1).Value = "äÏÇÑÏ" Then
        m = m & " " & c.Value
    End If
Next
Range("D1").Value = m

[علی زنجان]

سلام و عرض ادب و تشکر از اینکه وقت گرانبهاتونو در اختیار ما قرار میدید...... واقعا ممنون چون یک مشکل اساسی برام ممنون میشم بیشتر کمکم کنید ک حلش کنم ...فایل اکسل و ضمیمه میکنم اگر مقدور باشه براتون دستور تو همون فایل بنویسید ...