Macro per eliminare righe sotto

[marnevi]

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]

Nessuno può darmi una soluzione?

[alfrimpa]

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".

[bismark]

Buongiorno a tutti

ciao Alfredo

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

buon pomeriggio

[marnevi]

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