alpha

Rijen waarvan het rijnummer kleiner is dan 21 mogen niet worden verwijderd, ook al zijn ze leeg, begrijp ik uit jouw verhaal. Ná rij 21 worden een aantal rijen met glaswaarden ingevuld en daaronder staan kennelijk nog een aantal rijen met gegevens die moeten worden verwijderd. Vraag: hoe ziet zo'n rij met glaswaarden er uit? Of, m.a.w.: welk gegeven/welke kolom is bepalend voor wat de laatste rij met glaswaarden is?

De mappen die vóór uitvoering van de macro aanwezig moeten zijn, beschreef ik in bericht #2 niet helemal correct. Uit jouw eerste bericht blijkt dat moet bestaan: - in M:\ de map "Offertes 2015" - in "Offertes 2015" de map "120" (als 120 het getal is dat in H4 staat). - in de map "120" de map "8 Budget"

Bij het opslaan als pdf is er een probleem als bij weergave van de tijd een dubbele punt wordt gebruikt tussen de uren en minuten. Maar als je in plaats daarvan een punt gebruikt is de tijd in de filename ook goed leesbaar. Probeer daarom dit als je in H3 nog steeds =nu() hebt staan: Sub macro1() Dim lLaatsteRegel As Long, Bestandsnaam As String, mydate As String, mytime As String lLaatsteRegel = Range("A" & Rows.Count).End(xlUp).Row ActiveSheet.PageSetup.PrintArea = Range("A1:I" & lLaatsteRegel) mydate = Format(Range("H3").Value, "dd-mm-yy") mytime = Format(Range("H3").Value, "hh.mm") Bestandsnaam = "Glasstaat " & mydate & " " & mytime pad1 = "M:\1 Offertes 2015\" & Range("H4").Value & "\8 Budget\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:=pad1 & Bestandsnaam, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub In plaats van de datum en tijd uit H3 te nemen, kun je ook de datum en tijd van de computer nemen (Date, resp. Time), maar behalve die twee woorden wijzigt dat niets aan het programmeren. Ervaar je nog problemen bij de pdf-opslag, dan kun je in H3 de tijd best invoeren als (bv.) 27-01-15, dan kun je in de code voor de bestandsnaam gewoon gebruiken: Bestandsnaam = "Glasstaat " & Range("H3").value . De regels met mydate= en mytime= kunnen dan vervallen.

In =NU() zit naast de datum ook de tijd en die veroorzaakt bij jou problemen. Als wat de weergave betreft de datum voldoende is, kun je =NU() wel laten staan, maar dan kun je best die cel opmaken als Datum, type: 14-03-01. Dan loopt er met de opslag niks mis. Bedenk wel dat met =NU() de datum (en evt. ook de tijd) in H3 elke dag wordt aangepast. Als dat ook de bedoeling is, is dat ok natuurlijk.

Onderstaande macro doet wat je wenst, maar uiteraard wel met de veronderstellingen (voordat je de macro uitvoert): - dat op schijf M de map "1 Offertes 2015" aanwezig is; - dat in de map "1 Offertes 2015" een map aanwezig is met de naam "Glasstaat 120" (als 120 het offertenummer is dat in H4 staat); - en dat in de map "Glasstaat 120" een map aanwezig is met de naam "8 Budget". Vreemde namen gebruik je overigens: "lLaatsteRegel", "1 Offertes 2015", "8 Budget". Sub PDF() Dim lLaatsteRegel As Long lLaatsteRegel = Range("A" & Rows.Count).End(xlUp).Row ActiveSheet.PageSetup.PrintArea = Range("A1:I" & lLaatsteRegel) pad1 = "M:\1 Offertes 2015\" & Range("H4").Value & "\8 Budget\" BestandsNaam = "Glasstaat " & Range("H3").Value ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pad1 & BestandsNaam, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub