Risultati da 1 a 20 di 20

Discussione: Cerca vert che restituisca più valori in una sola cella



  1. #1
    L'avatar di Mr_Dirupo
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Grottaglie
    Messaggi
    6
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Cerca vert che restituisca più valori in una sola cella

    Salve a tutti

    vi allego un file di lavoro.

    Il mio problema è:

    Cercare i codici materiale (colonna "1" foglio "page 1") nel foglio "list" e restituire nella colonna 12 il valore "EPD Number".

    Fin qui un cerca vert basterebbe.
    Purtroppo però nel foglio "list" i codici sono ripetuti e io ho bisogno che TUTTI i risultati della ricerca per quel codice materiale vadano in una cella. In formato testo andrebbe benissimo.

    Come posso fare?

    Grazie
    File Allegati File Allegati

  2. #2
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Cerca vert che restituisca più valori in una sola cella

    Se ho capito bene, questo codice scrive in colonna M
    se c'e scritto no epd for lost part non fà nulla, però alcuni sono differenti
    Codice: 
    Option Explicit
    Option Compare Text
    Sub Trova()
    Dim X, Y, Ur, Tot, Rr, Rg As Object, Msg As String, Area As Range
    Sheets("list").Activate
    Ur = Sheets("list").Range("A" & Rows.Count).End(xlUp).Row
        ActiveWorkbook.Worksheets("list").Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("list").Sort.SortFields.Add Key:=Range("A2:A" & Ur), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With ActiveWorkbook.Worksheets("list").Sort
            .SetRange Range("A1:D" & Ur)
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        Set Area = Sheets("list").Range("A1:A" & Ur)
    Sheets("Page 1").Activate
    Ur = Sheets("Page 1").Range("B" & Rows.Count).End(xlUp).Row
    For X = 10 To Ur
        Tot = Application.WorksheetFunction.CountIf(Sheets("list").Range("A:A"), Cells(X, 2).Value)
        Set Rg = Area.Find(Cells(X, 2).Value, LookIn:=xlValues, LookAt:=xlWhole)
        If Rg Is Nothing Then
            Cells(X, 13) = "codice non trovato"
        Else
            Rr = Rg.Row
            For Y = 0 To Tot - 1
                If Sheets("list").Cells(Rr + Y, 4) <> "no epd for lost part" Then Msg = Msg & ", " & Sheets("list").Cells(Rr + Y, 4)
            Next Y
            Cells(X, 13) = Msg
    Rows(X & ":" & X).AutoFit
        End If
    Next X
    Set Area = Nothing
    Set Rg = Nothing
    MsgBox "fatto"
    End Sub

  3. #3
    L'avatar di Mr_Dirupo
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Grottaglie
    Messaggi
    6
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Cerca vert che restituisca più valori in una sola cella

    Anche nel caso in cui ci sia scritto "no epd for lost part" deve restituirlo

  4. #4
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125

    Re: Cerca vert che restituisca più valori in una sola cella

    Ciao mr Di_Rupo benvenuto nel club

    In M10 metti questa formula e copiala a destra e in basso
    attenzione visto che hai la versione di excel 2007 ho fatto una formula matriciale che per essere attivata devi premere in sequenza CTRL+SHIFT+ENTER

    =SE.ERRORE(INDICE(list!$D$2:$D$214;PICCOLO(SE((list!$A$2:$A$403=$B10)*(list!$D$2:$D$403<>"no epd for lost part");RIF.RIGA($B$10:$B$403)-RIF.RIGA($B$10)+1);COLONNE($M10:M10)));"")

    Ti allego file cosi da capire meglio

    Fammi sapere
    File Allegati File Allegati

  5. #5

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6747
    Versione Office
    2013
    Likes ricevuti
    711
    Likes dati
    162

    Re: Cerca vert che restituisca più valori in una sola cella

    Ciao a tutti.

    @ Mr_Dirupo

    E' assai probabile che non abbia capito nulla ma ho scritto questa function che ho inserito nel file che ti allego.

    Codice: 
    Function pippo(a, list As Range)
    Dim vel As Range
    For Each cel In list
        If a = cel.Value Then
            pippo = pippo & " " & " " & cel.Offset(0, 3).Value
        End If
    Next cel
    End Function
    Alfredo
    File Allegati File Allegati

  6. I seguenti 2 utenti hanno dato un "Like" a alfrimpa per questo post:


  7. #6
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125

    Re: Cerca vert che restituisca più valori in una sola cella

    Ciao Alfredo
    Credo che nella tua bella funzione, dovresti togliere anche le scritte, "no epd for lost part", almeno credo di aver capito cosi
    Sentiamo cosa dice Mr_DiRupo

  8. #7

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6747
    Versione Office
    2013
    Likes ricevuti
    711
    Likes dati
    162

    Re: Cerca vert che restituisca più valori in una sola cella

    Gerardo Dirupo ha detto questo

    Citazione Originariamente Scritto da Mr_Dirupo Visualizza Messaggio
    Anche nel caso in cui ci sia scritto "no epd for lost part" deve restituirlo
    Ma la cosa che più mi preme è sapere se restituisce i risultati corretti/attesi.

    Alfredo

  9. #8
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125

    Re: Cerca vert che restituisca più valori in una sola cella

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Gerardo Dirupo ha detto questo



    Ma la cosa che più mi preme è sapere se restituisce i risultati corretti/attesi.

    Alfredo
    Oppss! me lo ero perso, si vede che stavo stavo creando la formula quando ha scritto questo..allora devo cambiare qualcosa alla mia formula che comunque non andrà bene perchè credo che voglia tutto in una cella
    un saluto

    EDIT

    =SE.ERRORE(INDICE(list!$D$2:$D$214;PICCOLO(SE(list!$A$2:$A$403=$B10;RIF.RIGA($B$10:$B$403)-RIF.RIGA($B$10)+1);COLONNE($M10:M10)));"")

  10. #9
    L'avatar di Mr_Dirupo
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Grottaglie
    Messaggi
    6
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Cerca vert che restituisca più valori in una sola cella

    Ciao Alfripa... hai azzeccato perfettamente ciò che volevo.
    complimenti.
    Sembra però che la formula abbia saltato un valore:
    codice mat
    629Z2099-8
    nel foglio "list" ci sono 37 celle che dovrebbe prendere. Invece ne ha presa una in meno, ha saltato quella alla riga 202. strano.

  11. #10
    L'avatar di pkrome59
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Reggio Calabria
    Età
    58
    Messaggi
    1188
    Versione Office
    Office 2013
    Likes ricevuti
    1198
    Likes dati
    2133

    Re: Cerca vert che restituisca più valori in una sola cella

    Ciao Mr_Dirupo, un'alternativa con le formule al VBA, sgradevole da vedersi, ma efficace in questo caso, potrebbe essere la seguente:

    In M10:
    =SE(VAL.ERRORE(INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);1)));"";INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);1)))&" "&SE(VAL.ERRORE(INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);2)));"";INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);2)))&" "&SE(VAL.ERRORE(INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);3)));"";INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);3)))&" "&SE(VAL.ERRORE(INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);4)));"";INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);4)))&" "&SE(VAL.ERRORE(INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);5)));"";INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);5)))&" "&SE(VAL.ERRORE(INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);6)));"";INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);6)))&" "&SE(VAL.ERRORE(INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);7)));"";INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);7)))&" "&SE(VAL.ERRORE(INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);8)));"";INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);8)))&" "&SE(VAL.ERRORE(INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);9)));"";INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);9)))&" "&SE(VAL.ERRORE(INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);10)));"";INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);10)))&" "&SE(VAL.ERRORE(INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);11)));"";INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);11)))&" "&SE(VAL.ERRORE(INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);12)));"";INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);12)))&" "&SE(VAL.ERRORE(INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);13)));"";INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);13)))&" "&SE(VAL.ERRORE(INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);14)));"";INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);14)))&" "&SE(VAL.ERRORE(INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);15)));"";INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);15)))&" "&SE(VAL.ERRORE(INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);16)));"";INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);16)))&" "&SE(VAL.ERRORE(INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);17)));"";INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);17)))&" "&SE(VAL.ERRORE(INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);18)));"";INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);18)))&" "&SE(VAL.ERRORE(INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);19)));"";INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);19)))&" "&SE(VAL.ERRORE(INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);20)));"";INDICE(list!$D$2:$D$90;PICCOLO(SE(list!$A$2:$A$90='Page 1'!B10;RIF.RIGA(list!$A$2:$A$90)-RIF.RIGA(list!$A$2)+1);20)))
    da attivare con i tasti CTRL+MAIUSCOLO+INVIO, e successivamente tirare giù alla bisogna.
    Allego il file di prova, fa sapere se va bene.
    Preciso che l'intervallo di riferimento va corretto da A2:A90 preso a campione a A2:A214, e sono stati considerati fino a 20 casi di omonomia per prodotto.
    Ciao.
    File Allegati File Allegati

  12. I seguenti 3 utenti hanno dato un "Like" a pkrome59 per questo post:


  13. #11
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125

    Re: Cerca vert che restituisca più valori in una sola cella

    incredibile da guiness

  14. #12
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Cerca vert che restituisca più valori in una sola cella

    >>>629Z2099-8 nel foglio "list" ci sono 37 celle
    Uno di loro ha uno spazio finale

    Ps. Complimenti ad alfrimpa, non sono mai riuscito a fare una function
    Comunque da modificare nel mio codice
    Codice: 
            Msg = ""
            For Y = 0 To Tot - 1
                Msg = Msg & ", " & Sheets("list").Cells(Rr + Y, 4)
            Next Y

  15. #13

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6747
    Versione Office
    2013
    Likes ricevuti
    711
    Likes dati
    162

    Re: Cerca vert che restituisca più valori in una sola cella

    Grazie dei complimenti Raffaele fatti da te hanno più valore !

    Ma come è possibile che uno come te non riesca a scrivere una function?

    Alfredo

  16. #14
    L'avatar di Mr_Dirupo
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Grottaglie
    Messaggi
    6
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Cerca vert che restituisca più valori in una sola cella

    Afrimpa mi piace molto la tua soluzione e penso adotterò quella, anche perché funziona anche variando il numero di righe dell'elenco.
    Poiche appunto il file non sarà sempre questo, come posso "copiare" la tua funzione su altri file ?

  17. #15

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6747
    Versione Office
    2013
    Likes ricevuti
    711
    Likes dati
    162

    Re: Cerca vert che restituisca più valori in una sola cella

    Ciao Mr_Dirupo

    I modi sono due:

    Inserire la funzione nel file personal.xls che è un particolare file dove tutte le macro/function sono eseguibili i tutte le cartelle di lavoro; però è un po' complicato/lungo spiegare tutto il procedimento;

    oppure

    1) Copia il codice della function qui dal forum
    2) Apri una cartella di lavoro
    3) Vai nell'editor di VBA premendo ALT+F11
    4) Dal menù Inserisci scegli Modulo
    5) Nella finestra in alto a destra incolla il codice che hai copiato
    6) Salva il file

    Alfredo

  18. #16
    L'avatar di Mr_Dirupo
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Grottaglie
    Messaggi
    6
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Cerca vert che restituisca più valori in una sola cella

    Si avevo già fatto così, ma quando richiamo la formula nella cella, mi chiede di selezionare il file da cui aggiornare i dati.
    Ho sostituito semplicemente =B10;dirupo.xlms!list con =B10;prova.xlms!list

    boh

  19. #17

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6747
    Versione Office
    2013
    Likes ricevuti
    711
    Likes dati
    162

    Re: Cerca vert che restituisca più valori in una sola cella

    Allega il file che non ti funziona che lo provo.

    Alfredo

  20. #18
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Cerca vert che restituisca più valori in una sola cella

    Mà in prova.xlms esiste il nome definito = list? (poi si dovrebbe chiamare prova.xlsm)
    Range delle celle A2:D214 del foglio List

    A me ci mette circa 20/30 secondi per calcolare tutto (anche a Voi?)

  21. #19
    L'avatar di Mr_Dirupo
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Grottaglie
    Messaggi
    6
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Re: Cerca vert che restituisca più valori in una sola cella

    Ecco il file prova. Ho inserito la function ma nel richiamarla ho problemi...sarà che sbaglio a selezionare il foglio "list".
    con =pippo(B10;prova.xlsm!list) non va

    NB:sto usando office 2010
    File Allegati File Allegati

  22. #20

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6747
    Versione Office
    2013
    Likes ricevuti
    711
    Likes dati
    162

    Re: Cerca vert che restituisca più valori in una sola cella

    Ciao Mr_Dirupo

    A parte un refuso (che comunque credo di aver corretto prima di allegare il precedente file) nel codice della precedente function che corretta è questa

    Codice: 
    Function pippo(a, list As Range)
    Dim cel As Range
    For Each cel In list
        If a = cel.Value Then
            pippo = pippo & " " & " " & cel.Offset(0, 3).Value
        End If
    Next cel
    End Function
    non ho trovato nessun problema.

    Sul foglio tu devi scrivere

    Codice: 
    = pippo(b10;list!$a$2:$a$214)
    e ricopiare in basso sin dove serve.

    Nel file allegato ho aggiunto un SE() per evitare la visualizzazione degli zeri.

    Alfredo
    File Allegati File Allegati

  23. I seguenti utenti hanno dato un "Like"


Discussioni Simili

  1. [Risolto] Mettere Valori di una tabella in una sola colonna
    Di AminTheWise nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 25/02/17, 16:07
  2. [Risolto] Cerca valori che si ripetono in tabella. Formula per arrivare dove il cerca.vert non può
    Di Gatt88 nel forum Domande su Excel in generale
    Risposte: 7
    Ultimo Messaggio: 02/12/16, 11:45
  3. Risposte: 5
    Ultimo Messaggio: 17/05/16, 11:25
  4. Cerca un record in almeno una colonna ed estrai quella riga una sola volta..?
    Di Kogenta nel forum Domande su Excel VBA e MACRO
    Risposte: 2
    Ultimo Messaggio: 03/03/16, 14:08
  5. [Risolto] Cercare piu valori con cerca.vert
    Di sebgi nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 09/02/16, 19:53

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •