Sary

I know, dat is om dat er zoveel soorten zijn en om het onderscheid te maken van Melk,Fondant en witte chocolade. Iemand die hier nieuw begint kan zo sneller adv de kleuren direct zien wat voor soort het is...

Daarom dat ik er een vraagteken achter gezet had. Ik heb dit allemaal via VO opgesteld..

Je hebt trouwens de formules in je VO staan???

Voor mij stond het redelijk op punt. Er is inderdaad in geknoeid door een van mijn collega's en het probleem is dat ik in onedrive niets kon beveiligen dus als er iemand lijnen begint toe te voegen of te verwijderen loopt het in de soep. Daar was ik al achter gekomen..

Beste leden, Hoe stel ik afhankelijk van een tekst die steeds terug komt de kleur in om al de lijnen met diezelfde tekst die daarop volgen dezelfde kleur te geven in cel 3E-4E-5E?

Geen probleem. Ik stuur je de gegevens door.

Zo bedoel je dan?

Hey Dotchiejack, Vraagje, waar haal ik het path?

Dag Dotchiejack, Ik heb dat hier net geprobeerd om van thuis erop te geraken maar hij opent mijn excel niet. Ik geraak op mijn Onedrive account maar als ik naar de map ga, moet ik mijn Excel openen via de knop openen in Deskop-app dit staat dan in mijn opdrachtknoppen==>> Excel voor het web ondersteunt het uitvoeren of communiceren met ActiveX-besturingselementen niet. Als u ActieveX-besturingselementen wil gebruiken, opent u dit bestand met de descop-app)en dat doet hij niet. Bestanslocatie = Mijn bestanden>Database labo>Database Mengers Tankstalen Inpak en Vloeibaar. Hier staat een map in: Vroege, Late, Nacht, Weekend-Dag, Weekend Nacht met telkens daarin een Word document in. De Excel Database staat ook in deze map. Dit ter info Mvg

Hey, Vandaag moet ik niet werken maar misschien geraak ik van thuis uit in onze Onedrive. Ik bekijk straks of ik je de submappen en path kan doorsturen..

Nog vergeten bij te zeggen: die mappen in Onedrive Vroege 14 augustus heb ik zo niet genoemd. Ik heb enkel deze map vroege genoemd. De datum wordt daar automatisch bijgezet. Mvg, Private Sub Cmd.docx

& "\Vroege" & "\" ( Hier kan ik mijn Word document niet naar vernoemen door de speciale tekens )

Bedankt voor de info😉

als ik ,het goed begrepen heb moet ik mijn Worddocument veranderen naar Vroege?

Dag Dotchiejack, Ik heb dit net aangepast maar ik krijg een foutbericht ==>> mijnbestand = Dir(mijnfolder & "\*.Doc*") Private Sub Cmd_00_Click() Unload Me End Sub Private Sub LB_00_Click() On Error GoTo oops L_00.Caption = LB_00.Column(0) mijnfolder = ThisWorkbook.Pat & "\Excel" & "\" mijnbestand = mijnfolder & L_00.Caption Set Excelapp = CreateObject("Excel.Application") Exceldapp.Documents.Open mijnbestand Excelapp.Visible = True oops: End Sub Private Sub OB_00_Click() LB_00.Clear mijnfolder = "https://puratosgroup-my.sharepoint.com/personal/labo_belcolade_puratos_com/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Flabo_belcolade_puratos_com%2FDocuments%2FDatabase labo%2FDatabase Mengers Tankstalen Inpak en Vloeibaar" & "\Vroege" & "\" mijnbestand = Dir(mijnfolder & "\*.Doc*") Do While mijnbestand <> "" LB_00.AddItem mijnbestand mijnbestand = Dir Loop End Sub Private Sub OB_01_Click() LB_00.Clear mijnfolder = "https://puratosgroup-my.sharepoint.com/personal/labo_belcolade_puratos_com/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Flabo_belcolade_puratos_com%2FDocuments%2FDatabase labo%2FDatabase Mengers Tankstalen Inpak en Vloeibaar" & "\Late" & "\" mijnbestand = Dir(mijnfolder & "\*.Doc*") Do While mijnbestand <> "" LB_00.AddItem mijnbestand mijnbestand = Dir Loop End Sub Private Sub OB_02_Click() LB_00.Clear mijnfolder = "https://puratosgroup-my.sharepoint.com/personal/labo_belcolade_puratos_com/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Flabo_belcolade_puratos_com%2FDocuments%2FDatabase labo%2FDatabase Mengers Tankstalen Inpak en Vloeibaar" & "\Nacht" & "\" mijnbestand = Dir(mijnfolder & "\*.Doc*") Do While mijnbestand <> "" LB_00.AddItem mijnbestand mijnbestand = Dir Loop End Sub Private Sub OB_03_Click() LB_00.Clear mijnfolder = "https://puratosgroup-my.sharepoint.com/personal/labo_belcolade_puratos_com/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Flabo_belcolade_puratos_com%2FDocuments%2FDatabase labo%2FDatabase Mengers Tankstalen Inpak en Vloeibaar" & "\Weekend-Dag" & "\" mijnbestand = Dir(mijnfolder & "\*.Doc*") Do While mijnbestand <> "" LB_00.AddItem mijnbestand mijnbestand = Dir Loop End Sub Private Sub OB_04_Click() LB_00.Clear mijnfolder = "https://puratosgroup-my.sharepoint.com/personal/labo_belcolade_puratos_com/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Flabo_belcolade_puratos_com%2FDocuments%2FDatabase labo%2FDatabase Mengers Tankstalen Inpak en Vloeibaar" & "\Weekend-Nacht" & "\" mijnbestand = Dir(mijnfolder & "\*.Doc*") Do While mijnbestand <> "" LB_00.AddItem mijnbestand mijnbestand = Dir Loop End Sub

