[Risolto] Eliminare tramite macro tutti i valori all'interno di un foglio (2a variante)

[Novarest]

Buongiorno. Vorrei riprendere se possibile e in maniera leggermente diversa un tema che l'utente Nando69 ha postato qualche giorno fa relativo all'azzeramento in automatico di alcuni valori presenti su un determinato foglio di lavoro. Argomento certamente non comune ma che anch'io ritengo possa essere comodo per tanti,soprattutto se fattibile attraverso una macro. A me serviva esattamente un modo per eliminare non soltanto valori specifici ma tutto quello presente all'interno del foglio stesso (siano essi numeri,nomi,immagini o quant'altro). Allego un piccolissimo file d'esempio. Grazie

[patel]

Codice: Seleziona tutto

Sub UsedRangeCanc
Doc = ThisComponent
Sh = Doc.Sheets(0)
oRg = Sh.createCursor()
oRg.gotoStartOfUsedArea(False)
oRg.gotoEndOfUsedArea(True)
oRg.ClearContents(5)
End Sub

[Novarest]

Ciao Patel. Grazie per la risposta. Se eventualmente volessi azzerare solo i valori presenti nel range A1-B3 lasciando stare quelli in A4-B6,cosa occorre modificare per favore ?

[patel]

Codice: Seleziona tutto

Sub RangeCanc
Doc = ThisComponent
Sh = Doc.Sheets(0)
rng = Sh.getCellRangeByName("A1:B3")
Rng.ClearContents(5)
End Sub

[Novarest]

Grazie mille