select range inputbox

[Urraco]

how can I select from cell A1 to "input user".. ex. H1

this not work

Sub teeest()
Dim x As Variant
x = InputBox("column?")
Range("A1", x).Select
End Sub

thankyou

 

[Joe4]

Like this:

Sub teeest()
Dim x As Variant
x = InputBox("column?")
Range("A1:" & x & "1").Select
End Sub

 

[Urraco]

does not work to me

Like this:

Sub teeest()
Dim x As Variant
x = InputBox("column?")
Range("A1:" & x & "1").Select
End Sub

 

[Joe4]

What exactly are you entering into the Input Box?

Since you have the input box say "Column?", I was assuming that you are only entering the column letter (i.e. "H").

If you are entering the actually full address (i.e. "H1") of the last cell you want, and not just the column, then use this variation:

Sub teeest()
Dim x As Variant
x = InputBox("address?")
Range("A1:" & x).Select
End Sub

 

[Urraco]

still error

I want to select from column A1 "which is the default" to column H or column 8
ex. Range("A1:H1").Select

 

[Joe4]

If you are just entering in the column letter ("H"), then the first code I posted up in my first reply should work.

If it does not, then please answer the following questions:
1. Are you getting any error messages? If so, what do they say?
2. If there are no error messages, but it just isn't doing what you want, please explain what it is doing?
3. Is column H or row 1 protected?
4. Are any of the cells in the range A1:H1 part of merged cells?
5. Is column H or row 1 hidden?

 

[RoryA]

You could do something like this?

Sub teeest()
Dim x As Range
On Error Resume Next
Set x = Application.InputBox("Select last cell", Type:=8)
On Error GoTo 0
If Not x Is Nothing Then Range("A1", x).Select
End Sub

 

[Urraco]

If you are just entering in the column letter ("H"), then the first code I posted up in my first reply should work.

If it does not, then please answer the following questions:
1. Are you getting any error messages? If so, what do they say?
2. If there are no error messages, but it just isn't doing what you want, please explain what it is doing?
3. Is column H or row 1 protected?
4. Are any of the cells in the range A1:H1 part of merged cells?
5. Is column H or row 1 hidden?

now I see that it works, yesterday I tried several times and it didn't work ... I don't know ...
thank you

Sub teeest()
Dim x As Variant
x = InputBox("column?")
Range("A1:" & x & "1").Select
End Sub

 

[Urraco]

That's good too..

You could do something like this?

Sub teeest()
Dim x As Range
On Error Resume Next
Set x = Application.InputBox("Select last cell", Type:=8)
On Error GoTo 0
If Not x Is Nothing Then Range("A1", x).Select
End Sub

 

[Joe4]

Glad you got it sorted out.
Rory's option is a nice one, as in selecting the cell, it reduces the possibility on key entry errors.