Deel van scheet als sheet verzenden per mail

[TinusvD]

Ik heb een Excel programma met onder een knop waarmee ik de sheet uren als bijlage verstuur.

Echter heb ik er naast een berekening staan die nu ook meegaat aar deze is niet voor iedereen bedoeld.
Is het mogelijk om een deel van de sheet te verzenden als sheet b.v. range A1:J57 i.p.v. de gehele sheet Uren

Dit staat onder de knop:
Sub SendMail_Click()
Fname = "Kopie_Uurstaat"
Application.CopyObjectsWithCells = False
Sheets("uren").Copy
Application.CopyObjectsWithCells = True
With ActiveWorkbook
.Sheets(1).Protect "+++"
.SaveAs ThisWorkbook.Path & "" & Fname, 51
.ChangeFileAccess xlReadOnly
.Close True
End With
With CreateObject("outlook.application").createitem(0)
.to = "Joep@hetnet.nl"
.Subject = "Uren"
.body = "In bijlage de gevraagde uurstaat." & vbLf & vbLf & "Groeten T"
.attachments.Add ThisWorkbook.Path & "" & Fname & ".xlsx"
.display
End With
Kill ThisWorkbook.Path & "" & Fname & ".xlsx"
End Sub

 

[AlexCEL]

Deel van scheet als sheet verzenden per mail

Leuk onderwerp. Lijkt me onmogelijk :shocked:

 

[cow18]

Met een voorbeeldbestand had ik het zelf kunnen doorvoeren, dus :
- Een leeg hulpblad toevoegen, je gewenste bereik naar dat lege blad schrijven, desnoods als waarden.
- Dat lege blad dan apart saven om te versturen.
- Dat hulpblad weer verwijderen.

 

[AD1957]

Maak van de range een PDF.

Sub SendMail()

Dim OutApp As Object
Dim OutMail As Object


Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With Sheets("Blad1") [COLOR="#008000"]'bladnaam zelf aanpassen[/COLOR]
     filenamePDF = Environ("temp") & "\" & "Kopie uurstaat" & ".pdf"
    .Range("A1:J57").ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=filenamePDF
End With

With OutMail
    .To = "Joep@hetnet.nl"
    .Subject = "Uren"
    .Body = "In bijlage de gevraagde uurstaat." & vbLf & vbLf & "Groeten T"
    .Attachments.Add filenamePDF
    .display        [COLOR="#008000"]' .Send voor direct verzenden[/COLOR]
End With



Kill filenamePDF
Set OutMail = Nothing
Set OutApp = Nothing


End Sub

 

[TinusvD]

Hallo Albert.

Dank voor deze maar waar het naar toe gaat is het deel nodig als excel file.

 

[AD1957]

Kijk eens hier, genoeg voorbeelden te vinden.
https://www.rondebruin.nl/win/s1/outlook/amail4.htm
https://www.snb-vba.eu/VBA_Excelgegevens_mailen.html

 

[TinusvD]

Veel gelezen maar ben er nog niet uit..

Mij lijkt de oplossing van Cow18 wel een optie
Alleen zoek ik de regel om het zichtbare ingevulde als tekst te kopiëren van een andere sheet.
De formules die er in staan mag niet mee.
B.v. bij deze regel =ALS($H$5=0;" ";VERT.ZOEKEN($H$5;$L$7:$M$72;2;0)) alleen de uitkomst ingevuld als tekst leeg is leeg zonder formule.

Iemand hiervoor een oplossing

 

[LucHeyndrickx]

Misschien is dit een oplossing om de selectie naar een ander blad te kopiëren:

Sub Test()
    Range("Uurstaat").Copy Sheets("Blad2").Range("A1")
End Sub

Uurstaat is de naam die ik gegeven heb aan het ganse mogelijk te kopiëren gebied.
Vervolgens heb ik een autofilter op de tabel gezet.
Filteren op bijvoorbeeld 1 werknemer, en vervolgens de macro uitvoeren.

Succes ermee.

 

[snb]

Gebruik svp Code Tags !

 

[AD1957]

Wat heb je gedaan met post #6 ?
Op de site van SNB: gebruik de code van 2.3.7
op de site van Ron de Bruin: Example 1

Lukt het dan echt niet, wil ik wel helpen.

 

[TinusvD]

@LucHeyndrickx
Als ik het op deze manier oplos kan ik net zo goed de huidige opsturen.
Het ging er mij om om juist een deel te versturen en om het gedeelte, een berekening, wat ik niet mee wil delen niet mee te sturen.

@AD1957.
Ik heb velen geprobeerd via de 2 urls die je gestuurd hebt, echter kom er niet uit.
Vandaar leek mij het een makkelijkere oplossing om een copie te maken van een deel en dit te verzenden.
Een copie maken wil wel maar er zitten vele berekenigen e.d achter en deze werken niet bij een copie , er komt te staan #...
Zoek dus ee van de 2 moeilijkheden:
1 Een deel kopiëren naar mailadres als sheet bijlage en mailen
2 Een kopie maken van een deel en plakken als text, zonder verwijzingen.

Dus het is nog niet opgelost..

 

[AD1957]

Ok dan, kijk maar of je hier iets mee kan.
Code van Ron de Bruin en SNB beetje aangepast.

 

[TinusvD]

Deel van scheet als sheet verzenden per mail

Leuk onderwerp. Lijkt me onmogelijk :shocked:

Nu zie ik het pas.. Tja als je het zo leest dan heb je gelijk.. wat een letter extra al niet toevoegd aan een woord/zin


Kan ik dat nog aanpassen?

 

[TinusvD]

@ AD1957

Dit lijkt te werken alle 2.. klasse

Ik verwerk het in mijn bestand..
Dankje.. ik laat het weten.

 

[TinusvD]

Ik ben ze beiden aan het testen maar vergeten de melden dat de opmaak behouden moet blijven in de copy

 

[AD1957]

Met de code van Ron de Bruin wordt de opmaak toch meegenomen.
Rijhoogtes kunnen wel een probleem zijn.

 

[cow18]

range("...").entirerow.autofit eventueel na wraptext=false ?

 

[AD1957]

@com18,

Vreemd dat excel dit wel kent: xlPasteColumnWidths maar dit xlPasteRowHeight niet