Risultati da 1 a 5 di 5

Discussione: Sub CopiaComm



  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

    Sub CopiaComm

    Buonasera a tutti
    Vorrei un ultimo aiutino. Nel file modificato da Patel e che funziona benissimo, quando eseguo il Sorteggio, i nomi in colona X mi vengono portati n colonna D ma non i commenti a loro attribuiti pur essendoci Sub CopiaComm. Grazie
    Allego il file
    File Allegati File Allegati

  2. #2

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

    Re: Sub CopiaComm

    Col permesso di @Patel, rispondo io (anche se non c'era bisogno di iniziare una nuova discussione, bastava continuare la precedente)
    Aggiungi la riga in rosso alla routine

    Codice: 
    Sub Main()
    Dim First As Long, Last As Long
    Dim Arr() As Long
    Dim r As Long
    
    
    First = 5
    Last = 8
    
    
    Arr = RandomArray(First, Last)
    Cells(9, "D") = Cells(9, "X")
    For r = First To Last
      Cells(r, "D") = Cells(Arr(r), "X")
      Call copiaComm(Arr(r), 24, r, 4)
    Next
    
    
    End Sub

  3. #3
    L'avatar di ggratis
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Lecce - Pisa
    Età
    45
    Messaggi
    737
    Versione Office
    Excel 2010
    Likes ricevuti
    257
    Likes dati
    215

    Re: Sub CopiaComm

    Un saluto a tutti,
    Scusate l'intrusione...
    ...non ho seguito la discussione precedente, ma nel file allegato il tipo dati è definito Integer.
    Codice: 
    Sub main()
    Dim first As Integer, last As Integer
    Dim r As Integer
    first = 5: last = 8
    Dim arr() As Integer
    arr = RandomArray(first, last)
    Cells(9, "D") = Cells(9, "X")
    Call copiaComm(9, 24, 9, 4)
    For r = first To last
      Cells(r, "D") = Cells(arr(r), "X")
      Call copiaComm(arr(r), 24, r, 4)
    Next
    End Sub
    ho anche aggiunto il commento all'ultimo elemento fisso "Lucio".
    saluti
    gg

  4. #4

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

    Re: Sub CopiaComm

    Ciao @ggratis, oltre ad aggiungere la riga in rosso ho fatto qualche modifica, in particolare le Dichiarazioni e la struttura più leggibile (deformazione professionale).

  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: Sub CopiaComm

    Grazie Rubik72, Grazie ggratis siete formidabili tutto OK. Lo posto come RISOLTO. GRAZIE ancora e buon lavoro.

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
  •