پرسش ماکرو جستجو و انتخاب تمام سلول های حاوی یک کلمه خاص

[alighsm]

سلام به همه دوستان
ماکرویی میخوام که از یک محدوده همه سلول هایی که دارای یک کلمه خاصی باشه رو انتخاب کنه یعنی همه سلول هایی که یک کلمه خاص مثل حسین نوشته رو در حالت انتخاب قرار بده
کسی میتونه راهنماییم کنه ممنونم

[iranweld]

با سلام

از ماکروی ذیل استفاده کنید

بجای hasan در خط xx = InStr(1, cell, "hasan") نام مورد نظر خود را وارد کنید

Sub Macro1()

Dim list1 As New Collection

For Each cell In ActiveSheet.UsedRange

xx = InStr(1, cell, "hasan")

If xx > 0 Then

list1.Add cell.Address

End If

Next

For j = 1 To list1.Count


If Len(yy) = 0 Then

yy = list1.Item(j)

Else

yy = yy & "," & list1.Item(j)

End If

Next

    Range(yy).Select
    
End Sub