Condividi:        

[Excel] Macro per cancellare una riga da tutti i 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

[Excel] Macro per cancellare una riga da tutti i fogli.

Postdi giumat79 » 21/04/06 10:04

Ciao,
devo eliminare una o più righe selezionate da tutti i fogli di una cartella.
Le righe da eliminare sono quelle in cui sono posizionato.

Non trovo soluzione!!!

Grazie

Matteo
giumat79
Utente Junior
 
Post: 15
Iscritto il: 21/04/06 10:01

Sponsor
 

Postdi Alexsandra » 21/04/06 10:13

Codice: Seleziona tutto
Sub cancella_riga()
ActiveCell(1).EntireRow.Delete
End Sub
Avatar utente
Alexsandra
Utente Senior
 
Post: 2358
Iscritto il: 09/01/06 20:31

Postdi giumat79 » 21/04/06 16:28

Questo cancella la riga solo nel foglio in cui sono.
A me serve una macro che:
se sono nella cella A1 del Foglio 1
elimina
la riga 1 del foglio 1
la riga 1 del foglio 2
la riga 1 del foglio 3
ecc..
indipendentemente anche da dove sono posizionato nel foglio 2, 3, ecc..
Grazie
giumat79
Utente Junior
 
Post: 15
Iscritto il: 21/04/06 10:01

Postdi Alexsandra » 21/04/06 16:50

Prova così
Codice: Seleziona tutto
Sub cancella_riga()
Dim foglio As Worksheet
alex = ActiveCell
For Each foglio In Worksheets
foglio.Select
Rows(alex).Select
ActiveCell(1).EntireRow.Delete
Next
End Sub
Avatar utente
Alexsandra
Utente Senior
 
Post: 2358
Iscritto il: 09/01/06 20:31

Postdi giumat79 » 26/04/06 07:11

Elimina solo dal primo foglio e poi si sposta sul secondo foglio senza eliminare nulla con un errore 400
giumat79
Utente Junior
 
Post: 15
Iscritto il: 21/04/06 10:01

Postdi giumat79 » 26/04/06 07:16

E se seleziono più celle ne elimina solo una :cry:
giumat79
Utente Junior
 
Post: 15
Iscritto il: 21/04/06 10:01

Postdi Alexsandra » 26/04/06 07:50

giumat79 ha scritto:Elimina solo dal primo foglio e poi si sposta sul secondo foglio senza eliminare nulla con un errore 400
Dove hai messo la macro? va messa in un modulo : vedi quì http://freefilehosting.net/bin/?id=pNHxlqjY , c'era un problema nel codice(rimaneva selezionata la riga) questo è il nuovo codice)
Codice: Seleziona tutto
Sub cancella()
Dim foglio As Worksheet
alex = ActiveCell
For Each foglio In Worksheets
foglio.Select
Rows(alex).Select
ActiveCell().EntireRow.Delete
ActiveCell.Select
Next
End Sub

Poi non l'avevi mica detto che volevi cancellare più righe.prova questo intanto
Avatar utente
Alexsandra
Utente Senior
 
Post: 2358
Iscritto il: 09/01/06 20:31

Postdi giumat79 » 26/04/06 16:25

Funziona! Grazie Mille!!!!
giumat79
Utente Junior
 
Post: 15
Iscritto il: 21/04/06 10:01

Postdi Alexsandra » 26/04/06 16:39

:D :D
Avatar utente
Alexsandra
Utente Senior
 
Post: 2358
Iscritto il: 09/01/06 20:31


Torna a Applicazioni Office Windows


Topic correlati a "[Excel] Macro per cancellare una riga da tutti i fogli.":


Chi c’è in linea

Visitano il forum: Nessuno e 57 ospiti