To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=98518
User dindomix changed the following:
What |Old value |New value
================================================================================
OS/Version|All |Windows XP
--------------------------------------------------------------------------------
QA contact|iss...@sc |
--------------------------------------------------------------------------------
Platform|All |PC
--------------------------------------------------------------------------------
Target milestone|--- |OOo 3.0
--------------------------------------------------------------------------------
------- Additional comments from [email protected] Wed Jan 28 11:25:58
+0000 2009 -------
Buongiorno, mi chiamo Danilo.
Abbiamo appena migrato il pacchetto Office verso OpenOffice ma ci stiamo
imbattendo in un muro per quanto riguarda l'utilizzo di una macro per il nostro
sistema di pianificazione settimanale.
C'è qualcuno che ci può aiutare nell'operazione?
In parole povere utilizziamo due fogli in Calc dove sul primo
denominato "produzione" ci sono delle righe che descrivono le varie commesse
con i dati di lavorazione.
Quando l'operatore finisce quel determinato lavoro, clicca sul pulsante
collegato alla macro che sposta l'intera riga selezionata (quindi c'è un
problema di cella attiva perchè non sempre i lavori vengono ultimati
sequenzialmente) e spostati (tagliati) sul secondo foglio denominato "Archivio
Eseguiti" nella riga 3 spostando verso il basso le righe già presenti e
inserendo la data e l'ora dell'avvenuta operazione nella cella C3.
Allego se può essere utile la macro originale in VBA.
Io ho provato a decodificare StarBasic ma se devo essere sincero è abbastanza
complicato e non di facile interpretazione.
Vi chiedo aiuto, grazie.
Sub ESEGUITI()
cella_base = ActiveCell.Address
ActiveCell.End(xlToRight).Select
ActiveCell.End(xlToRight).Select
ActiveCell.End(xlToRight).Select
ActiveCell.End(xlToRight).Select
ActiveCell.End(xlToRight).Select
ActiveCell.End(xlToRight).Select
ActiveCell.End(xlToRight).Select
ActiveCell.End(xlToRight).Select
ActiveCell.End(xlToRight).Select
ActiveCell.End(xlToRight).Select
ActiveCell.End(xlToRight).Select
ActiveCell.End(xlToRight).Select
ActiveCell.End(xlToRight).Select
ActiveCell.End(xlToRight).Select
ActiveCell.End(xlToRight).Select
ActiveCell.End(xlToRight).Select
ActiveCell.End(xlToRight).Select
ActiveCell.End(xlToRight).Select
ActiveCell.End(xlToRight).Select
ActiveCell.End(xlToRight).Select
ActiveCell.End(xlToRight).Select
ActiveCell.End(xlToRight).Select
ActiveCell.End(xlToRight).Select
ActiveCell.End(xlToRight).Select
ActiveCell.End(xlToRight).Select
Range(cella_base, ActiveCell).Select
' Con Selezione.Interno
' .IndiceColore = 22
' .Motivo = xlContinuo
' Fine Con
Sheets("Produzione").Select
Selection.Copy
Sheets("Archivio Eseguiti").Select
Range("a3").Select
Selection.Insert Shift:=xlDown
Range("a3").Select
ActiveSheet.Paste
Sheets("Archivio Eseguiti").Select
Range("C3").Select
ActiveCell.FormulaR1C1 = Now
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("a3").Select
Sheets("Produzione").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("Archivio Eseguiti").Select
Range("a3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Produzione").Select
Range("A1").Select
Windows("000aaa.XLS").Activate
ActiveWorkbook.Close
End Sub
---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
