Reference to Columns

[Guest]

Hi , I am using the next line :

ActiveWorkbook.Worksheets("A").Columns((ConvertToLetter(inicol)) & ":" &
msConvertToLetter(endcol)).Select

Does exist some way for using only the Column Number ? I would prefer don´t
use the function ConvertToLetter.

Thank you in advance.

 

[Rick Rothstein \(MVP - VB\)]

ActiveWorkbook.Worksheets("A").Columns((ConvertToLetter(inicol)) & ":" &

msConvertToLetter(endcol)).Select

Does exist some way for using only the Column Number ? I would prefer
don´t
use the function ConvertToLetter.

Well, you could always do what ConvertToLetter does directly in your code...

ActiveWorkbook.Worksheets("A").Columns(Chr(IniCol + 64) & ":" & Chr(EndCol +
64)).Select

Rick

 

[Guest]

ActiveWorkbook.Worksheets("A").Columns((ConvertToLetter(inicol)) & ":" &
msConvertToLetter(endcol)).Select

You could do it this way:

ActiveWorkbook.Worksheets("A").Range(Cells(1, inicol), Cells(65536,
endcol).Select

 

[Rick Rothstein \(MVP - VB\)]

ActiveWorkbook.Worksheets("A").Columns((ConvertToLetter(inicol)) & ":" &

Well, you could always do what ConvertToLetter does directly in your
code...

ActiveWorkbook.Worksheets("A").Columns(Chr(IniCol + 64) & ":" & Chr(EndCol
+ 64)).Select

I can't help feeling there is a more direct method that I am simply
overlooking; but, anyway, here is another way to do it...

ActiveWorkbook.Worksheets("A").Columns(IniCol).Resize(Rows.Count, EndCol -
IniCol).Select

Rick

 

[Mike Fogleman]

Range(Columns(2), Columns(10)).Select

Mike F

 

[Rick Rothstein \(MVP - VB\)]

ActiveWorkbook.Worksheets("A").Columns(IniCol).Resize(Rows.Count, EndCol -

IniCol).Select

I forgot the +1...

ActiveWorkbook.Worksheets("Sheet1").Columns(IniCol).Resize(Rows.Count,
EndCol - IniCol + 1).Select

Rick

 

[Mike Fogleman]

Using your variables Dimmed As Long:

Range(Columns(inicol), Columns(endcol)).Select

Mike F

 

[Mike Fogleman]

See my responses Rick.

Mike Fogleman

I can't help feeling there is a more direct method that I am simply
overlooking; but, anyway, here is another way to do it...

ActiveWorkbook.Worksheets("A").Columns(IniCol).Resize(Rows.Count, EndCol -
IniCol).Select

Rick

 

[Rick Rothstein \(MVP - VB\)]

Thanks... see, I knew I was missing something obvious.

Rick