To comment on the following update, log in, then open the issue: http://www.openoffice.org/issues/show_bug.cgi?id=98518 Issue #|98518 Summary|conversione Macro Excel in Starbasic Component|Spreadsheet Version|1.0.0 Platform|All URL| OS/Version|All Status|UNCONFIRMED Status whiteboard| Keywords| Resolution| Issue type|DEFECT Priority|P3 Subcomponent|programming Assigned to|spreadsheet Reported by|dindomix
------- Additional comments from [email protected] Tue Jan 27 11:26:56 +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]
