Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
VBA selecting an input range of cells
Hi I have a small request for help with code. I need a simple macro to have popups request the first and last cells in a range , and then to select the range indicated in the popups. Can someone help? Grateful for any assistance |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
VBA selecting an input range of cells
Something like:
Sub PickaRanage() Dim s1 As String, s2 As String, s3 As String s1 = Application.InputBox(prompt:="Enter address of first cell", Type:=2) s2 = Application.InputBox(prompt:="Enter address of last cell", Type:=2) Range(s1 & ":" & s2).Select End Sub -- Gary''s Student - gsnu201001 "Colin Hayes" wrote: Hi I have a small request for help with code. I need a simple macro to have popups request the first and last cells in a range , and then to select the range indicated in the popups. Can someone help? Grateful for any assistance . |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
VBA selecting an input range of cells
In article , Gary''s
Student writes Something like: Sub PickaRanage() Dim s1 As String, s2 As String, s3 As String s1 = Application.InputBox(prompt:="Enter address of first cell", Type:=2) s2 = Application.InputBox(prompt:="Enter address of last cell", Type:=2) Range(s1 & ":" & s2).Select End Sub HI OK Thanks - that's perfect. Out of interest , if you made the s1 line Type:=8 , what change would you need to make in the Range(s1 & ":" & s2).Select line? Best Wishes |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
VBA selecting an input range of cells
Good question:
Sub Range8() Dim r1 As Range, r2 As Range Set r1 = Application.InputBox(prompt:="Enter address of first cell", Type:=8) Set r2 = Application.InputBox(prompt:="Enter address of last cell", Type:=8) Range(r1, r2).Select End Sub and you can use the mouse to service the input boxs. -- Gary''s Student - gsnu201001 "Colin Hayes" wrote: In article , Gary''s Student writes Something like: Sub PickaRanage() Dim s1 As String, s2 As String, s3 As String s1 = Application.InputBox(prompt:="Enter address of first cell", Type:=2) s2 = Application.InputBox(prompt:="Enter address of last cell", Type:=2) Range(s1 & ":" & s2).Select End Sub HI OK Thanks - that's perfect. Out of interest , if you made the s1 line Type:=8 , what change would you need to make in the Range(s1 & ":" & s2).Select line? Best Wishes . |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
VBA selecting an input range of cells
In article , Gary''s
Student writes Good question: Sub Range8() Dim r1 As Range, r2 As Range Set r1 = Application.InputBox(prompt:="Enter address of first cell", Type:=8) Set r2 = Application.InputBox(prompt:="Enter address of last cell", Type:=8) Range(r1, r2).Select End Sub and you can use the mouse to service the input boxs. Hi OK Thanks. This allows input by keyboard and/or mouse I see. Perfect first time again. I'm grateful for your time and expertise. Best wishes |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro for Selecting Cells within a Range | Excel Worksheet Functions | |||
Selecting a range of cells in a macro | Excel Discussion (Misc queries) | |||
Selecting a range of cells, how to ? | Excel Worksheet Functions | |||
Range selecting cells | Excel Discussion (Misc queries) | |||
how to combine cells by selecting range? | New Users to Excel |