$$Excel-Macros$$ Need help

2011-12-26 Thread rekha siri
hi experts, please advise the formula to convert the alphabets to numbers. for example a =1 b= 2 c=3 acb =132 like this for each alphabet it should convert text to number. Thanks for your help Regards, Rekha -- FORUM RULES (934+ members already BANNED for violation) 1) Use concise, accurate

RE: $$Excel-Macros$$ last cell by Formula

2011-12-26 Thread Rajan_Verma
Hi See the attached File Rajan From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of hanumant shinde Sent: 26 December 2011 02:15 To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ last cell by Formula Thanks a lot rajan but i didnt unders

RE: $$Excel-Macros$$ &&Excel Macro&& How to retrive selected values based on another worksheet

2011-12-26 Thread Rajan_Verma
I think it's a blank file.. please send it again.. From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of SWADHEEN JAIN Sent: 26 December 2011 12:56 To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ &&Excel Macro&& How to retrive selected values ba

RE: $$Excel-Macros$$ Disable delete

2011-12-26 Thread Rajan_Verma
Hi You can protect your Workbook -Original Message- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Prakash Gusain Sent: 26 December 2011 11:24 To: MS EXCEL AND VBA MACROS Subject: $$Excel-Macros$$ Disable delete How can I disable the delete of an e

RE: $$Excel-Macros$$ Backup file on every save

2011-12-26 Thread Rajan_Verma
Try This : Function GiveNumeric(rngVal As Range) As String Dim intIAs Integer For intI = 1 To Len(rngVal.Value) If Asc(UCase(Mid(rngVal.Value, intI, 1))) > 64 And Asc(UCase(Mid(rngVal.Value, intI, 1))) < 91 Then GiveNumeric = GiveNumeric & Asc(UCase(Mid(rngVal.Value, intI,

Re: $$Excel-Macros$$ last cell by Formula

2011-12-26 Thread dguillett1
To find the last row in a range, array enter this formula (ctrl +shift+enter) to get 21 =MAX(ROW(1:50)*(A1:H50<>"")) Don Guillett SalesAid Software dguille...@gmail.com From: Rajan_Verma Sent: Monday, December 26, 2011 6:35 AM To: excel-macros@googlegroups.com Subject: RE: $$Excel-Macr

Re: $$Excel-Macros$$ Backup file on every save

2011-12-26 Thread Prakash Gusain
Thanks Siti your method worked Thanks Rajan. for your inputs how are your buddy? On Dec 26, 5:38 pm, "Rajan_Verma" wrote: > Try This : > > Function GiveNumeric(rngVal As Range) As String >     Dim intI    As Integer >     For intI = 1 To Len(rngVal.Value) >     If Asc(UCase(Mid(rngVal.Val

RE: $$Excel-Macros$$ Need help

2011-12-26 Thread Asa Rossoff
Hi Rekha, Here's one method. It will return 1-26 for A-Z, whether upper or lower case. If any other character, it will give an error: =FIND(UPPER(A1),"ABCDEFGHIJKLMNOPQRSTUVWXYZ") Here's another method, it will return a number for any character. If the charcater is A-Z (upper or lower case

RE: $$Excel-Macros$$ Need help

2011-12-26 Thread Asa Rossoff
Rekha, Sorry, I missed that you wanted to translate all characters to numeric equivalents as in your example. To do that in a way that will work for a string of any number of characters, I think you need to use a UDF/macro. The worksheet formula approach that comes to mind would involve an arr

Re: $$Excel-Macros$$ Need help

2011-12-26 Thread Lakshman Prasad
Hello AsaThis     =FIND(UPPER(A1),"ABCDEFGHIJKLMNOPQRSTUVWXYZ")and this is ok   =CODE(UPPER(A1))-64for under result a =1 b= 2 c=3 but what about for this   acb =132     Regards LAKSHMAN From: Asa Rossoff To: excel-macros@googlegroups.com Sent: Tuesday, 2

Re: $$Excel-Macros$$ Need help

2011-12-26 Thread Maries
*Try this formula...* ** =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

Re: $$Excel-Macros$$ Need help

2011-12-26 Thread rekha siri
it is resulting wrong result please help for example i gave word abc it should come 123 but it is coming like this 333435 On Tue, Dec 27, 2011 at 11:00 AM, Maries wrote: > *Try this formula...* > ** > > > =CONCATENATE(IF(LEN(A1)>=1,CODE(LEFT(A1,1))-64,""),IF(LEN(A1)>=2,CODE(MID(A1,2,1))-64,"")

$$Excel-Macros$$ GUIDANCE REGARDING EXCEL-MACRO

2011-12-26 Thread ASHISH BHALARA
Dear Experts, I know the language of C,C++ & .net but anybody can say that how to learn or take proper guidance regarding excel macro of all the tools, variable, functions in macro, manipulator etc. Please suggest me a proper easily available & learn book or website in which I can learn from up to

Re: $$Excel-Macros$$ Need help

2011-12-26 Thread Maries
*Try This formula,* =CONCATENATE(IF(LEN(A1)>=1,CODE(UPPER(LEFT(A1,1)))-64,""),IF(LEN(A1)>=2,CODE(UPPER(MID(A1,2,1)))-64,""),IF(LEN(A1)>=3,CODE(UPPER(MID(A1,3,1)))-64,""),IF(LEN(A1)>=4,CODE(UPPER(MID(A1,4,1)))-64,""),IF(LEN(A1)>=5,CODE(UPPER(MID(A1,5,1)))-64,""),IF(LEN(A1)>=6,CODE(UPPER(MID(A1,6,1))

RE: $$Excel-Macros$$ Need help

2011-12-26 Thread Rajan_Verma
Try this: Dim intIAs Integer For intI = 1 To Len(rngVal.Value) If Asc(UCase(Mid(rngVal.Value, intI, 1))) > 64 And Asc(UCase(Mid(rngVal.Value, intI, 1))) < 91 Then GiveNumeric = GiveNumeric & Asc(UCase(Mid(rngVal.Value, intI, 1))) - 64 End If Next End Fu

RE: $$Excel-Macros$$ GUIDANCE REGARDING EXCEL-MACRO

2011-12-26 Thread Rajan_Verma
Go through these links and download "Excel 2003 /2007 Power Programming with VBA " its good for VBA beginner and free available on internet.. www.ozgrid.com www.cpearson.com www.akoul.blogspot.com www.excelpoweruser.blogspot.com www.ozgrid.com akoul.posterous.com www.mrexcel.com w