Risultati da 1 a 5 di 5

Discussione: Macro per trasferire dati da una colonna in un unica cella...



  1. #1
    L'avatar di Danilo
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Asti
    Età
    65
    Messaggi
    2
    Versione Office
    2011 mac
    Likes ricevuti
    0
    Likes dati
    0

    Macro per trasferire dati da una colonna in un unica cella...



    Il mio scopo è da un elenco in colonna di indirizzi e-mail (inserendo gli ultimi al fondo colonna e dopo averli ordinati alfabeticamente), trasferirli in una cella (in questo esempio la: C8) un indirizzo dopo l'altro separato da una virgola e uno spazio.
    Per inserirlo poi in una "mail-list" aggiornato.
    -----------
    Quello che mi serve sarebbe la sola macro che dalla colonna "A" mi trasporti gli indirizzi nella cella "C8" con le caratteristiche descritte precedentemente.
    Grazie
    ------------
    EXCEL per MAC da Office 2011
    Ultima modifica fatta da:cromagno; 03/03/16 alle 19:30 Motivo: Modificato titolo: "Come creare una macro che..."

  2. #2

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6798
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    164
    Ciao Danilo

    Prova con questa che è una Function che deve essere copiata in un modulo standard.


    Codice: 
    Function prova(a)
    Dim cel As Range
    For Each cel In a
        prova = prova & cel.Value & ", "
    Next cel
    End Function
    In C8 dovrai scrivere

    Codice: 
    =prova(a1:a8)
    Alfredo

  3. #3
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da Danilo Visualizza Messaggio


    Il mio scopo è da un elenco in colonna di indirizzi e-mail (inserendo gli ultimi al fondo colonna e dopo averli ordinati alfabeticamente), trasferirli in una cella (in questo esempio la: C8) un indirizzo dopo l'altro separato da una virgola e uno spazio.
    Per inserirlo poi in una "mail-list" aggiornato.
    -----------
    Quello che mi serve sarebbe la sola macro che dalla colonna "A" mi trasporti gli indirizzi nella cella "C8" con le caratteristiche descritte precedentemente.
    Grazie
    ------------
    EXCEL per MAC da Office 2011
    Ciao Danilo prova se ti va bene questa :

    Codice: 
    Sub CreaLista()
    
    Dim i As Integer
    Dim uriga As Long
    Dim valore As String
    
    
    uriga = Range("A" & Rows.Count).End(xlUp).Row
    
    
    For i = 1 To uriga
        valore = Range("A" & i).Value
        If Range("D1").Value = "" Then
            Range("D1").Value = valore
        Else
            Range("D1").Value = Range("D1").Value & "," & valore
        End If
    Next
    
    
    MsgBox ("AGGIORNAMENTO COMPLETATO"), vbInformation, "ATTENZIONE"
    
    
    End Sub
    Naturalmente i riferimenti li adatterai alle tue esigenze

    Fammi sapere - ciao.
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  4. #4
    L'avatar di Danilo
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Asti
    Età
    65
    Messaggi
    2
    Versione Office
    2011 mac
    Likes ricevuti
    0
    Likes dati
    0
    Grazie a tutti.
    Ho provato il file in allegato con la macro e funziona, ho solo dovuto aggiungere alla macro uno spazio dopo la virgola [da ("," & valore) a (", " & valore)]
    Grazie

  5. #5
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da Danilo Visualizza Messaggio
    Grazie a tutti.
    Ho provato il file in allegato con la macro e funziona, ho solo dovuto aggiungere alla macro uno spazio dopo la virgola [da ("," & valore) a (", " & valore)]
    Grazie
    Grazie a te per il riscontro.

    potresti per piacere mettere [RISOLTO].

    Grazie e ... alla prossima ciao.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

Discussioni Simili

  1. [Risolto] Unire i dati di più celle in un'unica cella
    Di Ciccio nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 23/01/17, 16:01
  2. Dati in verticale unirli in un unica cella separati da pipe
    Di provoadimpar nel forum Domande su Excel VBA e MACRO
    Risposte: 26
    Ultimo Messaggio: 13/11/16, 18:32
  3. [Risolto] Estrarre dati da più colonne e riportarli in un'unica colonna
    Di andreafuri nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 14/10/16, 21:49
  4. Risposte: 16
    Ultimo Messaggio: 26/02/16, 15:14
  5. Raggruppare dati da più celle in unica cella
    Di BRAZ66 nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 30/07/15, 23:03

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
  •