consulta sobre lista en excel

[mrocf]

Hola!
La propuesta del amigo "3pies" es útil cuando se desea "armar" una lista de correo con datos consecutivos: desde una cierta celda hasta el final de la lista.

Pero imaginemos que lo que se desea es mandar un correo a las siete direcciones ubicadas en E3, E5:E7, E12, E18 y E31...

Para esta instancia lo que haríamos es seleccionar esas celdas (asumo que todos sabemos seleccionar celdas no contiguas) y aplicar algo así:

Código PHP:

  Option Explicit
Dim c As Range

Sub Mailing()
Dim MailingList() As String, i As Byte
ReDim MailingList(1 To eAddresses(Selection))
For Each c In Selection
  i = i + 1
  MailingList(i) = c
Next c
InputBox "Direcciones de correo seleccionadas:", "Mailing", Join(MailingList, "; ")
End Sub

Function eAddresses(r As Range) As Byte
For Each c In r.Areas
  eAddresses = eAddresses + c.Rows.Count
Next c
End Function 
   

El procedimiento termina ofreciéndonos un cuadro con las direcciones ya listas para copiarlas y pegarlas en el programa de correo.

Saludos, Cacho.