[RIsolto] Pulsante che cancella righe

[Aldo75]

Salve ho provato a registrare 2 macro , ma non ho avuto successo .
1 Macro da associare a pulsante con nome " Cancella ultima riga non vuota nel file test.ods tranne la prima "

2 Macro da associare a pulsante " Cancella tutte le righe tranne laprima del file test.ods

Vi allego i due file .

[patel]

1 Macro da associare a pulsante con nome " Cancella ultima riga non vuota nel file test.ods tranne la prima "

Codice: Seleziona tutto

Sub Main
Doc = ThisComponent
osheet = Doc.sheets(0)
LR = getLastUsedRow(oSheet)
if LR > 0 then    
   oSheet.getRows.removeByIndex(LR, 1)    
End if
End Sub


Function getLastUsedRow(oSheet as Object) as Integer
Dim oCell As Object
Dim oCursor As Object
Dim aAddress As Variant
oCell = oSheet.GetCellbyPosition( 0, 0 )
oCursor = oSheet.createCursorByRange(oCell)
oCursor.GotoEndOfUsedArea(True)
aAddress = oCursor.RangeAddress
GetLastUsedRow = aAddress.EndRow
End Function

[patel]

2 Macro da associare a pulsante " Cancella tutte le righe tranne laprima del file test.ods

Codice: Seleziona tutto

Sub Main2
Doc = ThisComponent
osheet = Doc.sheets(0)
LR = getLastUsedRow(oSheet)
for r = Lr to 1 step -1
   oSheet.getRows.removeByIndex(r, 1)    
next
End Sub

[Aldo75]

Perfetto !! Sono riuscito a modificarle come servivano a me !!
Grazie Mille !!