Excel - Somma/accoda testo di una colonna in txt temporaneo

[Dylan666]

Ho un foglio excel con tre colonne, di cui la terza (diciamo da C4 a C100) ha degli indirizzi di posta.
Vorrei creare un bottone con associato un ciclo che prende il testo della prima cella e ci aggiunge "; ", poi ci mette anche quello della seconda e in più "; " e via via. La lunga stringa di indirizzi finale si dovrebbe aprire in una finestra a parte (con testo copiabile) o ancora meglio in un TXT non salvato (al massimo nei temp)

Suggerimenti? Io sono un po' arrugginito in materia...

[Anthony47]

Ciao Dylan,
guarda questa discussione: viewtopic.php?f=26&t=45895
Prevede la possibilita' di creare un elenco basato su filtro degli utenti, ma se non hai bisogno/voglia di approfittare di questa prestazione la formula e' la stessa.
Ti accumula gli indirizzi in una cella di excel, poi Contr-c e Contr-v sul client di posta.

Se non ti quadra siamo (quasi) sempre qui.
Ciao.

[Dylan666]

Scusa, sono un po' di coccio... quel sarebbe la parte di codice che fa al caso mio?

[Anthony47]

Il messaggio di Anthony47, 15/05/06 19:41
"Ciao megatony,
mi sembra che tu stia cercando il modo di avere l' insieme degli indirizzi in funzione di un flag che hai in una colonna.
Supponiamo che hai gli indirizzi in colonna C e il flag in colonna D, dalla riga 2 in giu'; allora prova a mettere in E2 =E3&SE(D2=1;C2&"; ";""), copiando poi la formula sulle righe successive fino all' ultimo utente
Etc etc etc"

Ciao.

[Dylan666]

ma senza copiare la stessa formula in tutte le celle non è più facile fare un ciclo?

[Dylan666]

Causa nuove esigenze devo fare la cosa sopra indicata per forza con una macro e un ciclo. Volevo partire da questo:
http://support.microsoft.com/kb/213544/it

L'esempio cancella tutte le celle che contengono "x":

Codice: Seleziona tutto

Sub DeleteCells()

    'Loop through cells A1:A10 and delete cells that contain an "x."
    For Each c in Range("A1:A10")
        If c = "x" Then c.EntireRow.Delete
    Next

End Sub

Leviamo la condizione "If", che tanto non mi interessa. vorrei ce nella clipboard o in una cella (es. X10) sia andassero a concatenare i contenuti di tutte le celle in cui passa la macro con aggiunto ";"

In .Net si scriverebbe più o meno così:

Codice: Seleziona tutto

Sub DeleteCells()

Dim X10  as String = c

    For Each c in Range("A1:A10")
        c +=  c & ";"   
Next

End Sub

Non sarà corretto ma spero di aver reso l'idea

[Anthony47]

Vedi questa:

Codice: Seleziona tutto

Sub SommAddres()
Uscita = "Foglio2"    '<<< Settare a piacere
For Each Addr In Range("C4", Cells(Rows.Count, 3).End(xlUp))
Tutti = Tutti & Addr.Value & "; "
Next Addr
With Sheets(Uscita).Range("A1")
 .Value = Tutti
 .ColumnWidth = 73
 .WrapText = True
End With
End Sub

Scrive in A1 del foglio che definisci nella seconda istruzione.

Ciao.