If ISNUMERIC then

[olympiac]

If ISNUMERIC then
I need to automate by code a manual work in excel.
I need a code that would give me the following result

If the value in Column C is Numeric then for each value add "000000000000" at the begining.
If the value in Column C is not Numeric then nothing
I started the following code by I am not sure how to complete it

Dim R As Range
Set R = Intersect(Range("C1").EntireColumn, ActiveSheet.UsedRange)
R.Value = 
[\Code]
 
Can you help please?

 

[Andrew Poulsom]

Can't you use a number format with leading zeroes?

 

[olympiac]

How can I establish that there must be 12 zeros in front of each number?

 

[Andrew Poulsom]

Why does there need to be 12 zeroes before each number? The normal requirement is a fixed number of digits.

 

[olympiac]

The value with the 12 Zeroz in the spreadsheet will be used by someone else in the team for a Vlookup. If I do not add the zeros the Vlookup will not work unless you have got a solution for that.

 

[Andrew Poulsom]

So why don't you just adjust the VLOOKUP formula?

 

[olympiac]

If a Vlookup 0000000000118580 with 118580 I get #N/A
My formula is =VLOOKUP(H11,E11,1,FALSE).
What am I missing here?

 

[Andrew Poulsom]

That's only 10 leading zeroes. If it were 12 this would work:

=VLOOKUP(REPT("0",12)&H11,E11,1,FALSE)

 

[olympiac]

Simple and perfect. Thanks for your time.