Vado a provarla
grazie intanto
ciao
ps. ma sposta le celle o le righe? io avrei bisogno che rimanesse tutto allineato, quindi eliminare e spostare righe intere...
Eh, ma tu avevi parlato di una singola colonna...
Se devi cancellare e spostare intere righe devi modificare il programma così:
Sub eliminaCelleMenoUna()
inizio = Selection.Row
colonna = Selection.Column
altezza = Selection.Rows.Count
With ActiveSheet
.Range(.Rows(inizio + 1), .Rows(inizio - 1 + altezza)).Select
End With
Selection.Delete Shift:=xlUp
ActiveSheet.Cells(inizio, colonna).Select
End Sub
Non è necessario selezionare le righe intere, basta che selezioni le celle di una sola colonna
Al solito, se vuoi solo cancellare le righe lasciandole vuote basta che togli il pezzo
Shift:=xlUp