You are here:---Rispondi a: [RISOLTO] conoscere valori > di
Rispondi a: [RISOLTO] conoscere valori > di2019-04-09T14:06:29+02:00

Home Forum Domande su Formule e Funzioni [RISOLTO] conoscere valori > di Rispondi a: [RISOLTO] conoscere valori > di

sidsid
Moderatore
    Post totali: 718

    Prova questa modifica:
    1 – Riporta l’ultima istruzione della udf MAX_PRESENZE allo stato originale; quindi ridiventa
    MAX_PRESENZE = mioArr(POSIZIONE, 1) & " (" & mioArr(POSIZIONE, 2) & ")"
    In questo modo vengono inseriti i valori tra parentesi

    2 – modifica la udf TROVA_RIGHE in questo modo

    Public Function TROVA_RIGHE(ByVal RNG As Range, ByVal rArchivio As Range, ByVal nMax As Integer) As String
    
    Dim sRitardo As String, sNumeri As String
    Dim nUltimaRiga As Long, j As Long, jj As Long
    Dim vRng As Variant, vArchivio As Variant
    Dim n As Integer
    
    nUltimaRiga = Range("i" & Rows.Count).End(xlUp).Row
    vArchivio = rArchivio
    vRng = RNG
    
    For j = LBound(vArchivio) To UBound(vArchivio)
        vArchivio = Application.Transpose(Application.Transpose(rArchivio.Rows(j).Value))
        If RNG.Rows(j).Row >= nUltimaRiga Then Exit For
        sNumeri = "#" & Join(vArchivio, "#") & "#"
        For jj = LBound(vRng, 2) To UBound(vRng, 2)
            'MODIFICA DEL 09/04/2019
            '================
            If InStr(1, vRng(1, jj), "(", vbTextCompare) > 0 Then
                vRng(1, jj) = --Left(vRng(1, jj), 2)
            End If
            '=================
            If vRng(1, jj) <> vbNullString Then
                If InStr(1, sNumeri, "#" & vRng(1, jj) & "#", vbTextCompare) > 0 Then
                    n = n + 1
                End If
            End If
        Next jj
        If n >= nMax Then
            sRitardo = sRitardo & j & ";"
        End If
        n = 0
    Next j
        
    If sRitardo = vbNullString Then
        TROVA_RIGHE = vbNullString
    Else
        TROVA_RIGHE = Mid(sRitardo, 1, Len(sRitardo) - 1)
    End If
    
    End Function

    Più di così non saprei fare.
    fa sapere, ciao

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi