Finding Text in a String

[vicedo]

Guyz please, I need help in tweaking this code

Sub Find_CIB()
Dim rngRow As Range, rng2Cut As Range
Dim what As String
what = "CIB-OA" & "Scrubing Account"
Do
Set rng = ActiveSheet.UsedRange.Find(what)
If rng Is Nothing Then
Exit Do
Else
Rows(rng.Row).Delete
End If
Loop
End Sub

Rather than deleting the entire the cell, move the active cell three steps to the right and one step up. In other words, offset active cell (-1, 3)

 

[Rick Rothstein]

Guyz please, I need help in tweaking this code

Sub Find_CIB()
Dim rngRow As Range, rng2Cut As Range
Dim what As String
what = "CIB-OA" & "Scrubing Account"
Do
Set rng = ActiveSheet.UsedRange.Find(what)
If rng Is Nothing Then
Exit Do
Else
Rows(rng.Row).Delete
End If
Loop
End Sub

Rather than deleting the entire the cell, move the active cell three steps to the right and one step up. In other words, offset active cell (-1, 3)

Is the text you want to find a constant value or does the cell contain a formula that is displaying the text you want to find?

 

[vicedo]

The cell contains a text and CIB-OA is part of the text. So am using CIB-OA as a keyword to search. Also Scrubing Account is another text and no keyword for that. All in the same Column A

 

[Rick Rothstein]

The cell contains a text and CIB-OA is part of the text. So am using CIB-OA as a keyword to search. Also Scrubing Account is another text and no keyword for that. All in the same Column A

So you are searching for two different text constants then, correct?

When you say "no keyword for that", to you mean the words "Scrubbing Account" is the only text in the cell?

 

[vicedo]

For Scrubbing Account "YES"

and for CIB-OA, I have "CIB-OA First Ban", in a cell
"CIB-OA Zenith Ban" in another cell. So all cells beginning with CIB-OA should offset by (-1, 3), same for scrubbing account