RE: $$Excel-Macros$$ Replace letters with numbers

2012-03-19 Thread Rajan_Verma
=CODE(UPPER(A1))-64 A1 contains your letter Rajan From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Maries Sent: Mar/Mon/2012 01:46 To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ Replace letters with numbers Hi, Try it

RE: $$Excel-Macros$$ Replace letters with numbers

2012-03-19 Thread Rajan_Verma
=CODE(UPPER(A1))-64 A1 contains your letter Rajan From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Maries Sent: Mar/Mon/2012 01:46 To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ Replace letters with numbers Hi, Try it

Re: $$Excel-Macros$$ Replace letters with numbers

2012-03-19 Thread Maries
Hi, Also try below code for your quary, Sub numeric() Dim MyCell As Range For Each MyCell In Selection.Cells MyCell.Value = Asc(UCase(MyCell)) - 64 Next End Sub Code On Mon, Mar 19, 2012 at 12:15 PM, Maries wrote: > Hi, > > Try it, > > > =CONCATENATE(IF(LEN(A1)>=1,CO

Re: $$Excel-Macros$$ Replace letters with numbers

2012-03-19 Thread Maries
Hi, Try it, =CONCATENATE(IF(LEN(A1)>=1,CODE(LEFT(A1,1))-64,""),IF(LEN(A1)>=2,CODE(MID(A1,2,1))-64,""),IF(LEN(A1)>=3,CODE(MID(A1,3,1))-64,""),IF(LEN(A1)>=4,CODE(MID(A1,4,1))-64,""),IF(LEN(A1)>=5,CODE(MID(A1,5,1))-64,""),IF(LEN(A1)>=6,CODE(MID(A1,6,1))-64,""),IF(LEN(A1)>=7,CODE(MID(A1,7,1))-64,""),

$$Excel-Macros$$ Replace letters with numbers

2012-03-19 Thread Brian
I am using Excel 2007 I have a list of single letters A to F in column H2 to H26 These letters are are mixed but only one capital letter per cell I want to go to this list and replace each letter by its numerical value. So A becomes 1, B becomes 2, C becomes 3 and so on to the letter F Can you p