Need code

Jerry Sullivan

MrExcel MVP

Joined

Mar 18, 2010

Messages

8,787

• Dec 4, 2011

• #2

Here's one way...

Code:

With Range("MyRange")
    .Resize(1).Interior.Color = vbYellow
End With

 

Upvote 0

Jerry Sullivan

MrExcel MVP

Joined

Mar 18, 2010

Messages

8,787

• Dec 4, 2011

• #3

Re-reading your post, it sounds like you might be wanting a function that you can call instead of code that you place inside your main procedure.

If that's correct, you could do something like this.

Code:

Function ColorTopRow(sRangeName As String)
    With Range(sRangeName)
        .Resize(1).Interior.Color = vbYellow
    End With
End Function

The you call the function with your range name from another procedure like this...

Code:

ColorTopRow "MyRange"

 

Upvote 0

V

venkat1926

Well-known Member

Joined

Aug 21, 2005

Messages

4,824

• Dec 4, 2011

• #4

you can try this macro suppose "rv" is the name of the range

Code:

Sub test()
Range("rv").Cells(1, 1).EntireRow.Select
End Sub

but the first row may be the headings if so then change the second line as

Code:

range("rv").cells(2,1).entirerow.select

 

Upvote 0

A

atf32

Board Regular

Joined

Apr 13, 2011

Messages

157

• Dec 4, 2011

• #5

Is it possible to only include the columns of the range? So if the range it 10 rows, 5 columns, the code will only select the first row and five columns.

 

Upvote 0

A

atf32

Board Regular

Joined

Apr 13, 2011

Messages

157

• Dec 4, 2011

• #6

Not quite. your code is great, but perhaps I worded the question incorrectly. I want to select the first row of the range (and just the columns of the range).....not highlight the row.

 

Upvote 0

Jerry Sullivan

MrExcel MVP

Joined

Mar 18, 2010

Messages

8,787

• Dec 4, 2011

• #7

atf32 said:

Not quite. your code is great, but perhaps I worded the question incorrectly. I want to select the first row of the range (and just the columns of the range).....not highlight the row.

Click to expand...

You could SELECT the top row of cells within the range like this:

Code:

Range("MyRange").Resize(1).Select

...However if you are planning on having your VBA code do anything with those Cells,
then using .Select is inefficient compared to just applying the Method or Properties to the range reference directly.

So please don't do this...

Code:

Range("MyRange").Resize(1).Select
Selection.Copy
Sheets("Sheet2").Select
Range("A2").Select
Selection.PasteSpecial (xlPasteAll)

Instead do this...

Code:

Range("MyRange").Resize(1).Copy _
   Destination:=Sheets("Sheet2").Range("A2")

 

Upvote 0

A

atf32

Board Regular

Joined

Apr 13, 2011

Messages

157

• Dec 5, 2011

• #8

Thanks for the help. I can use this.

 

Upvote 0