Numerazione Progressiva nella riga
La numerazione progressiva nella colonna o nella riga si ottiene in modo più semplice calcolando il valore massimo nella colonna o riga, e aumentando di 1, e poi scrivendo il risultato nella ultima cella della colonna o riga incrementata di una riga o di una colonna.
Riporto un esempio di procedura.
Devo segnalare che normalmente l'indice progressivo si scrive in una colonna della tabella.
In una riga è anomalo.
Sub IndiceProgressivoColonna()
Set rng = Cells(1, 1).CurrentRegion 'ottiene il range corrente con angolo A1
'se il range inizia da una cella diversa modificare cells(riga,colonna)
colonna = 1 'colonna dell'indice progressivo
maxcol = Application.Max(Columns(colonna - rng.Column + 1)) 'colonna è il numero di colonna del progressivo
newindex = maxcol + 1 'nuovo indice progressivo
newrow = rng.Row + rng.Rows.count 'ottierne la prima riga dopo l'intervallo
Cells(newrow, colonna).Value = newindex
End Sub
Sub IndiceProgressivoRiga()
Set rng = Cells(1, 1).CurrentRegion 'ottiene il range corrente con angolo A1
'se il range inizia da una cella diversa modificare cells(riga,colonna)
riga = 2 'riga dell'indice progressivo
maxrow = Application.Max(Rows(riga - rng.Row + 1)) 'riga è il numero di riga del progressivo
newindex = maxrow + 1 'nuovo indice progressivo
newcol = rng.Column + rng.Columns.count 'ottierne la prima colonna dopo l'intervallo
Cells(riga, newcol).Value = newindex
End Sub
Saluti
Dario