Ciao,
devo inserire in parecchie tabelle una serie di codici identificativi, ma queste tabelle hanno circa 5000 righe... risultato: ora che finirò il lavoro di inserimento dei dati avrò capelli bianchi e barba incolta :)
C'è la possibilità, dando a una Santa Macro le istruzioni del caso, che il problema venga risolto da Excel?
Lo schema operativo è questo:
in una tabella di 4500 righe devo scrivere in col.AH, partendo dall'ultima riga scritta salendo in colonna fino a riga 3
ultima riga -> A
penultima riga -> B
3ultima riga -> C
4ultima riga -> D
5ultima riga -> E
6ultima riga -> riparte la serie da A a E via via fino alla prima riga della tabella, cioè riga 3 (escluse le intetestazioni, che sono in riga 1 e 2). Nel caso che la tabella non possa contenere tutta la serie, l'incollatura si ferma alla lettera che dev'essere scritta in riga 3 (ad es. se in riga 3 dev'essere scritta C, D ed E non vengono considerate).
Grazie assai e buona giornata
eZio

salve
vedi se ti va bene questa:

Sub segna()
Dim myarray As Variant
myarray = Array("A", "B", "C", "D", "E")
cont = 0
uriga = Range("a" & Rows.Count).End(xlUp).Row
For n = uriga To 3 Step -1
If cont > 4 Then cont = 0
Cells(n, 34).Value = myarray(cont)
cont = cont + 1
Next n
End Sub

saluti
Giap

---