Excel - CERCA.VERT "dinamico"

[gaetano73]

Faranno loro o meglio lui: il mio capo. Io devo consegnare solo il "prodotto" che funziona.
Lui provvederà a farlo "girare"...

[ricky53]

E come lo farà girare se non trova i file che non puoi aprire ?
Saranno problemi SUOI !!!

Seriamente ponilo a LORO come problema.

[gaetano73]

Forse mi sono espresso in maniera infelice.
Il file che io devo cosegnare deve semplicemente fare il suo dovere ovvero, eseguire i CERCA.VERT su altri file che stanno in determinati percorsi. Prima o poi questi percorsi cambieranno; ai nuovi non potrò neanche accedervi ed io dovrò produrre un nuovo file dove ci saranno CERCA.VERT che attingeranno i dati dai nuovi file posizionati in nuovi percorsi.
Ad esempio ora su mio file ci saranno istruzioni tipo
=CERCA.VERT($B7;'\\dati5\Febbraio 2013\[Dipendenti_01_02_2013.xls]OreOrdinarie'!$D$5:$G$88;2;FALSO)
=CERCA.VERT($B7;'\\dati5\Febbraio 2013\[Dipendenti_02_02_2013.xls]OreOrdinarie'!$D$5:$G$88;2;FALSO)
=CERCA.VERT($B7;'\\dati5\Febbraio 2013\[Dipendenti_03_02_2013.xls]OreOrdinarie'!$D$5:$G$88;2;FALSO)
Domani ci saranno istruzioni del tipo
=CERCA.VERT($B7;'\\dati12\Aprile 2013\[Dipendenti_01_04_2013.xls]OreOrdinarie'!$D$5:$G$88;2;FALSO)
=CERCA.VERT($B7;'\\dati12\Aprile 2013\[Dipendenti_02_04_2013.xls]OreOrdinarie'!$D$5:$G$88;2;FALSO)
=CERCA.VERT($B7;'\\dati12\Aprile 2013\[Dipendenti_03_04_2013.xls]OreOrdinarie'!$D$5:$G$88;2;FALSO)
Per evitare di cambiare a mano il contenuto di tutti i (centinaia di) CERCA.VERT volevo implementare qualcosa che me lo facesse in automatico.

[Anthony47]

Adesso a che punto sei?

[gaetano73]

Ho quasi finito... di modificarli a mano

[Anthony47]

Quindi non sei riuscito a far funzionare il codice che inseriva nelle celle direttamente la formula Cerca.Vert?

[gaetano73]

No. È il segno "=" che dà il problema...

Se la marco cerca di incollare

Codice: Seleziona tutto

=CERCA.VERT($B7;'\\dati5\Febbraio 2013\[Dipendenti_01_02_2013.xls]OreOrdinarie'!$D$5:$G$88;2;FALSO)

mi da "Errore di run-time '1004' Errore definito dall'applicazione o dall'oggetto"
Se gli faccio incollare

Codice: Seleziona tutto

CERCA.VERT($B7;'\\dati5\Febbraio 2013\[Dipendenti_01_02_2013.xls]OreOrdinarie'!$D$5:$G$88;2;FALSO)

quindi senza = all'inizio, la macro funziona nel senso che mi incolla la stringa ma, ovviamente, non fa il suo dovere perché senza = viene interpretata come una stringa di testo e non come una funzione...

[Anthony47]

A me istruzioni di questo tipo funzionano correttamente:

Codice: Seleziona tutto

pippo = "=CERCA.VERT($B7;'\\dati5\Febbraio 2013\[Dipendenti_01_02_2013.xls]OreOrdinarie'!$D$5:$G$88;2;FALSO)"
ActiveCell.FormulaLocal = pippo


Oppure direttamente

Codice: Seleziona tutto

ActiveCell.FormulaLocal = "=CERCA.VERT($B7;'\\dati5\Febbraio 2013\[Dipendenti_01_02_2013.xls]OreOrdinarie'!$D$5:$G$88;2;FALSO)"

Devo quindi immaginare che la stringa che ottieni e' diversa da quella che andrebbe usata nella formula con FormulaLocal; prova a ispezionare il contenuto della variabile contenuto_cella per accertarne il contenuto.

Ciao

[gaetano73]

Siiiiiiiiiiiiiiiiiiiiiiiiii. Risolto!
Ecco dove avevo sbagliato... mi ostinavo ad usare ActiveCell.FormulaR1C1 anziché ActiveCell.FormulaLocal!!!
Leggendo l'ultimo post di Anthony47 mi è saltato agli occhi l'errore. Per questa svista vi autorizzo ad offendermi
Grazie 1G!

[Anthony47]

Per questa svista vi autorizzo ad offendermi

Scusa, oggi mi sento particolarmente pigro; puoi per favore provvedere da solo, pubblicando poi l' epiteto scelto?

[gaetano73]

Certo!
Allora, io scriverei: "È con viva e vibrante soddisfazione che possiamo darti del... distrattone!"