Overfører kolonne

Hvad er det for celler, du ikke vil have med i kopien?

Du må kunne bruge et nyt ark og benytte et LOPSLAG.

Ok, nu tror jeg, jeg ved hvad du mener.
Hvis jeg kopier alle celler (har blot prøvet med 4) direkte ind i en ny mails "Til" felt, så fungerer det faktisk, som det skulle.

superjap -> Jeg antager du har fat i denne, så vil jeg logge af og "o' langs" som vi siger hernede i fodenden.

mugs -> Det vil jo vise sig. Men god fornøjelse :0)

Det var iaftes. Nu skal jeg bare sove og sove :o)

Hvis du vil sende til alle på en gang, og det er samme tekst, kan denne makro gøre det.

Du skal markere dine mail adresser, som du vil sende til, i excel

Sæt denne kode ind i et modul, og kør makroen, MailSending

Private Declare Function ShellExecute Lib "Shell32.dll" _
    Alias "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

Private Sub Mail(eMail As String, Optional Subject As String, _
    Optional Body As String)
    Call ShellExecute(0&, "Open", "mailto:" + eMail + _
        "?Subject=" + Subject + "&Body=" + Body, "", "", 1)
End Sub

Sub MailSending()
  Dim eMail As String, Subject As String, Body As String
  For Each C In Selection ' markerede celler med mailadresser
  til = til & C.Value & ";"
  Next
  til = Left(til, Len(til) - 1)
    eMail = til
    Subject = "Info om mailen"
    Body = "My Text" ' din tekst
    Call Mail(eMail, Subject, Body)
End Sub

sjap .. svar ? :)

Gerne :0)