[حل شده] پیدا کردن و لیست کردن داده ها

[ali.b]

سلام خدمت دوستان
با توجه به فایل نمونه دنبال کدی هستم که شماره عنوان مورد نظر رو در سلول مقابل لیست کنه
مثلا اگه عنوان a رو انتخاب کردم تمام شماره های وابسته به a لیست بشه
ممنونم

[Amir Ghasemiyan]

سلام خدمت دوستان
با توجه به فایل نمونه دنبال کدی هستم که شماره عنوان مورد نظر رو در سلول مقابل لیست کنه
مثلا اگه عنوان a رو انتخاب کردم تمام شماره های وابسته به a لیست بشه
ممنونم

سلام دوست عزيز

با اين چيزي كه من از سوال شما فهميدم احساس ميكنم بايد مدرك VBA رو ازت پس بگيريم

خدمت شما :

Sub find_category()
Dim cel As Range, cel2 As Range
Dim cat As String
sep = "*"
For Each cel In Range("F1:F4")
    For Each cel2 In Range("B2:B10")
        If cel2.Value = cel.Value Then cat = cat & sep & cel2.Offset(, -1).Value
    Next cel2
    cel.Offset(, 1).Value = Right(cat, Len(cat) - Len(sep))
    cat = ""
Next cel
End Sub

[ali.b]

سلام دوست عزيز

با اين چيزي كه من از سوال شما فهميدم احساس ميكنم بايد مدرك VBA رو ازت پس بگيريم

خدمت شما :

Sub find_category()
Dim cel As Range, cel2 As Range
Dim cat As String
sep = "*"
For Each cel In Range("F1:F4")
    For Each cel2 In Range("B2:B10")
        If cel2.Value = cel.Value Then cat = cat & sep & cel2.Offset(, -1).Value
    Next cel2
    cel.Offset(, 1).Value = Right(cat, Len(cat) - Len(sep))
    cat = ""
Next cel
End Sub

سلام قابل نداره
به خاطر فشار کاری و استرس بود . دلیلشو که میدونی،

[Amir Ghasemiyan]

سلام قابل نداره
به خاطر فشار کاری و استرس بود . دلیلشو که میدونی،

آره شما عذرت موجه

حل شده نكردن تاپيك رو هم ميذارم به حساب همون استرسه