Setting a range using VBA

[elswen]

How can I goto A2 then emulate the keystrokes [Control]
[Shift][End] then [Shift][Home] tocapture column A for
the height of the data using VBA?
Thanks

 

[Don Guillett]

try

Sub selectit()
x = ActiveSheet.UsedRange.Rows.Count
Range(Cells(2, 1), Cells(x, 1)).Select
End Sub

 

[Kevin Beckham]

I suggest this code if the data is continuous (no empty
cells)
Dim rng As Range
Set rng = Range(Range("A2"),Range("A2").End(xlDown))

or if not continuous
Dim rng As Range
Set rng = Range(Range("A2"),Range("A65536").End(xlUp))

Kevin Beckham

-----Original Message-----
try

Sub selectit()
x = ActiveSheet.UsedRange.Rows.Count
Range(Cells(2, 1), Cells(x, 1)).Select
End Sub
--
Don Guillett
SalesAid Software
(e-mail address removed)

How can I goto A2 then emulate the keystrokes [Control]
[Shift][End] then [Shift][Home] tocapture column A for
the height of the data using VBA?
Thanks

.

 

[Don Guillett]

Kevin,
Perhaps a re-reading of OP's request would be helpful for you.

--
Don Guillett
SalesAid Software
(e-mail address removed)

I suggest this code if the data is continuous (no empty
cells)
Dim rng As Range
Set rng = Range(Range("A2"),Range("A2").End(xlDown))

or if not continuous
Dim rng As Range
Set rng = Range(Range("A2"),Range("A65536").End(xlUp))

Kevin Beckham

-----Original Message-----
try

Sub selectit()
x = ActiveSheet.UsedRange.Rows.Count
Range(Cells(2, 1), Cells(x, 1)).Select
End Sub
--
Don Guillett
SalesAid Software
(e-mail address removed)

How can I goto A2 then emulate the keystrokes [Control]
[Shift][End] then [Shift][Home] tocapture column A for
the height of the data using VBA?
Thanks

.

 

[Guest]

Don,
You're right, it's just that I never consider empty
formatted cells to be "useful" .

Kevin

-----Original Message-----
Kevin,
Perhaps a re-reading of OP's request would be helpful for you.

--
Don Guillett
SalesAid Software
(e-mail address removed)

I suggest this code if the data is continuous (no empty
cells)
Dim rng As Range
Set rng = Range(Range("A2"),Range("A2").End(xlDown))

or if not continuous
Dim rng As Range
Set rng = Range(Range("A2"),Range("A65536").End(xlUp))

Kevin Beckham

-----Original Message-----
try

Sub selectit()
x = ActiveSheet.UsedRange.Rows.Count
Range(Cells(2, 1), Cells(x, 1)).Select
End Sub
--
Don Guillett
SalesAid Software
(e-mail address removed)
How can I goto A2 then emulate the keystrokes [Control]
[Shift][End] then [Shift][Home] tocapture column A for
the height of the data using VBA?
Thanks


.

.