Help With Worksheet Operations

[Justin Starnes]

Is there any way in vba code to reproduce the same functionality in Excel as
pressing Ctrl+right and/or Ctrl+down? I need a quick way to move to the last
column and the last row on a spreadsheet.

Also, is there a quick way to convert the worksheet to a string array or
anything else (maybe a dataset)?

 

[Jose Rojas]

Try Some Like this

Sub MovetoEndDown()
Range("A1").End(xlDown).Activate '(xlToRight) in case you want to move to
the right.
End Sub
or
Sub MoveDownPlus1Row()
Dim NextRow As Variant
NextRow = Range("A20000").End(xlUp).Row + 1
Cells(NextRow, 1).Activate
End Sub

Hope this works.
Jose Rojas

 

[Tom Ogilvy]

Dim vArr as Variant
vArr = ActiveWorksheets.UsedRange.Value

for i = lbound(varr,1) to ubound(varr,1)
for j = lbound(varr,2) to ubound(varr,2)
debug.print i,j, varr(i,j)
Next
Next

Regards,
Tom Ogilvy

 

[Justin Starnes]

Thanks!
Justin

Try Some Like this

Sub MovetoEndDown()
Range("A1").End(xlDown).Activate '(xlToRight) in case you want to move to
the right.
End Sub
or
Sub MoveDownPlus1Row()
Dim NextRow As Variant
NextRow = Range("A20000").End(xlUp).Row + 1
Cells(NextRow, 1).Activate
End Sub

Hope this works.
Jose Rojas

Excel