Condividi:        

help funzione excel 2033

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

help funzione excel 2033

Postdi libraio » 23/06/13 13:21

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
libraio
Utente Senior
 
Post: 329
Iscritto il: 04/01/10 20:31

Sponsor
 

Re: help funzione excel 2033

Postdi Flash30005 » 23/06/13 15:41

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
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: help funzione excel 2033

Postdi libraio » 23/06/13 17:44

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... :oops:
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!
libraio
Utente Senior
 
Post: 329
Iscritto il: 04/01/10 20:31

Re: help funzione excel 2033

Postdi Flash30005 » 24/06/13 08:22

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
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: help funzione excel 2033

Postdi Anthony47 » 24/06/13 11:15

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: help funzione excel 2033

Postdi libraio » 24/06/13 14:07

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?? :oops:

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

Grazie
libraio
Utente Senior
 
Post: 329
Iscritto il: 04/01/10 20:31

Re: help funzione excel 2033

Postdi Anthony47 » 24/06/13 23:56

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: help funzione excel 2033

Postdi Flash30005 » 25/06/13 02:49

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
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: help funzione excel 2033

Postdi libraio » 25/06/13 19:29

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
libraio
Utente Senior
 
Post: 329
Iscritto il: 04/01/10 20:31


Torna a Applicazioni Office Windows


Topic correlati a "help funzione excel 2033":


Chi c’è in linea

Visitano il forum: Nessuno e 28 ospiti