If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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 |
Thread Tools | |
Display Modes | |
|
|