eliminazioni righe

Hai un problema con Excel?

Nuova discussione

eliminazioni righe
di ludagi data: 19/05/2016 11:59:45
in una macro devo inserire istruzione per cancellare righe da una prestabilita sino alla terzultima riga

aiuto

grazie

di Luzulo data: 20/05/2016 10:40:02
Ciao
La descrizione di ciò che vuoi fare è un po scarna.
Puoi prendere ispirazione da questo codice:

Sub CancellaRighe()
Dim R0 As Single
'Riga di partenza
R0 = 4
'Cancella
Range(Cells(R0, 1), Cells(Range("A1").CurrentRegion.Rows.Count - 3, 1)).EntireRow.Delete 'Usa Delete (Elimina riga intera) o Clear (cancella contenuto)
End Sub

eliminazioni righe
di ludagi data: 19/05/2016 11:55:31
in una macro devo inserire istruzioni per eliminare righe da una riga prestabilita sino alla terzultima riga

aiuto

grazie
eliminazioni righe
di ludagi data: 19/05/2016 11:56:31
in una macro devo inserire istruzioni per eliminare righe da una riga prestabilita sino alla terzultima riga

aiuto

grazie
di alfrimpa data: 19/05/2016 11:59:51
Ciao Ludagi

Allega un file di esempio corredato del risultato che vuoi ottenere.

Alfredo
di ludagi data: 19/05/2016 12:06:10
ho allegato un file di esempio

di Raffaele_53 data: 19/05/2016 12:21:33
Capisco il mio problema d'italiano, ma eliminare oppure cancellare?
Celle oppure righe?
Questo per celle.

Sub cancella()
Dim Ur
Ur = Range("A" & Rows.Count).End(xlUp).Row
Range("A5:A" & Ur - 3) = ""
End Sub
'oppure
Sub elimina()
Dim Ur
Ur = Range("A" & Rows.Count).End(xlUp).Row
Range("A5:A" & Ur - 3).Delete Shift:=xlUp
End Sub

di ludagi data: 19/05/2016 15:56:04
eliminare righe intere

il conteggio delle righe deve iniziare da una riga prestabilita

di patel data: 19/05/2016 16:06:00
prova così

Sub elimina()
Dim Ur
Ur = Range("A" & Rows.Count).End(xlUp).Row
Range("A5:A" & Ur - 3).EntireRow.Delete Shift:=xlUp
End Sub

di ludagi data: 19/05/2016 16:30:05
ok

grazie

Vuoi Approfondire?