Help with columns

[jcasas23]

How Could I save in a cell the letter of the column that I selected. I need only the letter for the column for example
A1 just A
CD34 just CD and go on..

thanks in advance.

 

[SkipVought]

Hi

=IF(COLUMN()>26,CHAR(INT((COLUMN()-1)/26)+64)&CHAR(MOD(COLUMN(),26)+64),CHAR(COLUMN()+64))

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[SkipVought]

oops...

my original post does not work for columns ending in Z

=IF(COLUMN()>26,CHAR(INT((COLUMN()-1)/26)+64)&CHAR(MOD(COLUMN()-1,26)+65),CHAR(COLUMN()+64))

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[jcasas23]

It this function in excel? How should I use the column() formula?

thanks

 

[SkipVought]

COLUMN() returns the column number. Check Help

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[jcasas23]

if I use this function in a module in VBA of excel should be work?

thanks

 

[SkipVought]

Function ColLetters()
  with activecell
    if .column > 26 then
      ColLetters = Chr(Int((.column-1)/26)+64) & _
 Chr((.column-1) MOD 26)+65)
    else
      Chr(.column+ 64)
    end if
  end with
End Function

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[RobBroekhuis]

Alternative solution:

Function MyCol() as string
MyCol = activecell.entirecolumn.address(0,0)
MyCol = left(MyCol,instr(MyCol,":&quot-1)
End Function



Rob