Risultati da 1 a 20 di 20

Discussione: Simulazione tabellone con regole



  1. #1
    L'avatar di Slim
    Clicca e Apri
    Data Registrazione
    Nov 2015
    LocalitÓ
    Milano
    Messaggi
    28
    Versione Office
    2010
    Likes ricevuti
    1

    Simulazione tabellone con regole

    Salve a tutti,

    dovrei trovare il modo di comporre un tabellone per un evento scolastico sportivo. Il fatto per˛ Ŕ che gli accoppiamenti non possono essere totalmente casuali

    Ad esempio due alunni della stessa scuola non si possono affrontare nel primo incontro.

    Come si fa ad impostare i sorteggio?

    Il mio file excel comprende

    • Colonna Cognomi
    • Colonna Scuola
    • Colonna data di nascita
    • Colonna parentela (si o no)


    Le regole da seguire sono (SOLO per il primo accoppiamento)

    • NON si possono incontrare alunni della stessa scuola
    • NON si possono incontrare alunni nati nello stesso anno
    • NON si possono incontrare due fratelli


    questo il primo problema.... risolto questo avrei un'altra domandina ma per ora mi fermo qui!

    Grazie a tutti quelli che vorranno aiutarmi

  2. #2

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Sardegna
    EtÓ
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Ciao Slim,
    puoi allegare un file di esempio (con qualche nota sul da farsi all'interno) in modo da non dover ricreare un file da zero che con ogni probabilitÓ non sarebbe comunque uguale al tuo ?!?

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno pu˛ immaginare."

  3. #3
    L'avatar di Slim
    Clicca e Apri
    Data Registrazione
    Nov 2015
    LocalitÓ
    Milano
    Messaggi
    28
    Versione Office
    2010
    Likes ricevuti
    1

    Ecco l'allegato

    Ecco qui l'allegato con anche il tabellone per gli accoppiamenti

    Le lettere alla colonna fratelli accoppiano i cognomi

    X Ŕ fratello di X
    W Ŕ fratello di W

    etc

    Ovviamente i fratelli sono in scuole diverse (altrimenti basterebbe la prima regola)

  4. #4

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Sardegna
    EtÓ
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Ciao Slim,
    avrei scritto un codice (assegnato ad un pulsante nel Foglio1) che dovrebbe fare quello che chiedi....
    Ho detto "dovrebbe" perchŔ al momento non ho il tempo di testarlo.
    Prava e fammi sapere...

    Il codice Ŕ questo:

    Codice: 
    Option Explicit
    
    
    Sub Estrazione()
    Dim PrimoTurno As Collection, i As Integer, nrand As Integer
    Dim Alunni As Integer, x As Integer, CampoGiallo As Range, cella As Range
    
    
    Set PrimoTurno = New Collection
    Set CampoGiallo = Range("L3:L97")
    Alunni = Range("A3").End(xlDown).Row - 2
    
    
    On Error GoTo again
    For i = 3 To Alunni + 2
        Randomize
        nrand = Int(Rnd * Alunni) + 3
        If (i Mod 2) = 0 Then
        x = 1
            If Cells(nrand, 2).Value = Cells(PrimoTurno(PrimoTurno.Count), 2).Value Or _
                Cells(nrand, 3).Value = Cells(PrimoTurno(PrimoTurno.Count), 3).Value Or _
                Cells(nrand, 4).Value = Cells(PrimoTurno(PrimoTurno.Count), 4).Value Then
               x = 1 / 0
            End If
        End If
        PrimoTurno.Add (nrand), CStr(nrand)
    again:
        If Err.Number = 457 Or IsError(x) Then
            i = i - 1
        End If
        Resume Next
    Next i
    
    
    x = 1
    For Each cella In CampoGiallo
        If cella.Interior.ColorIndex = 6 Then
            cella.Value = Cells(PrimoTurno(x), 1).Value
            x = x + 1
        End If
    Next
    
    
    Set PrimoTurno = Nothing
    Set CampoGiallo = Nothing
    End Sub
    Ti lascio il tuo file in allegato (con il codice giÓ inserito)...

    [EDIT]
    Ho corretto una riga nel codice (e ho cambiato l'allegato)... prova questo.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno pu˛ immaginare."

  5. I seguenti 3 utenti hanno dato un "Like" a cromagno per questo post:


  6. #5
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    3216
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155
    @cromagno
    complimenti per la soluzione.
    Ci stavo lavorando anch'io e mi sono impantanato quasi alla fine. La macro che utilizzo Ŕ questa:
    Codice: 
    Sub Incrocia()Dim cgn() As String, scl() As String, ann() As Integer, prn() As String
    Dim uRg As Integer, nm1() As Integer
        uRg = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
        Range("F3:N" & uRg).ClearContents
        ReDim cgn(1 To uRg - 2), scl(1 To uRg - 2), ann(1 To uRg - 2), prn(1 To uRg - 2)
        ReDim nm1(1 To uRg - 2)
        For i = 3 To uRg
            cgn(i - 2) = Cells(i, 1).Text: scl(i - 2) = Cells(i, 2).Text
            ann(i - 2) = Cells(i, 3).Value: prn(i - 2) = Cells(i, 4).Text
        Next i
        n = 3
        For i = 1 To uRg
            Randomize
            n1 = Int((uRg - 2) * Rnd + 1)
            For e = 1 To uRg - 2
                If nm1(e) = n1 Then
                    i = i - 1: GoTo 1
                End If
            Next e
            n2 = Int((uRg - 2) * Rnd + 1)
            For e = 1 To uRg - 2
                If nm1(e) = n2 Then
                    i = i - 1: GoTo 1
                End If
            Next e
            If (scl(n1) = scl(n2)) Or (ann(n1) = ann(n2)) Or _
                (prn(n1) <> "" And prn(n2) <> "" And prn(n1) = prn(n2)) Then
                i = i - 1: GoTo 1
            End If
            nm1(i) = n1: nm1(i + 1) = n2: i = i + 1
            Cells(n, 6) = cgn(n1): Cells(n, 7) = scl(n1)
            Cells(n, 8) = ann(n1): Cells(n, 9) = prn(n1)
            Cells(n, 11) = cgn(n2): Cells(n, 12) = scl(n2)
            Cells(n, 13) = ann(n2): Cells(n, 14) = prn(n2)
            n = n + 2
            If n > uRg Then Exit Sub
    1   Next i
    End Sub
    Dove o cosa sbaglio visto che mi si pianta nella ricerca delle ultime combinazioni?
    Allego anche il mio file in cui ho aumentato le celle gialle per capire meglio.

    Ciao,
    Mario

  7. #6
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    3216
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155
    @cromagno
    Ho giÓ dato il "Mi piace" al tuo lavoro. Ancora complimenti.
    Ci stavo lavorando anch'io ed ero quasi alla fine ma mi sono impantanato. Posto la macro per vedere se puoi dirmi (anche altri se vogliono) dove o cosa sbaglio. Impiega troppo per trovare gli ultimi 3/4 numeri.
    Ecco la macro:
    Codice: 
    
    Sub Incrocia()Dim cgn() As String, scl() As String, ann() As Integer, prn() As String
    Dim uRg As Integer, nm1() As Integer
        uRg = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
        Range("F3:N" & uRg).ClearContents
        ReDim cgn(1 To uRg - 2), scl(1 To uRg - 2), ann(1 To uRg - 2), prn(1 To uRg - 2)
        ReDim nm1(1 To uRg - 2)
        For i = 3 To uRg
            cgn(i - 2) = Cells(i, 1).Text: scl(i - 2) = Cells(i, 2).Text
            ann(i - 2) = Cells(i, 3).Value: prn(i - 2) = Cells(i, 4).Text
        Next i
        n = 3
        For i = 1 To uRg
            Randomize
            n1 = Int((uRg - 2) * Rnd + 1)
            For e = 1 To uRg - 2
                If nm1(e) = n1 Then
                    i = i - 1: GoTo 1
                End If
            Next e
            n2 = Int((uRg - 2) * Rnd + 1)
            For e = 1 To uRg - 2
                If nm1(e) = n2 Then
                    i = i - 1: GoTo 1
                End If
            Next e
            If (scl(n1) = scl(n2)) Or (ann(n1) = ann(n2)) Or _
                (prn(n1) <> "" And prn(n2) <> "" And prn(n1) = prn(n2)) Then
                i = i - 1: GoTo 1
            End If
            nm1(i) = n1: nm1(i + 1) = n2: i = i + 1
            Cells(n, 6) = cgn(n1): Cells(n, 7) = scl(n1)
            Cells(n, 8) = ann(n1): Cells(n, 9) = prn(n1)
            Cells(n, 11) = cgn(n2): Cells(n, 12) = scl(n2)
            Cells(n, 13) = ann(n2): Cells(n, 14) = prn(n2)
            n = n + 2
            If n > uRg Then Exit Sub
    1   Next i
    End Sub
    Allego anche il mio file nel quale ho aumentato le celle gialle per cercare di capire.
    Allegato 1259

    Grazie per l'attenzione.
    Ciao,
    Mario

  8. #7

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Sardegna
    EtÓ
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Ciao Mario,
    premetto che devo ancora controllare se con il mio codice i risultati sono corretti...
    Stavo guardando la tua macro e non capivo perchŔ quasi alla fine c'era nuovamente l'istruzione (colorata in rosso):

    Codice: 
    Sub Incrocia()
    Dim cgn() As String, scl() As String, ann() As Integer, prn() As String
    Dim uRg As Integer, nm1() As Integer
        uRg = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
        Range("F3:N" & uRg).ClearContents
        ReDim cgn(1 To uRg - 2), scl(1 To uRg - 2), ann(1 To uRg - 2), prn(1 To uRg - 2)
        ReDim nm1(1 To uRg - 2)
        For i = 3 To uRg
            cgn(i - 2) = Cells(i, 1).Text: scl(i - 2) = Cells(i, 2).Text
            ann(i - 2) = Cells(i, 3).Value: prn(i - 2) = Cells(i, 4).Text
        Next i
        n = 3
        For i = 1 To uRg
            Randomize
            n1 = Int((uRg - 2) * Rnd + 1)
            For e = 1 To uRg - 2
                If nm1(e) = n1 Then
                    i = i - 1: GoTo 1
                End If
            Next e
            n2 = Int((uRg - 2) * Rnd + 1)
            For e = 1 To uRg - 2
                If nm1(e) = n2 Then
                    i = i - 1: GoTo 1
                End If
            Next e
            If (scl(n1) = scl(n2)) Or (ann(n1) = ann(n2)) Or _
                (prn(n1) <> "" And prn(n2) <> "" And prn(n1) = prn(n2)) Then
                i = i - 1: GoTo 1
            End If
            nm1(i) = n1: nm1(i + 1) = n2: i = i + 1
            Cells(n, 6) = cgn(n1): Cells(n, 7) = scl(n1)
            Cells(n, 8) = ann(n1): Cells(n, 9) = prn(n1)
            Cells(n, 11) = cgn(n2): Cells(n, 12) = scl(n2)
            Cells(n, 13) = ann(n2): Cells(n, 14) = prn(n2)
            n = n + 2
            If n > uRg Then Exit Sub
    1   Next i
    End Sub
    Inibendo quell'istruzione il codice riempie fino all'ultima riga, ma a prima vista c'Ŕ forse qualche nome ripetuto.
    Adesso provo a controllare i nomi.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno pu˛ immaginare."

  9. #8

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Sardegna
    EtÓ
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Ciao Mario,
    ti ho mandato un MP perchŔ qui la risposta Ŕ in attesa della conferma di un moderatore :92:

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno pu˛ immaginare."

  10. #9
    L'avatar di Max
    Clicca e Apri
    Data Registrazione
    May 2015
    LocalitÓ
    Udine
    EtÓ
    48
    Messaggi
    299
    Versione Office
    2007
    Likes ricevuti
    37
    Likes dati
    7
    Quando inviate un post al posto del bbcode (CODE) per inserire un codice provate ad usare il bbcode (HTML) e vediamo se il post va in attesa moderazione.

  11. #10

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Sardegna
    EtÓ
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Citazione Originariamente Scritto da Max Visualizza Messaggio
    Quando inviate un post al posto del bbcode (CODE) per inserire un codice provate ad usare il bbcode (HTML) e vediamo se il post va in attesa moderazione.
    Grazie Max.
    Ho sempre usato [CODE] senza problemi (tranne due volte... questa Ŕ la seconda), anche perchŔ con [HTML] l'indentazione risulta "sfasata" e il codice spesso Ŕ illeggibile.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno pu˛ immaginare."

  12. #11
    L'avatar di Max
    Clicca e Apri
    Data Registrazione
    May 2015
    LocalitÓ
    Udine
    EtÓ
    48
    Messaggi
    299
    Versione Office
    2007
    Likes ricevuti
    37
    Likes dati
    7
    Citazione Originariamente Scritto da cromagno Visualizza Messaggio
    Grazie Max.
    Ho sempre usato [CODE] senza problemi (tranne due volte... questa Ŕ la seconda), anche perchŔ con [HTML] l'indentazione risulta "sfasata" e il codice spesso Ŕ illeggibile.
    Ho controllato tutti i permessi, sia a livello forum e sezioni che a livello gruppi, utenti registrati, veterano, ecc..e sembra tutto a posto quindi non saprei proprio, penso che il problema possa riguardare il codice inserito nel bbcode (CODE), un qualche passaggio o una formula che fa scattare l'attesa moderazione, al momento non mi viene nient'altro :32:

  13. #12

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Sardegna
    EtÓ
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Ok Max :246:

    Visto che stavo per rispondere a Mario con un codice, la consideriamo la "prova del 9".

    @Mario

    In questo modo dovrebbe funzionare (ho aggiunto la variabile x per l'indice dell'array nm1):

    Codice: 
    Sub Incrocia()
    Dim cgn() As String, scl() As String, ann() As Integer, prn() As String
    Dim uRg As Integer, nm1() As Integer
        uRg = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
        Range("F3:N" & uRg).ClearContents
        ReDim cgn(1 To uRg - 2), scl(1 To uRg - 2), ann(1 To uRg - 2), prn(1 To uRg - 2)
        ReDim nm1(1 To uRg - 2)
        For i = 3 To uRg
            cgn(i - 2) = Cells(i, 1).Text: scl(i - 2) = Cells(i, 2).Text
            ann(i - 2) = Cells(i, 3).Value: prn(i - 2) = Cells(i, 4).Text
        Next i
        n = 3
        x = 1
        For i = 1 To uRg
            Randomize
            n1 = Int((uRg - 2) * Rnd) + 1
            For e = 1 To uRg - 2
                If nm1(e) = n1 Then
                    i = i - 1: GoTo 1
                End If
            Next e
            n2 = Int((uRg - 2) * Rnd) + 1
            For e = 1 To uRg - 2
                If nm1(e) = n2 Then
                    i = i - 1: GoTo 1
                End If
            Next e
            If (scl(n1) = scl(n2)) Or (ann(n1) = ann(n2)) Or _
                (prn(n1) <> "" And prn(n2) <> "" And prn(n1) = prn(n2)) Then
                i = i - 1: GoTo 1
            End If
            nm1(x) = n1: nm1(x + 1) = n2: x = x + 2
            Cells(n, 6) = cgn(n1): Cells(n, 7) = scl(n1)
            Cells(n, 8) = ann(n1): Cells(n, 9) = prn(n1)
            Cells(n, 11) = cgn(n2): Cells(n, 12) = scl(n2)
            Cells(n, 13) = ann(n2): Cells(n, 14) = prn(n2)
            n = n + 2
            If n > uRg Then Exit Sub
    1
    Next i
    End Sub
    Ti allego il file ( nelle colonne R e S ci sono i controlli per le ripetizioni, quando sono maggiori di 1 Ŕ perchŔ conta anche le lettere dei "fratelli", ma in definitiva sembra funzionare).

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno pu˛ immaginare."

  14. #13

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Sardegna
    EtÓ
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Ok Max :246:

    Visto che stavo per rispondere a Mario con un codice, la consideriamo la "prova del 9".

    @Mario

    In questo modo dovrebbe funzionare (ho aggiunto la variabile x per l'indice dell'array nm1):

    Codice HTML: 
    Sub Incrocia()
    Dim cgn() As String, scl() As String, ann() As Integer, prn() As String
    Dim uRg As Integer, nm1() As Integer
        uRg = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
        Range("F3:N" & uRg).ClearContents
        ReDim cgn(1 To uRg - 2), scl(1 To uRg - 2), ann(1 To uRg - 2), prn(1 To uRg - 2)
        ReDim nm1(1 To uRg - 2)
        For i = 3 To uRg
            cgn(i - 2) = Cells(i, 1).Text: scl(i - 2) = Cells(i, 2).Text
            ann(i - 2) = Cells(i, 3).Value: prn(i - 2) = Cells(i, 4).Text
        Next i
        n = 3
        x = 1
        For i = 1 To uRg
            Randomize
            n1 = Int((uRg - 2) * Rnd) + 1
            For e = 1 To uRg - 2
                If nm1(e) = n1 Then
                    i = i - 1: GoTo 1
                End If
            Next e
            n2 = Int((uRg - 2) * Rnd) + 1
            For e = 1 To uRg - 2
                If nm1(e) = n2 Then
                    i = i - 1: GoTo 1
                End If
            Next e
            If (scl(n1) = scl(n2)) Or (ann(n1) = ann(n2)) Or _
                (prn(n1) <> "" And prn(n2) <> "" And prn(n1) = prn(n2)) Then
                i = i - 1: GoTo 1
            End If
            nm1(x) = n1: nm1(x + 1) = n2: x = x + 2
            Cells(n, 6) = cgn(n1): Cells(n, 7) = scl(n1)
            Cells(n, 8) = ann(n1): Cells(n, 9) = prn(n1)
            Cells(n, 11) = cgn(n2): Cells(n, 12) = scl(n2)
            Cells(n, 13) = ann(n2): Cells(n, 14) = prn(n2)
            n = n + 2
            If n > uRg Then Exit Sub
    1
    Next i
    End Sub
    Ti allego il file ( nelle colonne R e S ci sono i controlli per le ripetizioni, quando sono maggiori di 1 Ŕ perchŔ conta anche le lettere dei "fratelli", ma in definitiva sembra funzionare).

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno pu˛ immaginare."

  15. #14

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Sardegna
    EtÓ
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Citazione Originariamente Scritto da Max Visualizza Messaggio
    Ho controllato tutti i permessi, sia a livello forum e sezioni che a livello gruppi, utenti registrati, veterano, ecc..e sembra tutto a posto quindi non saprei proprio, penso che il problema possa riguardare il codice inserito nel bbcode (CODE), un qualche passaggio o una formula che fa scattare l'attesa moderazione, al momento non mi viene nient'altro :32:
    Probabilmente hai ragione :246:

    @Mario
    non allego il codice per i problemi prima descritti, ti allego il tuo file (in questo modo sembrerebbe funzionare).

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno pu˛ immaginare."

  16. #15
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    3216
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155
    @cromagno
    ho controllato il tuo codice Ŕ mi pare perfetto.
    Per quanto riguarda il mio codice, la riga che hai colorato in rosso: se noti assegno i due numeri casuali generati, dopo aver controllato se sono uguali fra loro, se sono della stessa scuole, se sono dello stesso anno e se sono parenti con le formule
    nm1(i) = n1 : nm1(i + 1) = n2
    Se non inserissi i = i + 1 al prossimo ciclo il numero generato verrebbe sovrascritto all'ultimo.

    Il problema principale che incontro Ŕ che impiega troppo tempo (sembra quasi che si "pianti") nel reperire gli ultimi 1/2/3/4 numeri. Quello che Ŕ ancora pi¨ strano Ŕ che qualche volta azzecca tutto in una frazione di secondo.

    Ciao,
    Mario

  17. #16

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Sardegna
    EtÓ
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Se non inserissi i = i + 1 al prossimo ciclo il numero generato verrebbe sovrascritto all'ultimo.
    Ciao Mario,
    il problema probabilmente era proprio quello.
    Aggiungendo 1 alla variabile i al prossimo "giro" saltava qualche cognome della colonna A.
    Facendo la stessa cosa ma con una variabile indipendente dal ciclo For (io ho usato la x nel tuo codice) non ci dovrebbero essere problemi.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno pu˛ immaginare."

  18. #17
    L'avatar di Slim
    Clicca e Apri
    Data Registrazione
    Nov 2015
    LocalitÓ
    Milano
    Messaggi
    28
    Versione Office
    2010
    Likes ricevuti
    1
    Lavoro perfetto!

    Grazie Mille Cromagno

  19. #18
    L'avatar di Max
    Clicca e Apri
    Data Registrazione
    May 2015
    LocalitÓ
    Udine
    EtÓ
    48
    Messaggi
    299
    Versione Office
    2007
    Likes ricevuti
    37
    Likes dati
    7
    Dipende dal codice, quando rispondete non quotatelo :43:

  20. #19

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Sardegna
    EtÓ
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Citazione Originariamente Scritto da Slim Visualizza Messaggio
    Lavoro perfetto!

    Grazie Mille Cromagno
    Grazie del riscontro Slim.
    Comunque non hai che l'imbarazzo della scelta, anche il codice di Mario (Marius44) funziona a dovere (ultimo file che ho allegato).

    Comunque...

    Se il problema Ŕ stato risolto segna questa discussione come [RISOLTO]
    Vai nella barra dei menu, situata all’inizio di questa discussione, troverai il menu “Strumenti Discussione” quindi scegli “Segna questo Thread come risolto”.

    Ciao
    Tore

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno pu˛ immaginare."

  21. #20
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    3216
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155
    @cromagno
    Ottimo. Grazie. Ciao,
    Mario

Discussioni Simili

  1. Evitare la Duplicazione delle Regole Di Formattazione Condizionale
    Di claudio.gioe nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 18/12/16, 14:38
  2. Simulazione 100 metri piani
    Di xavier.4 nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 27/11/16, 12:11
  3. DDE simulazione
    Di patel nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 14/07/16, 11:38
  4. simulazione freccina convalida dati
    Di ggratis nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 29/06/16, 15:34
  5. Ragruppare regole Formattazione Condizionale
    Di zio_tom nel forum Domande su Excel VBA e MACRO
    Risposte: 0
    Ultimo Messaggio: 28/12/15, 17:18

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
  •