Rob Embrace

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.

@ Bakerman,

Ik ga er vandaag even goed voor zitten en eens kijken waar het mis loopt.

Ben erg benieuwd. 

Bedankt voor de moeite

@ 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

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

11 uren geleden, JeanPaul28 zei:

Ik zou dat op een apart blad bijhouden, en wat is 3- 20 dat vind ik niet terug in u code

3- 20 is de maand en jaar.

Sorry deze cellen staan nog op witte tekst.

Fin.raportage 20N7890 Atlantic (1).xlsm

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

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

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.

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.

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.

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

Excuus, het is inderdaad handig om het een en ander uit te leggen.

Op het moment dat het bestand op een ander pc wordt geopend komt er een fout melding "Fout 1004 tijdens uitvoering Door de toepassing of door object gedefinieerde fout."

En als ik dan deze foutmelding beëindig en de macro ga uitvoeren komt de volgende foutmelding "Fout 1004 tijdens uitvoering Methode unprotect van klasse Worksheet is mislukt.

Lukt het hiermee of is er nog meer info nodig?

Alvast bedankt voor het kijken,

Rob

Excuus, het is inderdaad handig om het een en ander uit te leggen.

Op het moment dat het bestand op een ander pc wordt geopend komt er een fout melding "Fout 1004 tijdens uitvoering Door de toepassing of door object gedefinieerde fout."

En als ik dan deze foutmelding beëindig en de macro ga uitvoeren komt de volgende foutmelding "Fout 1004 tijdens uitvoering Methode unprotect van klasse Worksheet is mislukt.

Lukt het hiermee of is er nog meer info nodig?

Alvast bedankt voor het kijken,

Rob

Is er iemand die mij wil/kan helpen?

Heren,

bedankt voor de zeer welkome en leerzame input.

De oplossing die is aangedragen werkt zeker, echter ben ik vergeten te melden dat dit bestand gedeeld wordt en gelijktijdig door diverse mensen wordt gebruikt. En dan wordt er een fout melding gegeven.

Is hier nog een oplossing voor?

Alvast heel erg bedankt voor de input.

Rob 

Hallo Experts,

In een Exel project heb ik een macro opgenomen, deze werkt perfect maar niet meer als de bladen en de werk map beveiligt zijn.

Het is de bedoeling dat de macro onder de knop "nieuw project invoegen" op tab jaar planning 2020 blijft werken als de bladen en werkmap beveiligt is.

Kan iemand mij vertellen wat ik hier aan kan doen?

Voor de duidelijkheid is het bewuste bestand bijgevoegd.

Mvg,

Rob

Planning 2020 1.0.xlsm

Super gedaan,

Ik heb het uitgewerkt in mijn originele sheet en werkt prachtig.

Bedankt voor je moeite.👍

De verwachte uitkomst is dat er van de cel(H7 tot H11) waar een letter in komt zoals in het voorbeeld.

8 wordt geteld in de formule die in H16 en H17 staat. 

In E16 en E17 staan vaste namen. Die namen kan je random invullen in de cellen E3 t/m E13.

In de cellen H3t/m H13 kunnen dan getallen of letters ingevoerd worden.Gewerkte uren en letters V,U,NB en Z.

Deze letters moeten in de cel waar ze in gezet worden gezien worden als 8 zodat de formule die kijkt welke man (piet of Karel) welke uren heeft gemaakt. de uitkomst staat dan in H16 en H17.

Ik hoop dat het duidelijk is.

Het voorbeeld heb ik bij gevoegd met wat meer tekst.

letters tellen.xlsx

Hallo Exel experts,

Ik zou graag een cel een waarde willen geven met een letter.

Bijvoorbeeld als er in een cel een Z staat dan moet deze cel een waarde krijgen die mee gaat in de berekeningen.

Zie bijlage.

Wie heeft hier een idee voor?

Rob.

letters tellen..xlsx

Ik heb het opgelost.

Formule 1 gepakt en er een voorwaarde bijgezet.

Alsnog super bedankt.

de laatste formule werkt toch niet helemaal goed er komt steeds 17 uit.

de eerste werkt wel goed maar geeft geen 0 bij 0 input.

Zou je nog eens willen kijken?

Alfa  jij bent geweldig.

Dit is precies wat ik zoek.

Bedankt voor jouw input.

Ik kan zelf het bereik vergroten naar getallen boven de 100,🤩 dat dan weer wel.

Klein dingetje nog,

Als de zoekwaarde 0 is komt er nu 10 in A2.

Is het mogelijk dat er dan nul wordt weer gegeven?

Hallo,

Bedankt voor deze oplossing werk super😊