How select rows on multiple cells determined by textbox find

[Releeuw46]

Hi All,

I could use some help with getting the VBA on the following.

I have a large range of data, blanks, and multiple duplicate cell values.
I need to find (select) matching cell or cells , and then select the rows of those found cells. Not highlighted, just select.

My search value is in ( "B2" ), Partial text search.

I already got this but cat get the rows s;ected

Private Sub CommandButton1_Click()

Dim Partial_Text As String
Dim Myrange As Range
Partial_Text = Worksheets("2022").Cells(2, 2).Value

Set Myrange = Worksheets("2022").Range("B3:AC500")
For Each cell In Myrange

If InStr(LCase(cell.Value), LCase(Partial_Text)) <> 0 Then
ActiveCell.EntireRow.Select ('Here it fails...)

End If
Next

End Sub

Thanks,
René

 

[bebo021999]

Option Explicit
Private Sub CommandButton1_Click()
Dim i&, j&
Dim Partial_Text As String
Dim Myrange, u As Range
With Worksheets("2022")
    Partial_Text = .Cells(2, 2).Value
    Myrange = Worksheets("2022").Range("B3:AC500").Value
    On Error Resume Next
    For i = 1 To UBound(Myrange)
        For j = 1 To UBound(Myrange, 2)
            If LCase(Myrange(i, j)) Like "*" & LCase(Partial_Text) & "*" Then
                If u Is Nothing Then
                    Set u = Rows(i + 2)
                Else
                    Set u = Union(u, Rows(i + 2))
                End If
                Exit For
            End If
        Next
    Next
    u.Select
End With
End Sub

 

[Releeuw46]

Option Explicit
Private Sub CommandButton1_Click()
Dim i&, j&
Dim Partial_Text As String
Dim Myrange, u As Range
With Worksheets("2022")
    Partial_Text = .Cells(2, 2).Value
    Myrange = Worksheets("2022").Range("B3:AC500").Value
    On Error Resume Next
    For i = 1 To UBound(Myrange)
        For j = 1 To UBound(Myrange, 2)
            If LCase(Myrange(i, j)) Like "*" & LCase(Partial_Text) & "*" Then
                If u Is Nothing Then
                    Set u = Rows(i + 2)
                Else
                    Set u = Union(u, Rows(i + 2))
                End If
                Exit For
            End If
        Next
    Next
    u.Select
End With
End Sub

Works like a dream. Thanks