[VBA] Creazione di un ciclo con le funzioni Evaluate e TROVA

[Begins]

Buongiorno,

ho la necessità di trasformare in un ciclo il codice di esempio seguente, in cui i valori evidenziati in grassetto sono quelli da maggiorare +1 a ogni ciclo. Di seguito l'esempio dei primi due cicli (i=2 e i=3), ma dovrei proseguire fino a i=150.

a = Evaluate("Colori!G2")
b = Evaluate("Colori!H2")
c = Evaluate("Colori!I2")
Range("B3").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SE.ERRORE(TROVA(Colori!$B$2;B3);""no"")<>""no"""
Selection.FormatConditions(Selection.FormatConditi ons.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.Color = RGB(a, b, c)
End With

a = Evaluate("Colori!G3")
b = Evaluate("Colori!H3")
c = Evaluate("Colori!I3")
Range("B3").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SE.ERRORE(TROVA(Colori!$B$3;B3);""no"")<>""no"""
Selection.FormatConditions(Selection.FormatConditi ons.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.Color = RGB(a, b, c)
End With

Non riesco a trasformare in variabile i valori riportati all'interno delle funzioni Evaluate e TROVA, così da poterli incrementare.

Se qualcuno fosse in grado di aiutarmi ne sarei davvero grato

Grazie mille

[gibra]

Prova così:

a = Evaluate("Colori!G" & i)

[patel]

Begins, evita di postare su tutti i forum che conosci, rischi di vederti chiudere le discussioni per crossposting, leggi il regolamento.

[Begins]

Begins, evita di postare su tutti i forum che conosci, rischi di vederti chiudere le discussioni per crossposting, leggi il regolamento.

Scusate, non pensavo fosse proibito, provvedo a eliminare lasciando questa discussione.

Provo a seguire il consiglio di gibra, che ringrazio, e vi faccio sapere!

Grazie mille

[Begins]

Prova così:

a = Evaluate("Colori!G" & i)

Grazie mille gibra, confermo che il tuo suggerimento per quanto riguarda Evaluate funziona.

In merito invece alla funzione TROVA non riesco ancora a risolvere:
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SE.ERRORE(TROVA(Colori!$B$2;B3);""no"")<>""no"""

Se riesci a darmi qualche consiglio ne sarei grato

Grazie mille

[gibra]

Vale lo stesso criterio, mi sembrava scontato.

[Begins]

Vale lo stesso criterio, mi sembrava scontato.

Ho provato infatti a fare come da te suggerito, ma appena inserisco le virgolette " all'interno del TROVA mi da "errore di compilazione previsto fine istruzione". Di seguito la prova:

Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SE.ERRORE(TROVA("Colori!$B$" & i;B3);""no"")<>""no"""

Ho provato anche nel seguente modo ma, seppur non dia errore, non funziona:

d = "Colori!$B$" & i
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SE.ERRORE(TROVA(d;B3);""no"")<>""no"""

[gibra]

Ovvio, devi concatenare le stringhe con criterio:

"=SE.ERRORE(TROVA("Colori!$B$" & i & ";B3);""no"")<>""no"""

[Begins]

Ovvio, devi concatenare le stringhe con criterio:

"=SE.ERRORE(TROVA("Colori!$B$" & i & ";B3);""no"")<>""no"""

Non funziona nemmeno come da te indicato, allego anche una immagine per maggiore chiarezza

Errore.jpg

[patel]

a questo punto ti conviene allegare un file di esempio, no immagine