CIAO,
L'elenco a discesa accetta solamente 255 caratteri da una stringa ELENCO
ELENCO = "SFASGASDFGDSFG,DFGSDGSD,GSD,GSD,G,SDG,SGH,FGH,FDH,FD,H,DF,HDF,HG,FD,HFD,H,F"
Range("E1").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=ELENCO
End With
Ho provato ad inserirla in diversi modi, ma niente da fare.
ELENCO1="..."
ELENCO2="..."
ELENCO3="..."
ELENCO= ELENCO1 & ELENCO2 & ELENCO3 >>>> NON FUNZIONA
ELENCO="..." &_
"..." &_
"..." >>> NON FUNZIONA
Pensavo di: (se è fattibile)
a) caricare i dati da un altro file.
b) copiare le celle nel mio foglio copy A1:A100 >>> PASTE Z1:Z100
c) creare un for next di inserimentro dati con .ADD come proposto nei commenti precedenti.
"Pero' vorrei sapere questo elenco lunghissimo da dove lo prelevi, perche' forse allora ti converra passare al metodo "Add", per aggiungere ogni singolo valore."
for i = 1 to 100
...
Range("E1").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=cells(i,26)
End with
next i
d) cancellare la colonna Z
modificando qualche istruzione (forse chiedo troppo ,magari non esiste!!!!) di Type:=... o AlertStyle:=... o Operator:= ...
Cerca di avere pazienza, purtroppo sono testardo.
Infinitamente Grazie