Sary

Nog ter info: Ik heb dit zo gedaan maar dit zal niet kloppen.. Private Sub OB_00_Click() LB_00.Clear https://puratosgroup.sharepoint.com/:x:/r/sites/O365-DEPT-Labo-belcolade/Shared Documents/General/Database labo/Database 2022.xlsm 2.xlsm?d=w3d457f0cd5cb4797b9534dd0ce8b5702&csf=1&web=1&e=RqGNo6 mijnbestand = Dir(mijnfolder & "\*.Doc*") Do While mijnbestand <> "" LB_00.AddItem mijnbestand mijnbestand = Dir Loop End Sub

Beste experten, Ik wil volgende path linken aan mijn database. moet ik dan de volledige url kopiëren? https://puratosgroup.sharepoint.com/:x:/r/sites/O365-DEPT-Labo-belcolade/Shared Documents/General/Database 2022.xlsm 2.xlsm?d=w3d457f0cd5cb4797b9534dd0ce8b5702&csf=1&web=1&e=O40hla Private Sub OB_00_Click() LB_00.Clear mijnfolder = ThisWorkbook.Path & "\Vroege" & "\" mijnbestand = Dir(mijnfolder & "\*.Doc*") Do While mijnbestand <> "" LB_00.AddItem mijnbestand mijnbestand = Dir Loop End Sub

Dag kweezie wabbit, Deze mag afgesloten worden

Dag Bakerman, Perfect, hartelijk dank voor de hulp en tijd die je hierin hebt gestoken!

Beste, iemand die me kan helpen? Als ik bij verbruik 2021 mijn materiaal ingeef moet hij deze van mijn stocklijst trekken uit stocklijst 2021. bvb: ik heb 1 doos spaanplaatschroeven nodig, dan moet hij deze in mijn stocklijst aanpassen naar 9 bij hoeveelheid. Ik ga alles ingeven bij verbruik en deze zou dan automatisch moeten aangepast worden in mijn stocklijst Kopie van STOCKLIJST.xlsx

Ik hou die optie van het acces bestandje open voor als we in het nieuwe gebouw zitten. Dan zitten we samen op 1 locatie wat nu niet het geval is.

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