VBA selecting an input range of cells

[Colin Hayes]

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

 

[Gary''s Student]

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

 

[Colin Hayes]

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

 

[Gary''s Student]

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.

 

[Colin Hayes]

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