What is the way to suggest adding a new routine to the Tools Library?
This is the routine:
Sub GoToAdd ( xAdd$ )
' Supports the following commands: ( xAdd$ )
' Sheet .......... = "Sheet1"
' Sheet.Cell ..... = "Sheet1.C2"
' Sheet.Area ..... = "Sheet1.D5:V9"
' Cell ........... = "C3"
' Area ........... = "H6:K12"
' Named Area ..... = "NamedArea"
' Row ............ = "13"
' Row Range ...... = "16:19"
' Column ......... = "H:H"
' Column Range ... = "D:U"
dim Address(0) as new com.sun.star.beans.PropertyValue
Address(0).Name = "ToPoint" : Address(0).Value = xAdd
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame _
, ".uno:GoToCell", "", 0, Address())
End Sub
Example of use:
Position the cursor in cell A5, in the TEST worksheet.
Sub GoTestA5
GoToAdd "TEST.A5"
End Sub
Select the area named “ORDERS”
Sub GoORDERS
GoToAdd "ORDERS"
End Sub
Makes it easier to navigate through cells in macro routines.