Selecteren op basis van laatste datum

[svekkes]

Aan allen,

Ik heb in een werkboek een knop waarmee ik mijn werkblad kan omzetten naar een pdf-file om deze dan vervolgens te kunnen verzenden via email (dank aan de site van Ron de Bruin).

Maar hier heb ik het volgende probleem. Er wordt telkens het gehele werkblad omgezet, maar hier beginnen teveel gegevens op te staan. Nu had ik graag dat enkel het gedeelte wordt weergegeven op basis van de laatst ingevulde datum.
Vermoedelijk zal dit via een Range selectie moeten gaan.

Alvast bedankt

 

[Roncancio]

Aan allen,

Ik heb in een werkboek een knop waarmee ik mijn werkblad kan omzetten naar een pdf-file om deze dan vervolgens te kunnen verzenden via email (dank aan de site van Ron de Bruin).

Maar hier heb ik het volgende probleem. Er wordt telkens het gehele werkblad omgezet, maar hier beginnen teveel gegevens op te staan. Nu had ik graag dat enkel het gedeelte wordt weergegeven op basis van de laatst ingevulde datum.
Vermoedelijk zal dit via een Range selectie moeten gaan.

Alvast bedankt

Kan je de code opsturen?

Met vriendelijke groet,


Roncancio

 

[svekkes]

Hier is het stuk code

Sub Mail_ActiveSheet_PDF_Outlook()
'Note: It is easy to change the code to send a workbook, selection or range.
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim FilenameStr As String
 
    If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" _
         & Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") <> "" Then
 
        FilenameStr = Application.DefaultFilePath & "\" & _
        Format(Now, "dd-mmm-yy h-mm-ss") & ".pdf"
 
        ActiveSheet.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=FilenameStr, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=False
 
        Set OutApp = CreateObject("Outlook.Application")
        OutApp.Session.Logon
        Set OutMail = OutApp.CreateItem(0)
 
        strbody = "Hallo" & vbNewLine & vbNewLine & _
            "In bijlage vinden jullie de gegevens van een nieuwe prospect" & vbNewLine & _
            vbNewLine & "Mvg Koen"
 
        On Error Resume Next
        With OutMail
            .To = "sven@acol.be"
            .CC = ""
            .BCC = ""
            .Subject = "Nieuwe prospect"
            .Body = strbody
            .Attachments.Add FilenameStr
            .Display   'or use .Send
        End With
        On Error GoTo 0
 
        'Delete the pdf you send
        Kill FilenameStr
 
        Set OutMail = Nothing
        Set OutApp = Nothing
    Else
        MsgBox "PDF add-in Not Installed"
    End If
End Sub

 

[Roncancio]

Op de site van Ron de Bruin staat ook code om een gedeelte van een bestand op te sturen.
Deze code zou je kunnen combineren met je code om een PDF bestand te versturen.
Je zou inderdaad met een Range-selectie aan kunnen geven welk gedeelte van het bestand verzonden moet worden.
Je zou VBA kunnen laten zoeken naar een datum en dan het bijbehorende bereik als printbereik gebruiken.

Met vriendelijke groet,


Roncancio

 

[svekkes]

Ik heb die code inderdaad ook al gevonden en eens gelezen, maar aangezien ik een leek ben op het gebied van VBA.
Hoe zou ik dan moeten zoeken op de datum?

Mvg
Sven

 

[Roncancio]

Ik heb die code inderdaad ook al gevonden en eens gelezen, maar aangezien ik een leek ben op het gebied van VBA.
Hoe zou ik dan moeten zoeken op de datum?

Mvg
Sven

Met .Find

Stuur anders een voorbeeld.

Met vriendelijke groet,


Roncancio

 

[svekkes]

Ben hiermee zelf al eventjes aan het experimenteren geweest, maar het wil maar niet lukken.

Heb zelf al wel enkele codes gevonden.

Heb het bestandje eraan gehangen. Denk wel dat ik het een beetje onoverzichtelijk heb gemaakt.
Het is gewoon de bedoeling dat er wordt gezocht op de huidige datum en dat dan alle cellen die hiermee overeenkomen worden afgedrukt in het pdf-filetje dat meegestuurd wordt.
Is er ook de mogelijk om de titels van de kolomen mee af te drukken?

 

[Roncancio]

Bij het openen van het bestand wordt automatisch de macro datum gestart.
Deze controleert of er in het werkblad Bestelling een datum in de A-kolom staat die gelijk is aan vandaag.
Klopt dit (en alleen in dat geval !) dan wordt de kop uit de 2e regel gekopieerd naar het nieuwe werkblad samen met de bestellingen van vandaag.

Met vriendelijke groet,


Roncancio

 

[svekkes]

Dag Roncancio,

Bedankt voor je oplossing. Ben er mee aan het experimenteren geweest en heb nu bijna wat ik wou.
Maar ik heb toch nog één vraagje hierover: Hoe kan ik de opmaak (grootte van de cellen, ed) behouden van de cellen die worden gekopiëerd? Kan dit in het stukje code gezet worden of moet dit via een andere weg?

 

[Roncancio]

Ik heb het bestand aangepast aan je laatste bericht.

Met vriendelijke groet,


Roncancio

 

[svekkes]

Bedankt Roncancio,

Dit is hetgeen wat ik bedoel. Merci voor al je hulp.

:thumb::thumb::thumb: