Cancellare contenuto di tutte le celle

[DamianoPartecipante Damiano]

Ciao,

avrei necessità che all'inizio del mio codice, ci fosse una riga per "pulire" l'intero foglio excel.

Cioè avrei bisogno del codice che eliminasse tutto il contenuto presente nelle celle.

Grazie mille a tutti

[Luca73Partecipante Luca73 Karma: 58 pts]

penso basti un 

Sheets("nomefoglio").Cells.ClearContents

[Mister_x Mister_x]

ciao

Range("A1:ZZ100000").ClearContents

ciao

[zer0kelvinPartecipante zer0kelvin Karma: 5 pts]

Sheets("nomefoglio").UsedRange.ClearContents

[alfrimpaPartecipante alfrimpa Karma: 33 pts]

Giova ricordare che se si vogliono cancellare i soli contenuti va usato ClearContents.

Se invece si vogliono cancellare anche i formati l’istruzione è Clear.

Alfredo

[vecchio fracSenior Moderator vecchio frac Karma: 272 pts]

Ecco la mia proposta.

Niente .ClearContents 😛

Option Explicit

Sub erase_cells()
Dim ash As String
Dim acn As String
Dim wsh As Worksheet

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    ash = ActiveSheet.Name
    acn = ActiveSheet.CodeName
    Set wsh = Worksheets.Add
    Worksheets(ash).Delete
    wsh.Name = ash
    ThisWorkbook.VBProject.VBComponents(wsh.CodeName).Name = acn
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

End Sub

[alfrimpaPartecipante alfrimpa Karma: 33 pts]

Vabbè VF vuoi ammazzare un moscerino con un bazooka?   

Alfredo

[vecchio fracSenior Moderator vecchio frac Karma: 272 pts]

Però funziona (se l'accesso al modello a oggetti del progetto VBA è considerato attendibile nella finestra delle opzioni) e tecnicamente risponde alla richiesta originale   

[DamianoPartecipante Damiano]

Ciao, perfetto, grazie mille a tutti!!!

Si beh, penso che

Sheets("nomefoglio").UsedRange.ClearContents

mi basti.....    

[Autore]

Articoli