Range question in VB

R

rohnds

I have a spreadsheet with data in column A starting from A5 ... list o
my pH reading for my aquarium. I also have a chart graphing this data
Right now my data start at A5 and end at A11.

Right now I have created a macro in VB that allow me input the las
cell of my data (example A12, A15), and then used that range (e.g
A5:A15, if I entered A15) to update my graph.

I was wondering if anyone knew how to retrieve the range using VB o
the selected cells. Another word, I want VB to return startig range A
and ending range A15 if I selected A5:A15. I can then use that info t
update my chart thus giving me more flexibility.

Any help would be appreciated
 
B

Bob Flanagan

To return the first cell in a selection:

dim firstCell as range
set firstCell = selection.cells(1)
msgbox firstCell.address

for the last cell:

dim lastCell as range
with selection
set lastcell = .cells(.cells.count) 'note the period in front of cells
end with
msgbox lastcell.address

Bob Flanagan
Macro Systems
Delaware, U.S. 302-234-9857
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel
 
T

Tim Coddington

Another handy tool that might be of use. Assuming the range
starts at A5 and there are at least 2 data points. The end of
the range can be found by:
"A" & Range("A5").End(xlDown).Row
Bob Flanagan said:
To return the first cell in a selection:

dim firstCell as range
set firstCell = selection.cells(1)
msgbox firstCell.address

for the last cell:

dim lastCell as range
with selection
set lastcell = .cells(.cells.count) 'note the period in front of cells
end with
msgbox lastcell.address

Bob Flanagan
Macro Systems
Delaware, U.S. 302-234-9857
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel
Click to expand...
 
Top