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

[giumat79]

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

[Alexsandra]

Codice: Seleziona tutto

Sub cancella_riga()
ActiveCell(1).EntireRow.Delete
End Sub

[giumat79]

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

[Alexsandra]

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

[giumat79]

Elimina solo dal primo foglio e poi si sposta sul secondo foglio senza eliminare nulla con un errore 400

[giumat79]

E se seleziono più celle ne elimina solo una

[Alexsandra]

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

[giumat79]

Funziona! Grazie Mille!!!!

[Alexsandra]