2 vragen a. naar werkblad gaan b. werkblad printen en mailen

[jgdesmit]

wie kan mij helpen uit te leggen.
Vraag 1
Als ik op de knop selectie overnemen klik wil ik automatch in het werkblad
Bestellingen komen.

Vraag 2
Als ik op de knop de knop per mail verzenden klik, wil ik eigenlijk dat hij alleen het werkblad bestelling uitprint en per mail direct verzend.

Hij verzend nu de hele ActiveWorkbook en ik wil dus alleen de op dat moment active werkblad met alles
wat daar opdat moment in staat uitprint en per mail verzend.

vast bedankt.

groeten Jaap

 

[Gert Bouwmeeste]

Vraag 1

Sub SelecteerTabblad()
    
    Sheets("Bestelling").Select
    
End Sub

Vraag 2
Maak een kopie van het actieve tabblad naar een nieuw bestand en mail dat nieuwe bestand:

Sub VerzendTabblad()

    Sheets("Blad1").Select
    Sheets("Blad1").Copy
    Application.Dialogs(xlDialogSendMail).Show

End Sub

Vanuit Excel het mailadres meegeven is ook mogelijk, kijk hiervoor bv op deze vraag. Kijk vooral ook op de site van Ron de Bruin