Find all cells with value in column and replace !

Hi

Is it possible with VBA to find all cells in a column with a value and replace it with a number (1)


I have a column that looks like this:

Column L
1 "Blank"
2 (1-0
3 "Blank"
4 "Blank"
5 "Blank"
6 2-0)
7 1-0
8 "Blank"
9 "Blank"
10 3-0

I want to search the column for every row that contains a value and replace it by 1 (ignoring the blank rows)
like this:

Column L
1 "Blank"
2 1
3 "Blank"
4 "Blank"
5 "Blank"
6 1
7 1
8 "Blank"
9 "Blank"
10 1

Is this possible ?

Best regards

Petter

just select the desired range, press ctrl+h and enter * in the "find what" field and put 1 in the replace with field. Then proceed to "replace all" and voila - your task is done without vba.

One way:

Please Login or Register  to view this content.

Regards, TMS

And the code for bishonen's approach is:

Please Login or Register  to view this content.

Regards, TMS

You're welcome. Thanks for the rep.

that was pretty easy

When you know how ...