Sende enkelt ark eller celler fra exel

Skift arknavnet ud med det ark du vil sende.

Sub Makro1()

    Sheets("Ark3").Select
    Sheets("Ark3").Copy
    Application.Dialogs(xlDialogSendMail).Show
    ActiveWindow.Close
End Sub

Hej kabbak.

Jeg forstår ikke helt hvad du vil ha' jeg skal gøre.

Jeg forsøger at sende de enkelte ark som vedhæftet fil via 'filer/send, og går derfor ikke ud fra at jeg behøver at lave makroer m.v.
mvh. permor7

1.Højreklik på arkfanen, på det ark du vil sende.
2. vælg flyt eller kopier, vælg ny projektmappe og sæt flueben i opret kopi, klik ok

3.Filer/send til postmodtager som vedhæftet fil.

4. luk nen nye mappe uden at gemme.

så har du kun sendt dette ene ark.


det er det makroen gør automatisk.

Her er 2 automatiske makroer Den første sender det ark du står i, og den anden sender de data du har markeret.

Sub SendActiveArk()
' sender det ark som er aktiveret
    ActiveSheet.Copy
    Application.Dialogs(xlDialogSendMail).Show
    ActiveWindow.Close SaveChanges:=False
End Sub
Sub SendMarkeredeData()
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Range("A1").Select
    Application.CutCopyMode = False
    Application.Dialogs(xlDialogSendMail).Show
    ActiveWindow.Close SaveChanges:=False
End Sub

Må indrømme at Kabbak, ligger inde med et rigtigt godt svar - til spørgsmålet! Kabbak -> Kan se at du er international! "SendActiveArk" - er det fordi du skal "activate et ark" eller fordi du skal "aktivere a sheet"??????????

:-)

Nej, spøg til side..... som sagt et godt svar!

Stewen --> ja ja , active = aktive ;-)