Ga naar inhoud

Welkom op PC Helpforum!
PC Helpforum helpt GRATIS computergebruikers. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen.

Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!


JTvD

Tabblad verzenden

Aanbevolen berichten

Geplaatst: (aangepast)

Ik heb in een Excel file 3 tabbladen zitten.

1 uren

2 planning

3 kennis.

 

We moeten telkens de uren versturen via outlook.

We verplaatsen/kopie maken deze uren tab nu om deze als Exel file te versturen.

Kan dit ook met VBA knop?

Zo ja hoe?

 

aangepast door JTvD

Deel dit bericht


Link naar bericht
Delen op andere sites

  • Topicstarter
  •    0

    Bucky, Dankje, ik ga deze morgen op het werk er in zetten en aanpassen.

     

    Deel dit bericht


    Link naar bericht
    Delen op andere sites

    Geplaatst: (aangepast)

    Wil je het werkblad als bijlage versturen zal deze het beter doen.

     

    Sub SendSheet()
        Fname = "Kopie_Uurstaat"
        Sheets("uren").Copy
        With ActiveWorkbook
            .SaveAs ThisWorkbook.Path & "\" & Fname, 51
            .Close False
        End With
        With CreateObject("outlook.application").createitem(0)
            .to = "hier het emailadres"
            .Subject = "hier het onderwerp of celverwijzing"
            .body = "In bijlage de gevraagde uurstaat." & vbLf & vbLf & "Groeten JTvD"
            .attachments.Add ThisWorkbook.Path & "\" & Fname & ".xlsx"
            .display
        End With
        Kill ThisWorkbook.Path & "\" & Fname & ".xlsx"
    End Sub

     

    aangepast door bakerman

    Deel dit bericht


    Link naar bericht
    Delen op andere sites
  • Topicstarter
  •    0

    @  Bucky, deze verzend alleen maar de inhoud het was juist de bedoeling om een tabblad te versturen

    @ Bakerman: deze lijkt te werken, ik krijg een tabblad apart te zien echten dan ook gelijk een foutmelding op deze regel

    .SaveAs Thisworkbook.Path & "\" & Fname, 51

    De melding heeft volgens mij te maken met de module om bij het opstarten een deel leeg te maken.

    Opslaan gaat dan via opslaan met macro's

     

    Klopt dit en hoe kan ik dit opvangen

    Deel dit bericht


    Link naar bericht
    Delen op andere sites
    Quote

    De melding heeft volgens mij te maken met de module om bij het opstarten een deel leeg te maken.

    Post eens een voorbeeld bestandje zonder gevoelige info, wij hebben echt geen glazen bol.

     

     

    Deel dit bericht


    Link naar bericht
    Delen op andere sites

  • Topicstarter
  •    0

    Ik heb even een klein opzetje gemaakt

    Hierbij worden de uren leeggemaakt  tijdens het opstarten de overige info blijft staan.

     

    De melding die ik krijg heeft te maken met het opslaan, 

    Urentest.xlsm

    Deel dit bericht


    Link naar bericht
    Delen op andere sites

    De oorzaak was vrij eenvoudig (de oplossing ook :) )

     

    Je hebt een ActiveX-knop gebruikt om de macro te starten. Daardoor komt de code terecht in de bladmodule van Uren werkblad.

     

    Bij het maken van een kopie van het werkblad wordt deze code echter ook meegenomen. Als je dan het nieuwe bestand probeert op te slaan

     

    als bestand zonder macro's (xlsx) krijg je een foutmelding.

     

    Oplossing:

     

    Gebruik een knop uit de FormButtons-collectie en verhuis de code naar een standaardmodule zodat dit probleem zich niet voordoet.

     

    Ik heb nog 2 lijnen aan de code toegevoegd zodat de knop niet meer in het nieuwe bestand staat.

     

    Sub SendMail_Click()
        Fname = "Kopie_Uurstaat"
        Application.CopyObjectsWithCells = False
        Sheets("uren").Copy
        Application.CopyObjectsWithCells = True
        With ActiveWorkbook
            .SaveAs ThisWorkbook.Path & "\" & Fname, 51
            .Close False
        End With
        With CreateObject("outlook.application").createitem(0)
            .to = "[email protected]"
            .Subject = "Uren"
            .body = "In bijlage de gevraagde uurstaat." & vbLf & vbLf & "Groeten JTvD"
            .attachments.Add ThisWorkbook.Path & "\" & Fname & ".xlsx"
            .display
        End With
        Kill ThisWorkbook.Path & "\" & Fname & ".xlsx"
    End Sub

     

    Urentest.xlsm

    Deel dit bericht


    Link naar bericht
    Delen op andere sites
  • Topicstarter
  •    0

    Hallo bakerman

     

    Ik heb een knop aangemaakt via formuliersbusturingselementen, voor deze de code in de nieuwe Macro gezet.

    Echter is de melding nog het zelfde.

     

    Ok heb ik het niet goed begrepen?

     

    Deel dit bericht


    Link naar bericht
    Delen op andere sites
    Gast
    Dit topic is nu gesloten voor nieuwe reacties.

    Logo

    OVER ONS

    PC Helpforum helpt GRATIS computergebruikers sinds juli 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!

    ×
    ×
    • Nieuwe aanmaken...