Michele Zarri ha scritto:
Una domanda semplice (e cosi' spero sia la risposta).
Sarò breve perchè è una brutta giornata...
Ho risistemato la macro... è un po' da controllare e sistemare le
variabili... ma questa è la strada.
ciao
Bart
-------------------------------------------------------------
Sub subCursorToNextRowColumnB()
'the code to get the active cell has been copied from Mr Paolo Mantovani
Dim oActiveCell 'The current active cell
Dim oConv 'The cell addres conversion service
Dim lCurrentRow as long
Dim oDispatcher
Dim sTargetCellAddress
oSheet =
ThisComponent.Sheets.getByName(ThisComponent.currentcontroller.activesheet.name)
oActiveCell = thisComponent.getCurrentSelection()
sContenuto = oActiveCell.string ' o quello che è...)
lCurrentRow = oActiveCell.CellAddress.Row
lCurrentCol = oActiveCell.CellAddress.Column
lnewRow = lCurrentRow +1
oTargetCell = oSheet.GetCellByPosition(lCurrentCol,lnewRow)
oTargetCell.string = sContenuto
' se non vuoi spostare il focus sulla nuova cella
ThisComponent.CurrentController.Select(oTargetCell)
' commenta la riga sopra
End sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
