Condividi:        

macro per cancellare determinate celle in alcuni fogli

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

macro per cancellare determinate celle in alcuni fogli

Postdi luca62 » 14/11/15 09:00

Carissimi,
necessito di due macro in un file,ma lo divido in due post in modo che le risposte
siano di maggior utilizzo a tutti gli amici:

Dato un file "PIPPO" con n fogli, ho la necessità di andare a copiare quel file
chiamandolo ad esempio copiavuota (nome del file) apportandoci alcune modifiche,ossia
cancellando per tutti i fogli tranne il primo e gli ultimi 8 fogli tutte le celle
comprese tra H3 e X500 (ossia le colonne da H a X .ma solo dalla riga 3 inclusa alla 500)

Grazie
luca62 office2007 window7
luca62
Utente Senior
 
Post: 173
Iscritto il: 23/12/12 14:54

Sponsor
 

Re: macro per cancellare determinate celle in alcuni fogli

Postdi Anthony47 » 14/11/15 14:55

Prova con:
Codice: Seleziona tutto
Sub SalvaVuoto()
For i = 2 To Worksheets.Count - 8
    Sheets(i).Range("H3:X500").ClearContents
Next i
ThisWorkbook.SaveAs Filename:="CopiaVuota.xlsm"
End Sub

Poiche' lavori sulla posizione dei fogli sara' utile proteggere la struttura della cartella di lavoro, tramite l comando Proteggi cartella di lavoro.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: macro per cancellare determinate celle in alcuni fogli

Postdi luca62 » 16/11/15 10:37

Anthony , dimenticavo che essendoi fogli già protetti, al comando devo aggiungere di sproteggerli per cancellare le colonne e poi una volta finito tutto di proteggerli ancora
luca62 office2007 window7
luca62
Utente Senior
 
Post: 173
Iscritto il: 23/12/12 14:54

Re: macro per cancellare determinate celle in alcuni fogli

Postdi luca62 » 16/11/15 11:55

risolto da me (incredibile ma vero!

Sub cancelladatiordini()
'
' cancelladatiordini Macro
' cancella i dati degli ordini dalla commessa.
'
For i = 2 To Worksheets.Count - 8
Sheets(i).Unprotect
Sheets(i).Range("H3:X500").ClearContents
Next i
ThisWorkbook.SaveAs Filename:="CopiaVuota.xlsm"
'
End Sub
luca62 office2007 window7
luca62
Utente Senior
 
Post: 173
Iscritto il: 23/12/12 14:54

Re: macro per cancellare determinate celle in alcuni fogli

Postdi Anthony47 » 16/11/15 15:35

Bravo...
Ma forse avresti dovuto anche riproteggere il foglio? Se Si, allora
Codice: Seleziona tutto
For i = 2 To Worksheets.Count - 8
   Sheets(i).Unprotect
   Sheets(i).Range("H3:X500").ClearContents
   Sheets(i).Protect
Next i

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "macro per cancellare determinate celle in alcuni fogli":


Chi c’è in linea

Visitano il forum: Nessuno e 58 ospiti