Peter009
-
Items
4 -
Registratiedatum
-
Laatst bezocht
Inhoudstype
Profielen
Forums
Store
Berichten die geplaatst zijn door Peter009
-
-
Beste Bakerman,
Na wat stoeien om beide werkend te krijgen met de juiste instellingen werkt alles zo als gewenst.
Bedankt
-
Beste mensen,
Ik wil doormiddel van twee knoppen verschillende onderdelen op verschillende tabbladen afdrukken als PDF in een nieuw te creeren map.
De knop om het gehele werkboek als PDF op te slaan is geen probleem echter de knop om een bepaald onderdeel van elk werkblad als één PDF op te slaan krijg ik niet werkend.
Zie onderstaande teksten.
Deze voor het gehele werkboek werkt perfect
Private Sub PDF_maken() Dim pad As String Dim naam As String Dim foldername As String foldername = Sheets("voorblad").Range("a25").Value & "weekrapporten LAUDY" pad = foldername + "\" naam = "weekrapport LAUDY " & Sheets("voorblad").Range("y8").Value & " WK-" & Sheets("voorblad").Range("y10").Value & Format$(Now, " yyyy-mm-dd ") On Error Resume Next If Dir(foldername) = "" Then MkDir (foldername) Sheets("Voorblad").Select ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pad & naam, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True Worksheets("maandag").Select End Sub
Deze voor bepaalde onderdelen werkt niet
Private Sub PDF_rapport_maken() Dim pad As String Dim naam As String Dim foldername As String Dim sh As Worksheet foldername = Sheets("voorblad").Range("a25").Value & "weekrapporten BOUWDIREKTIE" pad = foldername + "\" naam = "weekrapport BOUWDIREKTIE " & Sheets("voorblad").Range("y8").Value & " WK-" & Sheets("voorblad").Range("y10").Value & Format$(Now, " yyyy-mm-dd ") On Error Resume Next If Dir(foldername) = "" Then MkDir (foldername) Set sh = Worksheets("voorblad") sh.PageSetup.PrintArea = "$a$1:$ac$58" Set sh = Worksheets("maandag") sh.PageSetup.PrintArea = "$A$1:$ad$125" Set sh = Worksheets("dinsdag") sh.PageSetup.PrintArea = "$a$1:$ad$125" Set sh = Worksheets("woensdag") sh.PageSetup.PrintArea = "$a$1:$ad$125" Set sh = Worksheets("donderdag") sh.PageSetup.PrintArea = "$a$1:$ad$125" Set sh = Worksheets("vrijdag") sh.PageSetup.PrintArea = "$a$1:$ad$125" Set sh = Worksheets("zaterag") sh.PageSetup.PrintArea = "$a$1:$ad$125" Sheets(Array("voorblad", "maandag", "dinsdag", "woensdag", "donderdag", "vrijdag", "zaterdag")).ExportAsFixedFormat Type:=xlTypePDF, Filename:=pad & naam, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=True Worksheets("maandag").Select End Sub
Hoe krijg ik de onderste werkend ?
Bij voorbaat bedankt,
Gr peter
-
Beste mensen, graag had ik hulp bij mijn excel zoek probleem.
Mijn bestand bestaat uit een database van persoonsgegevens van ongeveer 250 personen, deze personen zijn opgedeeld in 6 clusters.
Ieder cluster is opgedeeld in 2 sub clusters A en B.
De personen van ieder cluster wil ik op 6 aparte tabbladen hebben staan met een beperkt aantal kolommen met persoonsgegevens.
Helaas lukt me dit niet met de functie zoeken omdat ik dan maar 1 cel te zien krijg als ik zoek naar 1 in de eerste kolom.
Wie kan mij helpen ?
Ik hoop dat de bijlage het duidelijker maakt.
Gr Peter
zoeken naar getallen en bijbehorende gegevens kopieren
in Archief Excel
Geplaatst:
Beste JeanPaul28,
Begrijpen doe ik je oplossing niet helemaal maar voor een deel werkt het.
Wat ik echter merk is dat op blad 2 "cluster 1" niet de juiste regels geselecteerd worden, ik mis de bovenste 2 namen van cluster 1 maar zie onderaan wel de bovenste 2 namen van cluster 2.
Hoe kan ik dit verschuiven oplossen ?
Gr Peter009