You are here:Home-Domande su Excel VBA e MACRO-[RISOLTO] funzione personalizzata-Rispondi a: [RISOLTO] funzione personalizzata
Rispondi a: [RISOLTO] funzione personalizzata2018-04-18T12:41:56+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] funzione personalizzata Rispondi a: [RISOLTO] funzione personalizzata

sidsid
Moderatore
    Post totali: 752

    Ti da errore perché manca la udf nel vbe; hai solo messo la formula nella cella

    Il primo range va messo perchè devo scorrere tutti i valori dal primo all’ultimo, per vedere se sono uguali
    Poi ho omesso il quarto argomento (taglia) perchè non serve
    Ti riposto la udf da mettere in un modulo standard

    Public Function RAGGRUPPO(rTabella As Range, Cod As Range, Col As Range, Prezzo As Range) As String
    Dim j As Long
    Dim vTab As Variant
    Dim str As String
    vTab = rTabella
    
    For j = LBound(vTab) To UBound(vTab)
        Select Case True
            Case vTab(j, 1) = Cod And vTab(j, 2) = Col And vTab(j, 3) = Prezzo
                str = str & vTab(j, 4) & ","
        End Select
    Next j
    
    RAGGRUPPO = Mid(str, 1, Len(str) - 1)
    
    End Function

    in E2
    =RAGGRUPPO($A$2:$D$17;$A2;$B2;$C2)
    e trascini