Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Eliminazione riga su più fogli

Ultimo Aggiornamento: 03/04/2016 09:36
Post: 1
Registrato il: 28/08/2010
Città: CHIETI
Età: 45
Utente Junior
Excell 2007
OFFLINE
01/04/2016 00:30

Salve avrei bisogno di sapere una macro che mi permetta di eliminare la stessa riga su più fogli.
es. ho un file di 10 fogli (dall'1 al 10) e voglio che la macro mi cancelli la riga della cella che seleziono sulla colonna C del foglio 1.
Quindi se ipoteticamente decidessi di cancellare la riga 5 selezionando la cella C5 del foglio 1 la macro mi dovrebbe cancellare la riga 5 di tutti e 10 i fogli di lavoro.
Grazie [SM=x423017] [SM=x423017]
Post: 319
Registrato il: 02/08/2015
Utente Senior
Excel 2013
OFFLINE
01/04/2016 01:40

Ciao,
potresti usare un codice del genere:

Sub Elimina_Righe()
Dim Riga As Long, Foglio As Worksheet

If Selection.Rows.Count > 1 Then
    MsgBox "Selezionare una sola riga o una sola cella"
    Exit Sub
End If
Riga = Selection.Row
For Each Foglio In Worksheets
    Foglio.Range("A" & Riga).EntireRow.Delete
Next
End Sub


Questo elimina completamente la riga, se invece vuoi eliminare solo i valori della riga al posto di Delete devi usare ClearContents.

Ti lascio un file di esempio...


"Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."
Post: 2
Registrato il: 28/08/2010
Città: CHIETI
Età: 45
Utente Junior
Excell 2007
OFFLINE
03/04/2016 09:36

Grazio 1000.
Funziona benissimo
Vota: 15MediaObject5,0013 1
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 23:29. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com