ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Dynamic Range Selection (https://www.excelbanter.com/excel-programming/423721-dynamic-range-selection.html)

Phil P

Dynamic Range Selection
 
I have a spreadsheet that goes to say column €œS€ and several thousand rows.
I would like the program to request a user to highlight a Range for example
A50:A55 (this is a variable range however the selections would always be in
column A. Based on the user selected range the range would be named and
program would execute code for the adjacent cells in the selected range.

Can you please assist with this code?


Dave Peterson

Dynamic Range Selection
 
Dim myRng as range
dim myCell as range

set myrng = nothing
on error resume next
set myrng _
= application.inputbox(prompt:="select a single range",type:=8).areas(1)
on error goto 0

if myrng is nothing then
msgbox "ok. Quitting"
exit sub
end if

set myrng = myrng.entirerow.columns(1)

for each mycell in myrng.cells
msgbox mycell.address & vblf & mycell.offset(0,3).address
next mycell

=====
there really isn't a reason to give the range a name to work with it.


Phil P wrote:

I have a spreadsheet that goes to say column €œS€ and several thousand rows.
I would like the program to request a user to highlight a Range for example
A50:A55 (this is a variable range however the selections would always be in
column A. Based on the user selected range the range would be named and
program would execute code for the adjacent cells in the selected range.

Can you please assist with this code?


--

Dave Peterson

Phil P[_2_]

Dynamic Range Selection
 
Thanks so much for your help Dave. I will put your code in program and work
with it. Sorry for the duplicate message. I received a message failed
notification when I originally posted.

"Dave Peterson" wrote:

Dim myRng as range
dim myCell as range

set myrng = nothing
on error resume next
set myrng _
= application.inputbox(prompt:="select a single range",type:=8).areas(1)
on error goto 0

if myrng is nothing then
msgbox "ok. Quitting"
exit sub
end if

set myrng = myrng.entirerow.columns(1)

for each mycell in myrng.cells
msgbox mycell.address & vblf & mycell.offset(0,3).address
next mycell

=====
there really isn't a reason to give the range a name to work with it.


Phil P wrote:

I have a spreadsheet that goes to say column รข‚ฌล“Sรข‚ฌย and several thousand rows.
I would like the program to request a user to highlight a Range for example
A50:A55 (this is a variable range however the selections would always be in
column A. Based on the user selected range the range would be named and
program would execute code for the adjacent cells in the selected range.

Can you please assist with this code?


--

Dave Peterson



All times are GMT +1. The time now is 09:58 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com