Selection in a range.

  • Thread starter Thread starter ML
  • Start date Start date
M

ML

Hi

I am extremely new to Excel programming (this morning) and have had some
macro designs thrust upon me.

I am trying to select rows 1 & 2 of a previous selection (to effectively
format the header rows in table).

I have made it work where the table is 3 columns using:

Selection.Range("A1:C2").Select

but I need to make it work for tables more than 3 colums, the tables could
be any size and anywhere on a worksheet. So I tried:

Selection.Range("1:2").Select

but this didn't work.

Any suggestions?
 
Hi

I am extremely new to Excel programming (this morning) and have had some
macro designs thrust upon me.

I am trying to select rows 1 & 2 of a previous selection (to effectively
format the header rows in table).

I have made it work where the table is 3 columns using:

Selection.Range("A1:C2").Select

but I need to make it work for tables more than 3 colums, the tables could
be any size and anywhere on a worksheet. So I tried:

Selection.Range("1:2").Select

but this didn't work.

Any suggestions?
Click to expand...

First of all, and importantly, there is no need to "select" the cells within
VBA in order to format them. It is more efficient to just address the cells
directly.

One way to set a variable so as to refer to the first two rows in a previous
selection:

------------------------
Dim c As Range
Set c = Selection
Set c = c.Resize(2)
------------------------

If all the cells are being formatted the same, then perhaps something like:

----------------------
With c
.NumberFormat = "@"
.Font.Bold = True
.Font.Italic = True
.Font.Size = 16
End With
 
This has solved it.

Many thanks.


Ron Rosenfeld said:
First of all, and importantly, there is no need to "select" the cells within
VBA in order to format them. It is more efficient to just address the cells
directly.

One way to set a variable so as to refer to the first two rows in a previous
selection:

------------------------
Dim c As Range
Set c = Selection
Set c = c.Resize(2)
------------------------

If all the cells are being formatted the same, then perhaps something like:

----------------------
With c
.NumberFormat = "@"
.Font.Bold = True
.Font.Italic = True
.Font.Size = 16
End With
Click to expand...
 
Back
Top