Aggiungere Formule ad un Data Validation

[dipic]

Buongiorno
in Excel 2013 (windows 7 pro), inserisco in una cella ed in modo manuale, la seguente formula come "Data Validation" ( =INDICE(INDIRETTO("t_B4_Portata");0;3) ) ,e funziona perfettamente ( "t_B4_Portata" è un NAME con 4 colonne e 10 righe).

Siccome devo inserire la formula in più celle, vorrei automatizzare il tutto con VBA:

Dim sFORMULA as string
sFORMULA = "=INDICE(INDIRETTO(""t_B4_Portata"");0;3)"
With Range("B4").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=sFORMULA
End With

variando poi il Range("B4") dove inserire la formula, ma continuo ad ottenere l'errore:

"Errore di run-time '1004': Errore definito dall'applicazione o dall'oggetto"

sostituendo sFORMULA con un semplicissimo sFORMULA = "Excel,Word,PowerPoint", a volte funziona ed a volte dà lo stesso errore... dove stò sbagliando o cosa mi sfugge?
grazie per qualsiasi risposta vorrete darmi

[Anthony47]

Nel vba devi usare le formule nella sintassi americana; quindi:

Codice: Seleziona tutto

sFORMULA = "=INDEX(INDIRECT(""t_B4_Portata""),0,3)"


Ciao

[dipic]

Ciao Anthony e grazie per la celere risposta.
Mi sono dimenticato di aggiungere che avevo già testato la soluzione che proponi ed il comportamento è sempre lo stesso.

[Anthony47]

A me con qualle modifica funziona; puoi pubblicare il codice che usi?

[dipic]

se mi dici come posso fare ti mando direttamente il file completo

[Anthony47]

Per le istruzioni su come allegare un file:
viewtopic.php?f=26&t=103893&p=605487#p605487

[dipic]

https://we.tl/08EZG1pJSq

ecco ti ho postato la bozza iniziale di quello che voglio fare

[Anthony47]

Nel vba devi usare le formule nella sintassi americana; quindi:

Codice: Seleziona tutto

    sFORMULA = "=INDEX(INDIRECT(""t_B4_Portata""),0,3)"

Hai copiato male la formula.

[dipic]

scusami Anthony, ma non riesco a vedere dove ... stai guardando la macro "InsertValidationData" ?
E' quella che mi fà da test e li mi sembra xscritto giusto...

[Anthony47]

Se non l'hai ancora visto, nella Sub InsertValidationData:

Codice: Seleziona tutto

sFORMULA = "=INDEX(INDIRECT(""t_B4_Portata"");0;3)"      'Sbagliato


Codice: Seleziona tutto

sFORMULA = "=INDEX(INDIRECT(""t_B4_Portata""),0,3)"      'Giusto     

[dipic]

scusami ero stanco dopo aver provato e riprovato più volte e non mi ero accorto della punteggiatura.
Così funziona perfettamente.
Grazie per il tuo prezioso aiuto
dp