You are here:---Rispondi a: abbinamenti
Rispondi a: abbinamenti2018-05-04T19:42:14+02:00

Home Forum Domande su Excel VBA e MACRO abbinamenti Rispondi a: abbinamenti

sidsid
Moderatore
    Post totali: 718

    Ciao
    Non so se era quello che cercavi

    Sub ambi()
    Dim x As Variant, vAmbi(1 To 190, 1 To 1) As Variant
    Dim j As Long, jj As Long, nIncr As Long
    Dim ws1 As Worksheet
    
    Set ws1 = Sheets("Foglio1")
    x = Application.Transpose(ws1.Range("C10:V10").Value)
    
    For j = LBound(x) To UBound(x) - 1
        For jj = j + 1 To UBound(x)
             nIncr = nIncr + 1
             vAmbi(nIncr, 1) = x(j, 1) & "_" & x(jj, 1)
        Next jj
    Next j
    ws1.Range("W10:HD10").Value = Application.Transpose(vAmbi)
    Set ws1 = Nothing
    End Sub

    Se va bene per gli ambi lo adattiamo ai terni.
    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