Risultati da 1 a 15 di 15

Discussione: Modificare macro Sorteggio



  1. #1
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Bari
    Età
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Modificare macro Sorteggio

    Buongiorno a tutti.
    Non riesco a modificare una macro da me creata per eseguire un Sorteggio. Mi spiego meglio: nella colonna X dalla cella 5 alla cella 9 ho dei nomi, quando eseguo la macro nella colonna D dalla cella 5 alla 9, mi avviene correttamente il sorteggio. Il problema quale è? Vorrei che nella cella D9 mi comparisse lo stesso nome della cella X9. Allego la macro in questione. Grazie Michele
    File Allegati File Allegati

  2. #2
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1115
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: Modificare macro Sorteggio

    allega il file excel in modo da testare le modifiche

  3. #3

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7161
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1301

    Re: Modificare macro Sorteggio

    Ciao,
    dovresti allegare un file excel anche con nomi di fantasia per capire com'è strutturato il foglio.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  4. #4
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Bari
    Età
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Modificare macro Sorteggio

    Ciao patel ci sto provando ma mi dice invio del file fallito

  5. #5
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Bari
    Età
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Modificare macro Sorteggio

    Ciao patel, non riesco ad allegare il file, mi dice invio file fallito

  6. #6
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Bari
    Età
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Modificare macro Sorteggio

    Ciao patel ciao ges, il flie è di 1,63Mb zippato, per cui non me lo fa inviare

  7. #7

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2810
    Versione Office
    Excel 2013
    Likes ricevuti
    1022
    Likes dati
    979

    Re: Modificare macro Sorteggio

    Sfoltisci il file e allega un esempio ridotto (giusto per capire cosa intendi fare)

    Inviato dal mio GT-I9301I utilizzando Tapatalk

  8. #8
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Bari
    Età
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Modificare macro Sorteggio

    Ciao Rubik ti allego l'esempio
    File Allegati File Allegati

  9. #9
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Bari
    Età
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Modificare macro Sorteggio

    Scusami Rubik vorrei che venisse sempre il nome della cella X9 nella cella D9 ......... se provi a rifare sorteggio cambia sempre

  10. #10
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1115
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: Modificare macro Sorteggio

    esegui il sorteggio escludendo il primo nome che riporterai come primo valore in colonna D

  11. #11
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1115
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: Modificare macro Sorteggio

    se non riesci prova questa
    Codice: 
    Sub main()
    Dim first As Integer, last As Integer
    first = 6: last = 9
    Dim arr() As Integer
    arr = RandomArray(first, last)
    Cells(5, "D") = Cells(5, "X")
    For r = first To last
      Cells(r, "D") = Cells(arr(r), "X")
    Next
    
    End Sub
    
    Function RandomArray(first As Integer, last As Integer) As Integer()
    Dim i As Integer, j As Integer, temp As Integer
    ReDim result(first To last) As Integer
    For i = first To last: result(i) = i: Next
    For i = last To first Step -1
      j = Rnd * (last - first + 1) + first
      If j > last Then j = last
      temp = result(i): result(i) = result(j): result(j) = temp
    Next
    RandomArray = result
    End Function

  12. #12

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2810
    Versione Office
    Excel 2013
    Likes ricevuti
    1022
    Likes dati
    979

    Re: Modificare macro Sorteggio

    Fai come dice Patel

    EDIT: non avevo visto il post #11 di Patel
    Inviato dal mio GT-I9301I utilizzando Tapatalk

  13. #13
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Bari
    Età
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Modificare macro Sorteggio

    Grazie patel, ma sono sempre al punto di partenza. La tua macro gira bene, come estrazione, ma io voglio che una volta effettuata l'estrazione, in D9 mi compaia lo stesso nome che è in X9. Se provi ad eseguire più volte il sorteggio noterai che il nome in D9 cambia e questo non deve avvenire.

  14. #14
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1115
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: Modificare macro Sorteggio

    scusami, avevo capito che volevi mantenere fisso il primo dato, modifica la main così
    Codice: 
    Sub main()
    Dim first As Integer, last As Integer
    first = 5: last = 8
    Dim arr() As Integer
    arr = RandomArray(first, last)
    Cells(9, "D") = Cells(9, "X")
    For r = first To last
      Cells(r, "D") = Cells(arr(r), "X")
    Next
    End Sub

  15. #15
    L'avatar di roky48
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Bari
    Età
    69
    Messaggi
    275
    Versione Office
    Excel 2013
    Likes ricevuti
    1

    Re: Modificare macro Sorteggio

    Perfetto patel ora funziona benissimo. Grazie infinite, lo posto come RISOLTO

Discussioni Simili

  1. Macro per sorteggio casuale
    Di franchinoss nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 05/08/16, 16:10
  2. Modificare composizione macro
    Di PALLAS0TTO nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 07/07/16, 19:28
  3. macro per modificare contenuto altre macro.
    Di nessi nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 15/04/16, 16:53
  4. Modifica macro Sorteggio
    Di roky48 nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 31/10/15, 14:47
  5. Sorteggio macro
    Di roky48 nel forum Domande su Excel VBA e MACRO
    Risposte: 14
    Ultimo Messaggio: 30/10/15, 11:38

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
  •