Ok, ik pas het vanavond aan. Bedankt!

Dit is de locatie waar we het delen en bewerken. Moet ik hiervan dan niets bijvoegen? https://puratosgroup-my.sharepoint.com/personal/labo_belcolade_puratos_com/_layouts/15/onedrive.aspx?id=%2Fpersonal%2Flabo_belcolade_puratos_com%2FDocuments%2FDatabase labo%2FDatabase Mengers Tankstalen Inpak en Vloeibaar

Beste, Ik heb dit net aangepast, maar hij opent geen Word documenten als ik deze aan-vink. Private Sub Cmd_00_Click() Unload Me End Sub Private Sub LB_00_Click() On Error GoTo oops L_00.Caption = LB_00.Column(0) mijnfolder = ThisWorkbook.Path & "\Excel" & "\" mijnbestand = mijnfolder & L_00.Caption Set Excelapp = CreateObject("Excel.Application") Exceldapp.Documents.Open mijnbestand Excelapp.Visible = True oops: End Sub Private Sub OB_00_Click() LB_00.Clear mijnfolder = "C:\Users\SARY\OneDrive" & "\Vroege" & "\" mijnbestand = Dir(Onedrive & "\*.Doc*") Do While mijnbestand <> "" LB_00.AddItem mijnbestand mijnbestand = Dir Loop End Sub Private Sub OB_01_Click() LB_00.Clear mijnfolder = "C:\Users\SARY\OneDrive" & "\Late" & "\" mijnbestand = Dir(Onedrive & "\*.Doc*") Do While mijnbestand <> "" LB_00.AddItem mijnbestand mijnbestand = Dir Loop End Sub Private Sub OB_02_Click() LB_00.Clear mijnfolder = "C:\Users\SARY\OneDrive" & "\Nacht" & "\" mijnbestand = Dir(Onedrive & "\*.Doc*") Do While mijnbestand <> "" LB_00.AddItem mijnbestand mijnbestand = Dir Loop End Sub Private Sub OB_03_Click() LB_00.Clear mijnfolder = "C:\Users\SARY\OneDrive" & "\Weekend-Dag" & "\" mijnbestand = Dir(Onedrive & "\*.Doc*") Do While mijnbestand <> "" LB_00.AddItem mijnbestand mijnbestand = Dir Loop End Sub Private Sub OB_04_Click() LB_00.Clear mijnfolder = "C:\Users\SARY\OneDrive" & "\Weekend-Nacht" & "\" mijnbestand = Dir(Onedrive & "\*.Doc*") Do While mijnbestand <> "" LB_00.AddItem mijnbestand mijnbestand = Dir Loop End Sub

Ok, ik probeer het Zaterdag want ben nu in verlof. Alvast bedankt!

Mijnfolder vervangen door Onedrive maar geeft geen Word document weer. Ik heb ze nochtans in mijn folders gestoken..

Beste, Iemand die weet welke code/opdracht ik moet geven? ik werk in Onedrive en krijg steeds deze foutcode als ik mijn Word document wil openen in mijn VBA formulier. Private Sub OB_01_Click() LB_00.Clear mijnfolder = ThisWorkbook.Path & "\Late" & "\" mijnbestand = Dir(mijnfolder & "\*.Doc*") Do While mijnbestand <> "" LB_00.AddItem mijnbestand mijnbestand = Dir Loop End Sub

TAV kweezie wabbit, Deze mag dan ook afgesloten worden

Dag Dotchiejack, Zoals ik reeds gemeld had, loopt die acces database steeds vast. Er waren frustraties omdat deze bij het ingeven na een tijdje begint te knipperen, waardoor je helemaal opnieuw moest beginnen. Opnieuw gezocht naar een manier hoe we samen van op afstand in de excel database konden samen werken. Hier hadden we ontdekt dat dit in Onedrive wel mogelijk was en ondertussen nog steeds met de excel database aan het werk... Dat ik je een persoonlijke vraag stelde via PM was enkel en alleen omdat ik je de database met al onze gegevens in even wou doorsturen omdat je het dan beter zou begrijpen. Dit ter info, Mvg