[excel]macro per numerazione progressiva

[Zoidberg]

Ciao a tutti, sono nuovo del sito ed ho un piccolo problemino, ho scritto una macro per elaborare dei files con numeri di righe variabili, all'incirca 1000 1500 righe, e per elaborare in modo sicuro le righe devo inserire una numerazione progressiva da 1 al numero complessivo delle righe, nella colonna 19
(1, 2,3,4,5,6.........)

Ho gia un cilco che scorre le righe, per cui volevo inserirlo qui

Dim n As Integer

n = 1

Do While Cells(n, 1) <> ""

Cells(n, 15).Select
ActiveCell.FormulaR1C1 = "=VALUE(TEXT(RC[-11],""00-00-0000""))"


n = n + 1
Loop

ora, il problema è abbastanza banale, ma io non so come scrivere l'istruzione che faccia scrivere il valore di n nella casella "n, 19"

potreste aiutarmi?

Grazie

[Anthony47]

Questa dovrebbe andare bene:

Codice: Seleziona tutto

Cells(n, 15).value = n

Se usi lo scorrimento per determinare quali righe sono utilizzate, allora potresti anche usare questa istruzione:

Codice: Seleziona tutto

LastRow = Range("A65536").End(XlUp).Row

che restituisce il valore nella variabile LastRow.

Ciao,

[Zoidberg]

grazie, perfetto!