help funzione excel 2033

[libraio]

Ciao a tutti,
cerco aiuto per una formula (o eventuale macro) che non riesco a "costruire", malgrado vari tentativi...

Nel foglio 3 di una cartella Excel 2003 ho una serie di codici numerici Ean13 in colonna A.
In Foglio 2, rinominato Cod.Editori ho in colonna ha una serie di codici parziali e di lunghezza variabile (dalle 7 alle 11 cifre) corrispondenti alla prima parte del cod. EAN13, associati ai rispettivi editori in colonna B

Io vorrei che sul Foglio3, colonna B, una funzione che riportasse il nome dell'Editore nel foglio Cod.Editore.
Esempio
- Foglio3 A1 = 9788800678483
. Cod.Editore = 97888006 Einaudi
In foglio 3 colonna B1 Einaudi

Spero di essere stato chiaro e confido il vostro prezioso aiuto.
Grazie

[Flash30005]

In B1 del foglio3 scrivi questa formula

Codice: Seleziona tutto

=CERCA.VERT(VALORE(SINISTRA(A1;LUNGHEZZA(Foglio2!A1)));Foglio2!A1:B9;2;FALSO)

Adatta la matrice (attuale A1:B9) del foglio2
e trascina verso il basso

ciao

[libraio]

Ringrazio Flash per la tempestiva risposta.
Ho provato la funzione, ma funziona "parzialmente": su 140 righe del foglio che ho testato, solo 2 mia hanno dato il risultato esatto; in altre appare l'errore N/D o l'errore VALORE.
Probabilmente non mi sono spiegato bene...
Sperando di non abusare della tua pazienza ho postato una cartella di esempio con la funzione suggeritami applicata (con relativi errori):

https://hotfile.com/dl/230342665/3f267f ... e.xls.html

grazie!

[Flash30005]

Infatti quella formula non va bene perché prevederebbe che i codici siano "allineati"
Prova questa macro

Codice: Seleziona tutto

Sub CompilaEd()
Set Ws2 = Worksheets("Foglio2")
Set Ws3 = Worksheets("Foglio3")
UR2 = Ws2.Range("A" & Rows.Count).End(xlUp).Row
UR3 = Ws3.Range("A" & Rows.Count).End(xlUp).Row
Ws3.Range("B2:B" & UR3).ClearContents
For RR2 = 1 To UR2
    S2 = Ws2.Range("A" & RR2).Value
    E2 = Ws2.Range("B" & RR2).Value
    LS2 = Len(S2)
    For RR3 = 2 To UR3
        S3 = Val(Left(Ws3.Range("A" & RR3).Value, LS2))
        If S2 = S3 Then Ws3.Range("B" & RR3).Value = E2
    Next RR3
Next RR2
End Sub

Ciao

[Anthony47]

Immagino che la macro di Flash risolva il problema.
Solo per curiosita', in B2 di Foglio3 provare con la formula

Codice: Seleziona tutto

=CERCA.VERT(--(SINISTRA(A2;SOMMA(SE(CONTA.SE(Foglio2!A:A;SINISTRA(A2;RIF.RIGA($7:$11)))>0;RIF.RIGA($7:$11);0))));Foglio2!A$1:B$10000;2;0)

Da confermare con Contr-Maiusc-Enter e copiare poi verso il basso.

Ciao

[libraio]

Ambedue le soluzioni propostemi funzionano perfettamente... ma nel foglio campione che avevo allegato.
Applicate al foglio di lavoro completo (che include altre macro) non funzionano, e non riesco a trovare "l'inghippo" che blocca l'applicazione delle vostre soluzioni.
Potete cortesemente verificarlo??

https://hotfile.com/dl/230480407/196f62 ... o.xls.html

Grazie

[Anthony47]

Per me la formula restituisce il valore corretto, se un codice editore e' presente in Foglio2 (dopo aver impostato il calcolo in Automatico).
Per molti codici viene restituito #Valore!, ma per quello che vedo in Foglio2 non c' e' nessuna equivalenza; succede ad esempio, su riga 125 di Foglio3 per il codice 9788860618788.
Mi fai un caso di calcolo per te errato?

Ciao

[Flash30005]

Per quanto riguarda la macro bisogna modificare il riferimento Editore alla colonna C in questa maniera

Codice: Seleziona tutto

Sub CompilaEd()
'
' CompilaEd Macro
' Macro registrata il 24/06/2013 da Libreria Garibaldi
'
Set Ws2 = Worksheets("Foglio2")
Set Ws3 = Worksheets("Foglio3")
UR2 = Ws2.Range("A" & Rows.Count).End(xlUp).Row
UR3 = Ws3.Range("A" & Rows.Count).End(xlUp).Row
Ws3.Range("C2:C" & UR3).ClearContents
For RR2 = 1 To UR2
    S2 = Ws2.Range("A" & RR2).Value
    E2 = Ws2.Range("B" & RR2).Value
    LS2 = Len(S2)
    For RR3 = 2 To UR3
        S3 = Val(Left(Ws3.Range("A" & RR3).Value, LS2))
        If S2 = S3 Then Ws3.Range("C" & RR3).Value = E2
    Next RR3
Next RR2
End Sub

e poi abbinarla ad un comando (pulsante)

Ciao

[libraio]

Ringrazio Anthony e Flash, puntuali e pazienti come sempre.
Quello che io chiamavo "inghippo" nell'applicazione delle vostre soluzioni nasceva dal fatto che alcuni editori dell'elenco non erano associati a nessun codice e sia la funzione, sia la macro proposta, una volta lanciate, selezionavano prioritariamente (ovvio...) questi editori. problema risolto con l'assegnazione dei codici.
Vi sono sinceramente grato
libraio