[vba] cambio impostazioni pc

[expectancy.pm]

Questo codice:
ActiveWorkbook.Names.Add Name:="AutoAdatta", RefersToLocal:="=SCARTO(Foglio1!$" & LetteraColonna(0) & "$3,0,0,CONTA.VALORI(Foglio1!$" & LetteraColonna(0) & ":$" & LetteraColonna(0) & ")+30,1)"
mi inserisce nell'etichetta "AutoAdatta" una formula ed è perfettamente funzionante da sempre.

Ora avendo cambiato le impostazioni del pc da inglese ad italiano, ho corretto tutto il listato e tutto funziona ad eccezione del codice succitato. Ho provato a sostituire la , con ; ma mi da sempre errore nella formula. Qualcuno mi sa dire come fare?

[ricky53]

Ciao,
dovresti dire quale errore ottieni.

[expectancy.pm]

RUN-TIM 1004
"La formula digitata contiene un errore"

Sempre il solito errore.

[ricky53]

Ciao,
la funzione "LetteraColonna" restituisce una lettera, ossia la colonna ma senza nessun numero ???

Puoi inviare la funzione "LetteraColonna"

[expectancy.pm]

Ciao,
la funzione "LetteraColonna" restituisce una lettera, ossia la colonna ma senza nessun numero ???

Puoi inviare la funzione "LetteraColonna"

La funzione letteracolonna mi identifica solo la lettera... puoi sostituire a letteracolonna(0) una lettera qualsiasi l'errore è sempre lo stesso.

[raimea]

ciao a tutti
uso questo post x non crearne uno nuovo, xche il problema puo "rientrare" in questo.
dopo aver formattato ed reinstallato off. 2003 in excel questa formula non mi viene piu'
riconosciuta...

Codice: Seleziona tutto

=FINE.MESE(B2;0)+1

perche' ?
come fare per farla funzionare come prima di formattare ?
grazie

[ricky53]

Ciao expectancy.pm,
l'avevo già fatto per questo ti avevo fatto la domanda!

Prima del cambio di impostazioni sul PC cosa veniva scritto in "AutoAdatta" ?

Puoi inviare il codice della macro copiandolo con Ctrl+c e Ctrl+V

[expectancy.pm]

Supponendo che letteracolonna(0)=CB
veniva inserita questa formula:
=SCARTO(Foglio1!$CB$3;0;0;CONTA.VALORI(Foglio1!$CB:$CB)+30;1)

Grazie

[expectancy.pm]

Ricky il codice della macro è quella che scritto al primo post.

[expectancy.pm]

Ricky intanto grazie per l'aiuto, ricapitoliamo e semplifichiamo senza numerocolonna(0).

questo è il codice macro prima dell'impostazione del sistema a italiano:

ActiveWorkbook.Names.Add Name:="AutoAdatta", RefersToLocal:="=SCARTO(Foglio1!$CB$3,0,0,CONTA.VALORI(Foglio1!$CB:$CB)+30,1)"

nell'etichetta Autoadatta finiva la formula:
=SCARTO(Foglio1!$CB$3,0,0,CONTA.VALORI(Foglio1!$CB:$CB)+30,1)"

Ora con il pc settato su italiano la stessa formula mi da sempre errore anche sostituendo le virgole della formula con il puntovirgola.

Spero sia più chiaro.

[ricky53]

Ciao,
sicuro ?
Per me c'è un errore nei parametri della formula.
Se la copi in una cella cosa ottieni ?

[expectancy.pm]

Certo che sono sicuro... la formula si trova ancora nell'etichetta, l'ho solo copiata ed incollata. Ed è presente in moltissimi file. Lascia perdere cosa ottieni in una cella.
Prova a settare il pc in inglese e vedrai che il codice ti inserisce quella formula nell'etichetta autoadatta.
Se torni a italiano non funziona più.

[ricky53]

Ciao,
non penso sia necessario alterarsi ... sto solo cercando di aiutarti e ti ho fatto le domande solo per tentare di arrivare alla soluzione !

Volevo evitare il nome elenco per fare prima a vedere il risultato e correggere l'errore ecco il motivo della mia richiesta di scrivere la formula nella cella.

[expectancy.pm]

Ricky ma non mi sono affatto alterato, scusami se ti ho dato questa impressione

[ricky53]

Ciao,
tutto a posto !!!

Prova in questo modo

Codice: Seleziona tutto

    ActiveWorkbook.Names.Add Name:="AutoAdatta", RefersToR1C1:= _
        "=OFFSET(Foglio1!R3C80, 0, 0, COUNTA(Foglio1!C80)+30, 1)"

Così a me funziona speriamo che funzioni anche a te !!!

[expectancy.pm]

Grazie Ricky, ma la lettera C cambia di file in file.... con la variabile letteracolonna(0). Preferirei la formula normale.
Ciao

[ricky53]

Ciao,
io ho lavorato sulla formula semplificata per tornare a quella originale basta sostituire "C80" con la tua funzione, però invece di una lettere devi mettere il numero della colonna, nell'esempio "80"
In quest modo

Codice: Seleziona tutto

ActiveWorkbook.Names.Add Name:="AutoAdatta", RefersToR1C1:= _
        "=OFFSET(Foglio1!R3C" & LetteraColonna(0) & ", 0, 0, COUNTA(Foglio1!C" & LetteraColonna(0) & ")+30, 1)"

[expectancy.pm]

Si ok avevo capito... Grazie Ricky sei stato gentilissimo e scusami di nuovo per prima.
Un saluto

[ricky53]

Ciao,
bene.
Grazie a te per il riscontro.

Buon proseguimento e ... alla prossima.

[Anthony47]

@Raimea: ti sei inserito in una discussione "calda" e (giustamente) sei stato ignorato.
Comunque devi installare il Componente aggiuntivo "Strumenti di analisi" (Menu /Strumenti /Componenti aggiuntivi)

Ciao