Multiple condition formatting

[Kb24]

Hi.. got a simple question here...
I need to change the cells in a column but with multiple conditions e.g :

Please Login or Register  to view this content.

Into

Please Login or Register  to view this content.

Or in select case function it would look like this (sort of) :

Please Login or Register  to view this content.

Ive been trying to do this but can;t seem to get it to work ..

Please Login or Register  to view this content.

Could anyone fix it for me? It should be very simple for you guys...
thanks.

[JBeaucaire]

Try this:

Please Login or Register  to view this content.

[Drew Talbot]

Hi Kb24,

Try this, if I understand you the idea is your trying to switch around two numbers based on the value of the first...

The example will switch all number 3s in the range with the number 6, expand upon this yourself by copying the 'case' and the line below it replacing the values to find and replace.

Sub ChangeValues()

Dim Beta As Range
Dim cell As Range

Set Beta = Range("A1:A7")

    For Each cell In Beta

    Select Case cell.Value

              Case 3

              cell.Value = 6

    End Select

    Next

End Sub 

Drew

[royUK]

Your If statement is looking for "004", etc. I would think that the zeros don't exist, they are put there by Formatting so nothing would be found.

The Select case is much neater

[Kb24]

Thanks!
Just one more thing :

How do we state that if the condition is not met,
the specific cell remain unchanged?

Please Login or Register  to view this content.

e.g if there is 67 in column A1, then the cell remains as 67 because 67 is not in the case-select conditions

Please Login or Register  to view this content.

Please Login or Register  to view this content.

result

Please Login or Register  to view this content.

[Drew Talbot]

The case else stament is not needed if you do not wish the statement to do something in the event of a match not being found,

However if you wish to tack it on just to make the select statement look complete just leaving it as;

Case 3: cell = "'0006"
Case else:

[Kb24]

Thanks alot!
This forum always deliver :D