Comments on: Select Adjacent

By: zach

zach — Tue, 21 Apr 2009 22:55:00 +0000

This version extends the range to the longer of the column immediately left or right. It also makes sure there's a cell directly below the cell to the left or right to make sure the xlDown doesn't return the last row in the worksheet when it's blank.

The second version does the same with rows, extending them rightward.

Sub SelectAdjacentCol()
Dim lRows As Long

On Error Resume Next

If Not IsEmpty(Selection.Offset(0, -1)) And Not IsEmpty(Selection.Offset(1, -1)) Then _
lRows = Range(Selection.Offset(0, -1), Selection.Offset(0, -1).End(xlDown)).Cells.Count
If Not IsEmpty(Selection.Offset(0, 1)) And Not IsEmpty(Selection.Offset(1, 1)) Then _
lRows = Application.WorksheetFunction.Max(lRows, Range(Selection.Offset(0, 1), Selection.Offset(0, 1).End(xlDown)).Cells.Count)

Selection.Resize(lRows).Select

End Sub

Sub SelectAdjacentRow()
Dim lRows As Long

On Error Resume Next

If Not IsEmpty(Selection.Offset(-1, 0)) And Not IsEmpty(Selection.Offset(-1, 1)) Then _
lRows = Range(Selection.Offset(-1, 0), Selection.Offset(-1, 0).End(xlToRight)).Cells.Count
If Not IsEmpty(Selection.Offset(1, 0)) And Not IsEmpty(Selection.Offset(1, 1)) Then _
lRows = Application.WorksheetFunction.Max(lRows, Range(Selection.Offset(1, 0), Selection.Offset(1, 0).End(xlToRight)).Cells.Count)

Selection.Resize(1, lRows).Select

End Sub

By: Dion

Dion — Wed, 02 Jan 2008 05:13:00 +0000

Awesome, thanks.

By: Dick Kusleika

Dick Kusleika — Tue, 01 Jan 2008 17:06:00 +0000

Dion: It doesn't fill the formula down, it just selects the cells. After the cells are selected, press Ctl+D to fill down. Or if you want to adjust the macro, after the Selection.Resize line, put

Selection.FillDown

Yes, Personal.xls is where I have mine.

By: Dion

Dion — Mon, 31 Dec 2007 18:58:00 +0000

I've pasted all three pieces of code in a standard module, saved and reopened the file. Now when I reopen the file and use the shortcut, it only selects the cells and does not fill the formula. Can you help me what might be causing troubles.

Secondly, if I want this to be available in all the excel files do I just paste the code in Personal.xls?

By: Dan

Dan — Sun, 16 Dec 2007 22:25:00 +0000

The easiest way to select cells B2:B19 is to do the following:

Go to A2
CTRL-DOWN
RIGHT
CTRL-SHIFT-UP

Use it all the time. It always freaks people out who watch you when you do it quickly...

By: Jerry Gluck

Jerry Gluck — Thu, 29 Nov 2007 01:18:00 +0000

Using the original sub as a starting point, I fumbled my way thru VBA to create a modification that allows the selection can be anywhere to the right or left of the column to be operated upon. Simply put, it calculates the required offset, then selects the range. Seems to work OK, but does anyone see any pitfalls? I have no need for a keyboard shortcut, but I do have the need to do formula fill-downs. However, if some of the cells in the target range are not populated, then it stops. In that event I have another sub (ActivateWhatever -- not sure where I got it from) that deals with this. Of course sometimes it goes far beyond the range of interest,

Sub SelectTargetCol()
Dim rAdjacent As Range
Dim SetOff As Integer
Set TRange = Application.InputBox(Prompt:="WhichColumn?", Type:=8)
SetOff = ActiveCell.Column - TRange.Column
If TypeName(Selection) = "Range" Then
If Selection.Cells.Count = 1 Then
If Not IsEmpty(Selection.Offset(0, -SetOff).Value) Then
With Selection.Offset(0, -SetOff)
Set rAdjacent = .Parent.Range(.Cells(1), .End(xlDown))
End With
Selection.Resize(rAdjacent.Cells.Count).Select
End If
End If
End If
End Sub

Sub ActivateWherever()
'this identifies the last used row anywhere on the sheet & allows you to specify where selection starts
Dim Last As Double, Where As Double
Where = InputBox(Prompt:="Which row?")
Last = Cells.Find(What:="*", After:=[a1], _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
Range((Cells(Where, ActiveCell.Column)), Cells(Last, ActiveCell.Column)).Select
End Sub

By: Dick Kusleika

Dick Kusleika — Mon, 26 Nov 2007 21:51:00 +0000

CY: http://www.dailydoseofexcel.com/archives/2006/06/12/analyzing-vendor-discounts/#comment-28943

fzz: re the mouse: you are correct. I thought about including right side columns and above and below rows, but I've never needed them.

By: fzz

fzz — Mon, 26 Nov 2007 19:11:00 +0000

I suppose double-clicking the fill handle doesn't count as simple since it involves the mouse.

FWIW,

^C
+{left}
{tab}
+^{down}
{tab}
+{right}
^V

Also, FWIW, why not allow the adjacent range to be a column to the right, rows above or below, or both rows and columns bounding a region? Something like

Sub foo()
Dim a As Range, r As Range
Dim i As Long, j As Long

If Not TypeOf Selection Is Range Then Exit Sub
If Selection.Cells.Count > 1 Then Exit Sub

Set a = ActiveCell
Set r = a.CurrentRegion

With Application.WorksheetFunction
i = .CountA(Intersect(r, a.EntireColumn))
j = .CountA(Intersect(r, a.EntireRow))
End With

If i > j Then
Intersect(r, _
a.EntireRow.Offset(0, a.Column - r.Column)).Select
ElseIf j > i Then
Intersect(r, a.EntireColumn.Offset(a.Row - r.Row, 0)).Select
Else
Intersect(r, _
r.Offset(a.Row - r.Row, a.Column - r.Column)).Select
End If
End Sub

By: Chris Youngblood

Chris Youngblood — Mon, 26 Nov 2007 18:03:00 +0000

Dick:

I found your article on vendor discounts very interesting and useful. Can you explain to a math dummy how you arrive to the 36% savings realized by taking advantage of the 2% available discount?

By: Dick Kusleika

Dick Kusleika — Mon, 26 Nov 2007 16:55:00 +0000

MM: Because I’m lazy.