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

[علی زنجان]

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

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[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

[علی زنجان]

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