Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Macro per eliminare righe sotto

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 eliminare righe sotto

Postdi marnevi » 21/10/15 19:09

Salve ragazzi. Come posso modificare la seguente macro in modo tale che essa funzioni solo per le righe che si trovano al disotto della riga numero 5? Grazie in anticipo...

Codice: Seleziona tutto
Sub EliminaRighe()
With Selection
.EntireRow.Delete
End With
End Sub
marnevi
Newbie
 
Post: 7
Iscritto il: 21/10/15 19:03

Sponsor
 

Re: Macro per eliminare righe sotto

Postdi marnevi » 21/10/15 21:08

Nessuno può darmi una soluzione?
marnevi
Newbie
 
Post: 7
Iscritto il: 21/10/15 19:03

Re: Macro per eliminare righe sotto

Postdi alfrimpa » 22/10/15 10:17

Ciao Marnevi

Posta un file di esempio con dati fittizi ma con struttura uguale al tuo così da far delle prove su un caso "concreto".
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 841
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Macro per eliminare righe sotto

Postdi bismark » 22/10/15 11:23

Buongiorno a tutti

ciao Alfredo

ha già risolto con la risposta da un'altro sito

buon pomeriggio
bismark
Utente Junior
 
Post: 54
Iscritto il: 08/07/15 15:03

Re: Macro per eliminare righe sotto

Postdi marnevi » 22/10/15 11:52

trovato la soluzione. Eccola:

Codice: Seleziona tutto
Sub EliminaRighe()
Dim Nriga As Long
Nriga = ActiveCell.Row
If Nriga > 5 Then Rows(Nriga & ":" & Nriga).Delete
End Sub
marnevi
Newbie
 
Post: 7
Iscritto il: 21/10/15 19:03


Torna a Applicazioni Office Windows


Topic correlati a "Macro per eliminare righe sotto":


Chi c’è in linea

Visitano il forum: Nessuno e 8 ospiti