Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Aggiungere Formule ad un Data Validation

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Aggiungere Formule ad un Data Validation

Postdi dipic » 10/04/18 12:30

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
Avatar utente
dipic
Utente Senior
 
Post: 106
Iscritto il: 13/09/08 14:57
Località: Cormòns (I)

Sponsor
 

Re: Aggiungere Formule ad un Data Validation

Postdi Anthony47 » 10/04/18 13:24

Nel vba devi usare le formule nella sintassi americana; quindi:
Codice: Seleziona tutto
sFORMULA = "=INDEX(INDIRECT(""t_B4_Portata""),0,3)"

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17441
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Aggiungere Formule ad un Data Validation

Postdi dipic » 10/04/18 13:41

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.
Avatar utente
dipic
Utente Senior
 
Post: 106
Iscritto il: 13/09/08 14:57
Località: Cormòns (I)

Re: Aggiungere Formule ad un Data Validation

Postdi Anthony47 » 10/04/18 14:37

A me con qualle modifica funziona; puoi pubblicare il codice che usi?
Avatar utente
Anthony47
Moderatore
 
Post: 17441
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Aggiungere Formule ad un Data Validation

Postdi dipic » 10/04/18 14:46

se mi dici come posso fare ti mando direttamente il file completo
Avatar utente
dipic
Utente Senior
 
Post: 106
Iscritto il: 13/09/08 14:57
Località: Cormòns (I)

Re: Aggiungere Formule ad un Data Validation

Postdi Anthony47 » 10/04/18 14:50

Per le istruzioni su come allegare un file:
viewtopic.php?f=26&t=103893&p=605487#p605487
Avatar utente
Anthony47
Moderatore
 
Post: 17441
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Aggiungere Formule ad un Data Validation

Postdi dipic » 10/04/18 15:00

https://we.tl/08EZG1pJSq

ecco ti ho postato la bozza iniziale di quello che voglio fare
Avatar utente
dipic
Utente Senior
 
Post: 106
Iscritto il: 13/09/08 14:57
Località: Cormòns (I)

Re: Aggiungere Formule ad un Data Validation

Postdi Anthony47 » 10/04/18 15:03

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.
Avatar utente
Anthony47
Moderatore
 
Post: 17441
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Aggiungere Formule ad un Data Validation

Postdi dipic » 10/04/18 15:13

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...
Avatar utente
dipic
Utente Senior
 
Post: 106
Iscritto il: 13/09/08 14:57
Località: Cormòns (I)

Re: Aggiungere Formule ad un Data Validation

Postdi Anthony47 » 11/04/18 01:31

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     
Avatar utente
Anthony47
Moderatore
 
Post: 17441
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Aggiungere Formule ad un Data Validation

Postdi dipic » 12/04/18 09:11

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
Avatar utente
dipic
Utente Senior
 
Post: 106
Iscritto il: 13/09/08 14:57
Località: Cormòns (I)


Torna a Applicazioni Office Windows


Topic correlati a "Aggiungere Formule ad un Data Validation":


Chi c’è in linea

Visitano il forum: Nessuno e 46 ospiti

cron