Bart Aimar wrote:
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]
Ciao Bart,
Mi dispiace per la brutta giornata.
Mi piace il modo per estrarre la riga (io ho un debole per il codice
ultra complicato come avrai capito).
Purtroppo una delle funzionalita' richieste dalla macro e' di
selezionare la colonna B, ma questo si aggiusta in un secondo.
Quello che invece ancora non mi convince e' l'uso del metodo Select in
quanto il risultato e' diverso dalla chiamata fatta con il dispatcher.
Select seleziona tutta la cella (che non voglio) mentre il dispatcher
rende attiva la cella (bordo ingrossato).
Ieri era un po' tardi percio' provo a riformulare la domanda:
Esiste un equivalente in StarBasic di
.uno:GoToCell
?
Grazie,
Michele
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
