Scribd
Upload
250 views6 pages

VBA Range and Cell Selection Techniques

This document discusses various techniques for working with cells and ranges in VBA coding. It provides examples for selecting the last used cell in a column or row, finding the next empty row, selecting multiple columns or areas, and getting addresses for top/bottom/left/right cells in a selection. The document also demonstrates how to delete columns, rows, or all unselected areas using VBA macros.

Uploaded by

Clint Moore
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
250 views6 pages

VBA Range and Cell Selection Techniques

This document discusses various techniques for working with cells and ranges in VBA coding. It provides examples for selecting the last used cell in a column or row, finding the next empty row, selecting multiple columns or areas, and getting addresses for top/bottom/left/right cells in a selection. The document also demonstrates how to delete columns, rows, or all unselected areas using VBA macros.

Uploaded by

Clint Moore
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

Cells, Cell Selection and Ranges in VBA coding (#coding) This page is a conglomeration of aspects of cell related coding

snipets. Currently this page remains NOINDEX Cells, last used or next free in a column (#next) last cell in column A within the same region as cell A1: Range("A1").End(xlDown) last cell even with empty cells in the column you could use Range("A65535").End(xlUp).select '-- Example only Range("A" & [Link]).End(xlUp).Select Cells([Link],1).End(xlUp).Select '-- preferred usage Use of xldown xlup xltoRight xltoLeft Range(ActiveCell, [Link](xldown)).Select The use of 65536 to identify the last row is for illustration purposes only, do not code constants into a program as the last row and hopefully the last column can and will change between versions of Excel. Instead use [Link] and [Link] -- For examples of these in macros with toolbar icons see Toolbars page. Last used row in column A: => 8 Worksheets("Sheet1").Range("A65536").End(xlUp).Row Worksheets("sheet1").Cells([Link], "A").End(xlUp).Row

Next available empty row in column A: => 9 Worksheets("Sheet1").Range("A65536").End(xlUp).Row + 1 Worksheets("sheet1").Cells([Link], "A").End(xlUp).Row + 1

xlDown looks for the first empty cell it finds and returns the last used row before that first empty cell, so:

'Last used row before the first empty cell: => 3 Worksheets("Sheet1").Range("A1").End(xlDown).Row

'First empty cell in column A => 4 Worksheets("Sheet1").Range("A1").End(xlDown).Row + 1

If you want to find the last possible row all the way down column A, use xlUp.

[Link](xlDown) Range("A1").End(xlDown) As improbable as it seems you can do something similar with a Worksheet Function. The following array formula [ctrl+Shift+enter] will provide the row number for the last cell in Column A. Dave Perterson 2001-12-23 in [Link] =MAX(IF(ISBLANK(A1:A1000),"",ROW(A1:A1000))) Last Column in a Row Last cell even with empty cells in the row you could use

Range("A256").End(xlLeft).select

Range("A" & [Link]).End(xlLeft).Select

Cells(1,[Link]).End(xlLeft).Select Columns 16 through end (#select)

Columns("P:IV").Select

Range(Cells(1, 16), Cells(1, [Link])).[Link] Identification of the last cell address -- varies with different versions MsgBox Cells([Link], [Link]).Address '-- i.e. IV65536 or TT2000000 in Excel 12. Copying specific cells on specific sheets to ... (#hardcoded) Dim rng as Range

set rng = worksheets("Dest").Cells([Link],1).end(xlup)(2) worksheets("Sheet1").Range("D24").Copy Destination:=rng Worksheets("Sheet1").Range("F23").Copy Destination:=[Link](0,1) Top Left cell / Bottom Right Cell in a Selection (#topleft) Addresses for the range, the top left cell and the bottom right cell within a selection event for testing. Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox [Link] & Chr(10) _ & [Link](1).Address & Chr(10) _ & [Link]([Link]).Address End Sub All four corners: Msgbox "TopLeft: " & [Link](1).Address _ &" TopRIght: " & _

[Link](1, [Link]).Address _ & Chr(10) & "BotLeft " & [Link]([Link], 1).Address _ &" BotRight " & [Link]([Link]).Address

Deletions (#deletions) Deletion of Columns and Rows 'Delete Columns Range("C:C,E:G,I:I,K:K,M:S,U:U,W:W,Y:Y").Delete xlToLeft

'Delete Rows Range("14:400").Delete an example

Some test coding leading up to the Isolate_selection macro

GoTo skip_over Range("A1:M30").Select [Link] "[Link]!MarkCells" Range("a1:g10, j12:k12").Select

'GoTo skip_over MsgBox [Link] & " in " & [Link] MsgBox [Link] & " -- Used Range address" MsgBox [Link] & " -- " & [Link](1).Address MsgBox [Link] & " -- " & [Link](1).Count MsgBox [Link](1)([Link](1).Count).Address

MsgBox [Link] MsgBox [Link](xlLastCell).Column MsgBox Cells([Link], [Link]).Address & " -- lastcell address"

skip_over: Dim shouldsee As String Dim rng1_address As String, rng2_address As String The MarkCells macro can be found at [Link]#markcells and the code at code/[Link] Isolate_Seletion -- delete everythin not in First area (#isolate_seletion) Sub Isolate_selection() 'Delete all cells not within the first or only selection area

'David McRitchie, [Link], [Link] 2005-11-17

Dim shouldsee As String Dim rng1_address As String, rng2_address As String shouldsee = [Link](1).Address(0, 0) Range(shouldsee).Select '-- identify top left cell and bottom right cell of area to be kept rng1_address = Range(Selection(1)(1)).Address rng2_address = Range([Link](1)([Link](1).Count).Address) On Error Resume Next 'important if no rows and/or columns before seletion '-- delete rows below [Link](1) ... Range(Range(rng2_address).row + 1 & ":" & [Link]).Delete '-- delete columns to right of [Link](1) ... ' Range(Range(rng2_address).Offset(0, 1) & ":IV65536").[Link] Range(Range(rng2_address).Offset(0, 1).Address & ":" & _ Cells([Link], [Link]).Address).[Link] '-- delete columns to left of [Link](1) ... Range("a1:" & Range(rng1_address).Offset(0, -1)).[Link] '-- delete rows before [Link](1) ... Range("A1:" & Range(rng1_address).Offset(-1, 0)).[Link]

MsgBox "you should see your original " & should see ' [Link] '-- fix last cell End Sub Deletion Related (#deletion-related)

Delete rows and columns past the active cell [Link] Reduce the size of the workbook by eliminating the rows and columns past the actual data, where the last cell indication Ctrl+End is incorrect. "Why do my scrollbars go to row 500 -- my data ends in cell E50?" [Link] Delete the rows and columns outside of a single selection area. See example within this topic. Leave the single selection area intact but clear the contents but not delete cells outside a selection(s). would be similar to the macro here but would clearcontents instead of delete rows and columns. Identification of the current region [Ctrl+SHIFT+*], could be used as a selection. but you'd probably not have complete control of what you are working with.

Cell Navigation (#navigation) Options tools, options, Edit, [x] move selection after entry -- Down/right/up/left From one cell to a specific cell

Cell protection will guide you to next unprotected cell Select a group of cells, use Enter or Tab key Select individual cells with help of the Ctrl key, and Tab key will follow the sequence they were laid down. Example: Select A1,B2,C3,D4,E5,D6,C7,B8,A9, TabKey, then in Name box enter "MyEntry". When you enter "MyEntry" into name box at a later time the sequence will be laid out for you.

You might also like