un amico vorrebbe passare a openoffice, un bel po di tempo fa gli feci un piccolo programma per il gioco del lotto con delle macro, potreste darmi delle indicazioni su come trasformarle per ooo??? eccone una per esempio :-) grazie in anticipo di ogni indicazione
Sub bari() ' ' bari Macro ActiveSheet.Unprotect Range("A11").Select numero1 = Range("Foglio1!A10").Value colonna_ruota_1 = 3 colonna_ruota_consecutiva = 8 colonna_ruota_precedente = 48 colonna_ruota_diametrale = 28 Range("B9").Value = colonna_ruota_1 Range("F6").Value = colonna_ruota_consecutiva Range("J6").Value = colonna_ruota_precedente Range("N6").Value = colonna_ruota_diametrale Range("A11:A31").ClearContents Range("B11:B31").ClearContents k1 = 11 For i = Range("Foglio1!A2").Value To Range("Foglio1!C2").Value Step -1 For j = 0 To 4 If Sheets("Foglio2").Cells(i, colonna_ruota_1 + j) = numero1 Then Range("Foglio1!A" & k1).Value = i If Sheets("Foglio2").Cells(i, colonna_ruota_1 + j) = numero1 Then Range("Foglio1!B" & k1).Value = 1 + j If Sheets("Foglio2").Cells(i, colonna_ruota_1 + j) = numero1 Then k1 = k1 + 1 Next j Next i ambi Range("A10").Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True End Sub --------------------------------------------------------------------- To unsubscribe, e-mail: utenti-unsubscr...@it.openoffice.org For additional commands, e-mail: utenti-h...@it.openoffice.org