Hi all,
Currently I've got the following code to:
Set the "progproject" named range to "1level" from any of the other 5 possible values
Set the a lookup value to look in column U from either V-Z. (I had to put in a correction as it was changing the actual Vlookup function).
This is then repeated for changing it to progproject2 to progproject6 and column V to Z - a lot of code!
Is there any way I can vba it to replace a selection of different values with a defined replacement value?
Cheers
Luke
Currently I've got the following code to:
Set the "progproject" named range to "1level" from any of the other 5 possible values
Set the a lookup value to look in column U from either V-Z. (I had to put in a correction as it was changing the actual Vlookup function).
This is then repeated for changing it to progproject2 to progproject6 and column V to Z - a lot of code!
Is there any way I can vba it to replace a selection of different values with a defined replacement value?
Cheers
Luke
Code:
Sub classproject1()
Sheets("Class Analysis").Range("B:P").Replace What:="progproject2level", Replacement:="progproject1level"
Sheets("Class Analysis").Range("B:P").Replace What:="progproject3level", Replacement:="progproject1level"
Sheets("Class Analysis").Range("B:P").Replace What:="progproject4level", Replacement:="progproject1level"
Sheets("Class Analysis").Range("B:P").Replace What:="progproject5level", Replacement:="progproject1level"
Sheets("Class Analysis").Range("B:P").Replace What:="progproject6level", Replacement:="progproject1level"
Sheets("Class Analysis").Range("AB:AB").Replace What:="IF(V", Replacement:="IF(U"
Sheets("Class Analysis").Range("AB:AB").Replace What:="IF(W", Replacement:="IF(U"
Sheets("Class Analysis").Range("AB:AB").Replace What:="IF(X", Replacement:="IF(U"
Sheets("Class Analysis").Range("AB:AB").Replace What:="IF(Y", Replacement:="IF(U"
Sheets("Class Analysis").Range("AB:AB").Replace What:="IF(Z", Replacement:="IF(U"
Sheets("Class Analysis").Range("AB:AB").Replace What:="IF(ULOOKUP", Replacement:="IF(VLOOKUP"
End Sub