Determining what column a cell is in? 1

[Dalionlv]

Ok I have been looking through my vba books and have not found away to test an active cell for the column it's in.

I would like to determine a cells column then do an if statement giving a message box if the cell is in the wrong column.

Thanks for any help

 

[melone]

Here is one way to do it...

Col = Range(cell range).Offset(offset # of Rows, offset # of Colums).Column

You can probably clean it up to something similar to:

Col = Selection.Column

 

[Regg]

Try ActiveCell.Column it returns a long number of the column the active cell is in. If you do MsgBox chr$(ActiveCell.Column + 64) it will give you the column letter.

Regards,

Regg

 

[johnwm]

Test for column number using ActiveCell.Column

If you really want the column letter you need to watch out for columns above 26:
Dim x
x = Split(ActiveCell.AddressLocal, "$")
MsgBox x(1)


Good Luck
johnwm
________________________________________________________
To get the best from these forums read faq731-376 before posting

UK steam enthusiasts:

http://www.essexsteam.co.uk

 

[cadcamguy]

activecell.address will give you row and column

 

[Dalionlv]

Thank you for all of your replies. I used a part of what each of you gave me and it was applicable to my solution. Thanks Again.