Quota:
Inviato da paky89
Fatto..ma mi porta un debug..
Codice:
Sub ultima_riga2()
ultimar = Range("A" & Rows.Count).End(xlUp).Row
Rows(ultimar - 1).Insert Shift:=xlDown
End Sub
|
Per forza ..... la colonna A è vuota .......
quel codice trova l'ultima riga contenente dati di una colonna (nell'esempio la colonna A) se non ci sono dati ti riporta la riga 1 che nella riga di codice evidenziata in giallo si scala di 1 per cui il valore diventa 0
nel foglio del file che mi hai mandato non puoi usare quella macro nella colonna A cambia il riferimento di colonna