Search for specific word and offset and change value.

[Hyflex]

Hey guys,

I'm pretty sure this is fairly easy, I have a working version but it can go wrong with my data so I'm looking for a version what wont go wrong.

I need a macro to look at the range: Range("S1:S" & LastRowA)
Every time it finds the text "CODE5" it needs to do the following:

Please Login or Register  to view this content.

[111StepsAhead]

Please Login or Register  to view this content.

Will the above work?

edit: Also if you want your .Offset values to work you have to start at S4.

.Offset( # = row, # = column)

So .Offset(-3, 2) changes the active cell -3 rows and +2 columns. That's why your code can't work for cell S1, S2, and S3.

[Hyflex]

I totally forgot about using it in a for loop.

I made a few minor changes and it works perfectly. My data starts on row 15 so x has been changed to 15 and also lastrowa has already been defined so I removed that part.

I also added an x = x + 4 at the end of the changes to help speed it up and it now works splendidly.

Please Login or Register  to view this content.

[111StepsAhead]

If you need to check every 4 values consider using the step command with the for loop. You can read about it here...

http://www.ozgrid.com/VBA/for-loop-step.htm

[Hyflex]

It's not four, I just know when it finds one the next one won't be found in the next 4 rows

[snb]

or

Please Login or Register  to view this content.