funzione excel 2003 complessa

[libraio]

Un saluti a tutti e la richiesta di un aiuto prezioso...
Da due fogli di lavoro con dati simili devo rilevare i cambi prezzo.
Vorrei ottenere una formula che, applicata ad una colonna vuota del Foglio2, pubblicasse il prezzo -se variato- rispetto il medesimo aricolo in Foglio1. L'unita di confronto -codice articolo- è in colonna 'A' di ambedue i fogli della cartella.

Ho iniziato ad elaborare la formula da altra applicazione, nel modo seguente:
=SE(VAL.ERRORE(CERCA.VERT(A2;Foglio1!$A$1:$Z$10000;
ma non riesco a proseguire, per ottenere il risultato:
- in 'n'2 del Foglio2 ottengo il prezzo dell'articolo in Foglio1, se diverso da quello del medesimo articolo in Foglio2.

Grazie per la collaborazione
libraio

[ricky53]

Ciao,
il "codice articolo" è presente una volta solo nella colonna "A" di entrambi i fogli vero ???

Il "prezzo" in che colonna si trova ???
La colonna del "prezzo" è la stessa per entrambi i fogli ???

[ricky53]

Così tanto per gradire:

ipotesi
1. i dati del codice articolo sono in colonna "A"
2. i dati del prezzo sono in colonna "B"
3. nel foglio1 e nel foglio2 i dati sono sempre in colonna "A" e "B"
4. le righe impostate sono "100"

ecco una formula ca copiare un "C2" del foglio2 e da trascinare in basso per le 100 righe
e ... prova

Codice: Seleziona tutto

=SE(SE(VAL.ERRORE(CERCA.VERT($A$2:$A$100; Foglio1!$A$2:$B$100; 2; 0)); B2; CERCA.VERT($A$2:$A$100;Foglio1!$A$2:$B$100; 2; 0))<>B2; CERCA.VERT($A$2:$A$100;Foglio1!$A$2:$B$100; 2; 0); "-")

[libraio]

Ti ringrazio per il contributo e rispondo alle tue domande.
Premesso che in Foglio2 inserisco il mio prezziario desunto dal gestionale, in foglio1 inserisco, di volta in volta, i listini dei diversi fornitori, pertanto:
in Foglio2: codice articolo sempre in colonna 'A'; prezzo sempre in colonna 'L'
in Foglio1: le posizioni del codice articolo e del prezzo sono diverse, dipendendo dal file dei diversi fornitori.

Posso tuttavia intervenire sul Foglio1 prima di applicare la formula, uniformando la posizione del codice articolo e del prezzo in base alla tua preziosa formula inserita nel secondo post.
libraio

[ricky53]

Ciao,
sarebbe meglio avere i dati nelle stesse colonne.
Vedi tu.

Ipotizziamo che il prezzo sia in entrambi i fogli in colonna "L"

Devi adattare la formula:
a. modificando "B" con "L" tutte le volte che è presente
b. modificando il "2" (sta per colonna "B") con "12" (colonna "L")

[libraio]

Perfetto.
Grazie
libraio

[ricky53]

Di nulla, è stato un piacere.
Alla prossima.

[libraio]

Temo ci sia un errore nella formula...
L'ho applicata alla cartella di lavoro con i correttivi segnalatami, ma in tutte celle ottengo come risultato il segno "-", anzichè il nuovo prezzo (se cambiato), desunto dal foglio1.

Ecco la formula che ho applicato dopo le correzioni indicatemi:
=SE(SE(VAL.ERRORE(CERCA.VERT($A$2:$A$5000; Foglio1!$A$2:$B$5000; 12; 0)); L2; CERCA.VERT($A$2:$A$5000;Foglio1!$A$2:$B$5000; 12; 0))<>L2; CERCA.VERT($A$2:$A$5000;Foglio1!$A$2:$B$5000; 12; 0); "-")

Cosa devo modificare?
Ancora grazie

[Anthony47]

Non ho analizzato la sostanza della formula, penso che l' abbia fatto Ricky; ma nella forma e' sbagliato usare nella cerca.vert l' area $A$2:$B$5000 e poi 12 come indice (la col 12=L non e' inclusa nell' area dichiarata); quindi dovresti usare $A$2:$L$5000

Ciao

[ricky53]

Ciao,
Anthony: si la formula è mia ed era stata scritta con un altro intervallo, doveva adattarla Libraio.

Libraio: ricordi cosa ti avevo scritto

Devi adattare la formula:
a. modificando "B" con "L" tutte le volte che è presente
b. modificando il "2" (sta per colonna "B") con "12" (colonna "L")

Tu non hai sostituito "B" con "L" !!!

[libraio]

Ho effettuato le ulteriori correzioni, ma il risultato continua ad essere "-" anzichè il nuovo prezzo.
Ho quindi pensato di ricondurre tutto all'origine; ho ridotto i dati dei due fogli alle sole colonne A (codice articolo per ambedue i fogli) e B (prezzo attuale in foglio2, nuovo prezzo in foglio1).
Applicata la formula originaria di Ricky in colonna C del foglio2 ottengo comunque unicamente il segno "-"
Ho postato la cartella di lavoro:
http://ul.to/yvhh47
Io non riesco a venirne fuori...
Grazie per l'attenzione

[Anthony47]

Hai un elenco lungo 4050 righe, nella formula ti limiti a sondare $A$2:$A$100…
Metti $A$2:$A$10000 (oppure A:B) e funzionera'.
Una piccola alternativa potrebbe essere questa formula

Codice: Seleziona tutto

=SE(VAL.ERRORE(CERCA.VERT(A2;Foglio1!A:B;2;0));"-";SE(CERCA.VERT(A2;Foglio1!A:B;2;0)<>B2;CERCA.VERT(A2;Foglio1!A:B;2;0);"--"))

Che fa distinzione se la voce manca nell' elenco di Foglio1 (restituisce -) o se i due prezzi sono uguali (restituisce --).

Ciao

[libraio]

Grazie Anthony,
ovviamente l'esempio in upload andava "allungato" alle righe presenti, ma lo avevo solo testato per riscontrare i risultati (anche solo sulle prime 100 righe, del resto già il prezzo in prima riga è variato).
Ho verificato la tua formula ed è perfetta.
Ringrazio anche Ricky per la paziente attenzione accoradtami.
Siete preziosi!

[libraio]

Ancora una richiesta, sperando di "non allargarmi" troppo...
Ho automatizzato l'applicazione della formula suggeritami da Anthony, ottenendo la macro seguente:

Range("N2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-12],Foglio1!C[-13]:C[-2],12,0)),""manca"",IF(VLOOKUP(RC[-12],Foglio1!C[-13]:C[-2],12,0)<>RC[-1],VLOOKUP(RC[-12],Foglio1!C[-13]:C[-2],12,0),""invariato""))"
Selection.AutoFill Destination:=Range("N2:N1123")
Range("N2:N1123").Select
End Sub

Poichè i listini sono di lunghezza variabile, vorrei inserire nella macro un contatore righe piene in Foglio2, ma non ne vengo a capo, malgrado tentativi diversi (e vani).
Posso avere (spudoratamente) un altro aiuto?
Grazie

[Anthony47]

La mia formula e' perfetta, ma anche quella di Ricky era discreta (ciao Ricky ): e' vero che gia' sulla prima riga il prezzo era diverso da quello presente in Foglio1, ma su Foglio1 tu limitavi la ricerca alle prime 100 righe, mentre il codice 9788808001061 e' in riga 2680..

Per il nuovo quesito:
-metti a mano la formula in riga 2
-poi la tua macro includera'

Codice: Seleziona tutto

Range("N3:N" & Rows.Count).Clear
Range("N2").Copy Destination:=Range("N2").Resize(Cells(Rows.Count, 1).End(xlUp).Row)


Ciao

[ricky53]

Anthony: la modestia è il tuo forte !!! Complimenti !!!

Per la tua soluzione hai preso spunto dalla mia !!! Eh, Eh !!!
Vuoi fare il Giotto della situazione ???

[libraio]

Lunga vita a Giotto e Cimabue che "litigano" per la migliore creazione!
A goderne sono gli interlocutori
Grazie!

[libraio]

Dopo l'ultima risposta di Anthony sono più incasinato di prima...
Se ho ben capito, tu mi suggerisci di abbandonare la macro iniziale, scrivere la formula in linea 2 ed inserire il codice del contatore in una macro ex-novo (sbaglio)?
Così facendo io non ttengo nulla, o meglio: errori su errori.
Ho ripreso la mia macro ed ho "tentato" di inserire il codice contatore, ma non ne vengo a capo comunque.
Io vorrei "semplicemente" che la formula, lanciata con la macro, venisse applicata alle righe piene
Posso ancora sperare in voi? (gli affreschi sono stupendi...)
libraio

[Anthony47]

Non so quale e' la tua macro, io dicevo

Codice: Seleziona tutto

Sub replicaN2()
Range("N3:N" & Rows.Count).Clear
Range("N2").Copy Destination:=Range("N2").Resize(Cells(Rows.Count, 1).End(xlUp).Row)
End Sub


Da lanciare con la formula iniziale scritta in N2

Ciao

[libraio]

Allora avevo applicato giustamente il tuo precedente suggerimento,ma... se io inserisco manualmente la formula in N2 e poi lancio la macro:

Sub replicaN2()
Range("N3:N" & Rows.Count).Clear
Range("N2").Copy Destination:=Range("N2").Resize(Cells(Rows.Count, 1).End(xlUp).Row)
End Sub

non succede nulla (la formula resta apllicata unicamente in N2).

La mia macro, che funziona e che vorrei applicasse la formula a tutte le righe piene (attualmente vincolata a 1123 righe ) è la seguente:

Sub Applica_Formula()
Range("N2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-12],Foglio1!C[-13]:C[-2],12,0)),""manca"",IF(VLOOKUP(RC[-12],Foglio1!C[-13]:C[-2],12,0)<>RC[-1],VLOOKUP(RC[-12],Foglio1!C[-13]:C[-2],12,0),""invariato""))"
Selection.AutoFill Destination:=Range("N2:N1123")
Range("N2:N1123").Select
End Sub

Spero di non abusare della tua disponibilità...