Partial Text Strings

[fari1]

hi,
i'm trying to make it work a code, that may find a text string starting with Consolidated out of the whole sheet and with match case True i-e Consolidated

i've a code that finds a text string starting with certain text, but it is not working on my data, as i need to find every cell in the sheet and match case also.any help over it would be greatly appreciated

Public Sub FindData()
Dim lLastRow As Long
With Sheets("Sheet2")
lLastRow = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To lLastRow
        If InStr(1, .Range("A" & i).Value, "Consolidated") = 1 Then
        .Rows(i).Copy Destination:=Sheets("sheet3").Range("A" & Rows.Count).End(xlUp)(2)
        End If
    Next i
    Application.CutCopyMode = False
End With
End Sub

 

[VoG]

Maybe

Public Sub FindData()
Dim lLastRow As Long
With Sheets("Sheet2")
    lLastRow = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To lLastRow
        If .Range("A" & i).Value Like "Consolidated*" Then
            .Rows(i).Copy Destination:=Sheets("sheet3").Range("A" & Rows.Count).End(xlUp)(2)
        End If
    Next i
    Application.CutCopyMode = False
End With
End Sub

 

[fari1]

It worked, thanks vog