Bestand naar mail sturen als datum bereikt

[Marthy Mc Fly]

Foutje van mij. Maar als ik de macro start krijg ik de foutmelding dat het subscript buiten bereik ligt.
Er staat wel een csv bestand in de map, maar daar staat niet in.

 

[edmoor]

Ik ga er wel vanuit dat je het test in het document dat je plaatste.
Overigens zitten daar nog steeds geen rijen in die aan je voorwaarde voldoen.

 

[Marthy Mc Fly]

Ik heb dit getest in het document waar het moet komen. Dus niet in het test document.
Het document waarin de code moet komen telt ongeveer zo'n 1025 lijsten die gecheckt moeten worden.
Ik wil wellicht iets te snel gaan ipv stap voor stap

 

[edmoor]

Als het uiteindelijke document geen werkblad met de naam Blad1 heeft krijg je de foutmelding die je noemde.
Test het dus in het document dat je plaatste, anders blijven we bezig.

Verwacht nooit dat je code uit een document zomaar kan overnemen naar een ander document en dat het dan 100% werkt.

 

[Marthy Mc Fly]

Ik had de code in het origineel geplaatst omdat er in het test document geen lijst voldeed aan de voorwaarden.
Vervolgens heb ik het in het test document geplaatst en de datum gewijzigd dat ik toch resultaat had en het
csv bestand ziet er ook uit zoals gewenst.
Zoals al eerder vermeld ben ik een leek wat betreft vba, vandaar dat het mogelijk wat stroever loopt. Mijn excuses hiervoor.

 

[edmoor]

Geen probleem natuurlijk, daar is Helpmij o.a. voor.
Plaats dan je test document met regels die resultaat opleveren.

 

[Marthy Mc Fly]

Bekijk bijlage Test.xlsm
Bij deze zijn er 2 die aan de voorwaarden voldoen.

 

[edmoor]

Dat zal dan morgen worden omdat ik nu niet meer thuis ben.

 

[Marthy Mc Fly]

Als ik de macro wil starten bij openen van bestand ipv manueel moet ik de code starten met

Private Sub Workbook_Open()

neem ik aan.

 

[VenA]

Alles wat je aanneemt kan je ook zelf proberen.

 

[edmoor]

Oeps.
Ik zou het mailen er nog voor in zetten.
Bij deze.
Het wordt uitgevoerd bij het openen van het document.
Wel even je eigen mail adres er in zetten.

Bekijk bijlage Test.xlsm

 

[Marthy Mc Fly]

Hallo Edmoor,

Bedankt voor de reactie. Het test document lijkt me te werken zoals ik verwacht.
Ik heb dit nu ingebracht in het oorspronkelijk document met de nodige aanpassingen.
Alleen is mijn CSV bestand leeg, terwijl er wel cellen voldoen aan de voorwaarden.
Kan het zijn dat ik ook in deze rij moet wijzigen.

For i = 7 To .Cells(7, 1).CurrentRegion.Rows.Count + 5

of heb ik iets anders over het hoofd gekeken. De Sheets naam is gewijzigd
naar wat het moet zijn. En het mailing gedeelte werkt prima.

 

[edmoor]

Zonder dat document kan ik zeker aan dat ene regeltje niet zien waarom het CSV bestand leeg is.

Oeps:
Ik zie net dat er nog wel een fout in zit.
Plaats in je eigen document de rode punten voor Cells op die plek:

Print #1, [COLOR="#FF0000"].[/COLOR]Cells(i, "F") & ";B;8846;J;" & [COLOR="#FF0000"].[/COLOR]Cells(i, "B") & ";" & [COLOR="#FF0000"].[/COLOR]Cells(i, "A")

 

[Marthy Mc Fly]

Op zich is dat document totaal hetzelfde als het test document. Alleen staan er in dat document ongeveer zo'n 1025 lijsten.

 

[Marthy Mc Fly]

Dan zou het in het test documenten ook niet gewerkt hebben.
En dat was niet het geval. Als ik daar de datums zo aanpaste dat er aan de voorwaarden voldaan werd, dan stond alles we correct in het csv bestand.
Met punt is het resultaat hetzelfde.

 

[edmoor]

Dat staat los van het test document.
Zoals gezegd kan ik niks met dat ene regeltje code.
En wat bedoel je met lijsten?

 

[Marthy Mc Fly]

Daar bedoel ik het aantal taken mee. Dus ongeveer 1025 rows

 

[edmoor]

Misschien dat je me dat document wilt mailen als het privacy gevoelig is.
Dan kan ik wel zien waarom het CSV bestand leeg blijft.

 

[Marthy Mc Fly]

Nogmaals bedankt voor de hulp. :thumb: