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!

Rob Embrace

Lid
  • Aantal items

    31
  • Registratiedatum

  • Laatst bezocht

Over Rob Embrace

  • Titel
    Geregeld Bezoeker

Recente bezoekers van dit profiel

De recente bezoekers block is uitgeschakeld en zal niet meer getoond worden aan gebruikers.

  1. Dit topic mag gesloten worden. Heel veel dank aan de vrijwilligers. Rob
  2. Philiep Mijn dank is groot😊 dit is exact wat de bedoeling was. werkt super. Ik heb nog even de msg box toegevoegd en publiceren van de pdf files uitgezet. bedankt voor de goede hulp. Mvg Rob
  3. Hallo, Uiteraard heb ik de code zo ingeplakt maar er word een compileer fout gemeld, er wordt een end sub verwacht. Voor de duidelijkheid hier onder de complete code met een beschrijving. Sub MacroROB() Mdd = Month(Now()) If Blad2.Range("D67").Value = Mdd Then Vnr = Blad2.Range("E67").Value + 1 Else Blad2.Range("D67").Value = Mdd Vnr = 0 End If Blad2.Range("E67").Value = Vnr Vnr = " (" & Vnr & ")" ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "G:\Office\Naaldwijk\Projecten financieel\Prognoses 2020\" & Filename & "\ " & Blad2.Range("F64").Value & Vnr & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True MsgBox "De rapportage is opgeslagen op de G schijf.Nu kan je de PDF opslaan in jouw eigen financieele map. ", vbOKOnly, "Info" End Sub Sub dotch() ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Blad2.Range("F64").Value & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub Als ik de nieuwe code in plak waar het zou moeten dan word er een End sub verwacht na de megbox. Een klein beetje uitleg over de code: op het blad staat een knop die er voor moet zorgen dat de file wordt opgeslagen als PDF op een server in de map prognoses 2020. Het bestand bevind zich op dat moment op een willekeurige pc in het netwerk. Het bestand wordt opgeslagen met de file name en een volgnummer. Wat ik graag zou zien is dat de file ook in de map wordt opgeslagen waar het zich op dat moment bevind. uiteraard ook als pdf en met volg nummer ( het zelfde als op de server). Ik hoop dat het zo wat duidelijker is en dat iemand een idee heeft. mvg Rob
  4. Hallo Philiep, Als eerste bedankt voor uw reactie. Het lukt mij niet deze code werkend te krijgen, kan je mij laten zien hoe en waar jouw stukje ingezet zou moeten worden in de bestaande code. alvast bedankt Rob
  5. Hallo Excel experts, Het gaat om het opslaan van een Excel bestand als PDF. Ik heb een stukje VBA dat ervoor zorgt dat de file als pdf op een bepaalde locatie word opgeslagen, dat werkt prima. Het zou alleen mooi zijn als het bestand dan ook in de map waar het uit opgestart is word opgeslagen als PDF. De map waarin het bronbestand word geplaatst is elke keer anders ( er werken diverse mensen met dit bestand. Heeft iemand een oplossing voor dit vraagstuk? Hieronder het stukje VBA ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "G:\Office\Naaldwijk\Projecten financieel\Prognoses 2020\" & Filename & "\ " & Blad2.Range("F64").Value & Vnr & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True MsgBox "De rapportage is opgeslagen op de G schijf.Nu kan je de PDF opslaan in jouw eigen financieele map. ", vbOKOnly, "Info" End Sub Er zou dus een stukje bij moeten komen dat de file ook opslaat in de map waaruit het is opgestart.
  6. @ Bakerman, Ik ga er vandaag even goed voor zitten en eens kijken waar het mis loopt. Ben erg benieuwd. Bedankt voor de moeite
  7. @ Jean Paul, Bedankt voor jouw input, Ik heb de sheet werkend met jouw aanvulling. Thanks 👍 @ Bakerman, Bedankt voor jouw input. Ik heb ook jouw code getest maar krijg een foutmelding. "Compileer fout: expressie voor constante vereist." in Const PathName = "C:\Users\rkeulen\Desktop\map 1\" & Filename & "\" Maar even goed super bedankt voor het mee denken. Rob
  8. Allen, Even een update: Ondertussen is het gelukt om het volg nummer te krijgen in de bestand naam. Allen nog het reseten van het volgnummer naar (0) elke eerste van de maand. Iemand een idee? Fin.raportage 20N0000 Atlantic test opslaan.xlsm
  9. 3- 20 is de maand en jaar. Sorry deze cellen staan nog op witte tekst. Fin.raportage 20N7890 Atlantic (1).xlsm
  10. Goede middag, Nu ben ik al een poos aan het knutselen met een VBA code om het volgende te doen: Bij het activeren van de knop zou het volgende moeten gebeuren, 1- De map moet in zijn geheel worden opgeslagen in PDF op een locatie op een server( dit lukt). 2- De PDF moet de naam hebben van het bestand, project nummer en maand. ( dit lukt ook). 3- Het bestand moet een cijfer mee krijgen dat steeds met 1 wordt ophoogt elke keer dat de knop voor opslaan word gebruikt. Elke 1ste van de maand moet dat getal op 0 staan en dan per keer dat in die maand wordt opgeslagen met 1 opgehoogd. Het cijfer zou op de laatste plaats in de naam van het bestand zichtbaar moeten zijn. voorbeeld: Fin.rapportage 20N7890 Atlantic 3-20 (0) (De blauwe tekst is al de bestand naam). Het getal 0 zou dus elke keer dat opgeslagen word met 1 verhoogd moeten worden. En bij elke nieuwe maand weer op (0) moeten beginnen. Ik denk dat ik vrij omslachtig te werk ben gegaan met het maken van de oplossing tot nu toe. Heeft iemand een oplossing voor dit probleem of een tip? al vast bedankt voor de moeite. Rob Fin.raportage 20N7890 Atlantic.xlsm
  11. Hallo, Ik ben opzoek naar een formule iod om van 5 digits die uit een 0 of 1 kunnen bestaan elke mogelijke combinatie weer te geven. Is er iemand die daar een oplossing voor weet? Alvast bedankt voor de moeite, Rob Combinaties test.xlsx
  12. Heren, Mijn dank is groot met de super hulp. Ik heb inderdaad alles goed werkend gekregen met uw input. wat mij betreft mag dit topic gesloten worden.
  13. Deze werkt super en ik heb weer het een en ander geleerd😊. Nu lukt het me wel om ook de map beveiliging toe te passen en met een wachtwoord te beveiligen. Super bedankt allemaal voor je input.👏 Rob.
  14. Het is de bedoeling dat andere mensen tegelijk dit bestand gebruiken. En een project kunnen toevoegen. Die hebben geen kennis van exel. Dus is het niet wenselijk dat zij de beveiliging opheffen.
  15. Voor de volledigheid nog een keer het bestand bijgevoegd. Macro 1 word gebruikt voor het tussen voegen van een nieuw planning blok. Rob Planning 2020 1.test.xlsm
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...