alpha

Ook vermeld je niet welke nieuwe namen je aan de Worddocumenten wil geven.

In de voorlaatste regel hierboven moet False vervangen worden door True

Dat kan, met bv. deze macro, uit te voeren vanuit een Worddocument dat je best niet in dezelfde folder plaatst als de folder waarin de om te zetten Worddocumenten staan. Bij "mydir" moet je uiteraard je eigen directory invullen. Sub Wordnaarpdf() Dim mydir As String mydir = "Hier het path op jouw computer invullen" Dim fso, nieuwefile, folder, files Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(mydir) Set files = folder.files Application.ScreenUpdating = False For Each file In files Dim nieuwenaam As String nieuwenaam = Replace(file.path, ".docx", ".pdf") Documents.Open FileName:=file.path With ActiveDocument .ExportAsFixedFormat OutputFileName:=nieuwenaam, ExportFormat:=wdExportFormatPDF .Close End With Next Application.ScreenUpdating = False End Sub

Redelijkerwijs gesproken kan dat niet. In een folder kunnen geen 2 Worddocumenten dezelfde naam hebben.

Er zijn nu al zoveel reacties, het wordt tijd dat de vragensteller eindelijk eens reageert.

Ik had verkeerd gelezen en in plaats van de laaatste- de vroegste datum gekozen. In mijn formule hierboven moet dan alleen min vervangen worden door max. Je krijgt dan voor K2: =ALS(AANTAL.ALS(A$2:A2;A2)=1;MAX(ALS(A$2:A$100=A2;I$2:I$100));"") Natuurlijk weer invoeren via CTRL-SHIFT-Enter en met de vulgreep naar beneden kopiëren in kolom K.

Let op de dollartekens Bucky, de formule moet kunnen worden doorgetrokken in de onderliggende cellen. Als voor de 'laatste datum' naar de vervaldatum moet worden gekeken, dan zou ik dit gebruiken in K2: =ALS(AANTAL.ALS(A$2:A2;A2)=1;MIN(ALS(A$2:A$100=A2;I$2:I$100));"") Let op: invoeren via CTRL-SHIFT-ENTER, vergeet dat niet ! Na invoer, de formule met de vulgreep naar beneden kopiëren in kolom K.

Welke datum bedoel je met "Laatste datum", de keuringsdatum of de vervaldatum ?

Dus toch...., vreemd. Dank voor de info. Met welke versie van Word werk jij ? (ik met Word 2010).

Die randen is inderdaad nog het meest waarschijnlijk. Als ik die inschakel ("Alle randen") krijg ik hetzelfde effect als in het eerste bericht van de vragensteller. Dat die randen worden weergegeven moet dan wel in het sjabloon zitten ("Normal.dotx"). Als dat zo is, is dat eenvoudig te herstellen door Normal.dotx te verwijderen. Bij opnieuw opstarten van Word wordt dan automatisch een nieuwe Normal.dotx aangemaakt zonder toevoegingen. Om "Normal.dotx" te verwijderen: schakel eerst bij "Beeld" - "Mapopties" de weergave in van verborgen mappen en bestanden. Zoek dan in Windows naar Normal.dotx en verwijder het. Sluit dan alle vensters en start Word. Je zou dan weer een 'normale' Normal.dotx moeten hebben.

In plaats van alleen de hyperlink te plaatsen, kun je ook de functie =HYPERLINK gebruiken, dat oogt iets fraaier (als je daar prijs op zou stellen). Voorbeeld: =HYPERLINK("C:\Documents and settings\Gebuikersnaam\Mijn documenten\Facturen 2018\Factuur 23.pdf"; "Factuur 23") In de cel zie je dan alleen Factuur 23 staan. De onderstreping daarvan kun je weghalen door te cel te selecteren en in het menu 1 x op de onderstrepingsknop te klikken.

Ik weet niet hoe het bij anderen op andere computers is, maar op mijn computer doet zich het probleem niet voor. Ik dacht eerst aan de weergave van tekstafbakeningen (Bestand-Opties-Geavanceerd-->onder de kop "Documentinhoud weergeven"), maar zo'n afbakening is een stippellijn en geeft alleen de omtrek van het document weer, niet een lijn voor elke regel afzonderlijk. Ik moet het antwoord schuldig blijven.

Aan een video hebben de lezers van dit forum niets; mijn (oude) computer loopt trouwens vast als ik die video open. Het probleem doet zich voor in een Worddocument, plaats dan dus ook een Worddocument, zoals ik eerder al vroeg. MISSCHIEN valt er dan wel iets over te zeggen.

Je zult wel bemerkt hebben neem ik aan dat de rij wordt ingevoegd 1 rij lager dan de rij waarin een cel is geselecteerd. Dat moet je even uitleggen...

In alle cellen in de rij schrijf je. Dat is in meer dan 16000 cellen, die ga je toch niet allemaal gebruiken? Denk eerst even na voordat je wat schrijft! In de bijlage een voorbeeld. Als je in een cel waarin al wat staat wat wil toevoegen, dan selecteer je de cel en druk je op F2. PC-Helpf Schaap1.xlsm

Plaats hier eens zo'n (eventueel een leeg) document waarin zich dat voordoet, dan kunnen lezers van dit forum er eens naar kijken. Je zult dan waarschijnlijk snel een oplossing hebben.

Met een stukje vba-code. Druk Alt-F11 en je kunt het zien. De punt wijzigen in een komma is maar 1 voorbeeld, je kunt (door de code een klein beetje aan te passen) er ook hetzelfde mee bereiken als wat popipipo (op een andere manier) heeft gedaan. Of er nog wat anders van maken.

Zo zou het ook kunnen. PC-Helpf dreamax.xlsm

Aan de studie Frank! Overigens zul je naar mijn mening aan die code niet veel hebben. Als de drie cellen zijn leeggemaakt, dan blijven die leeg, ze zullen vermoedelijk ook wel weer eens gevuld moeten worden. En verder ben ik van mening dat je pas met vba moet beginnen als je Excel zonder vba goed kent.

Vervang ActiveWorkbook.Quit door Application.Quit . Opm: in ThisWotkbook staan macro's die daar niet thuis horen. Plaats ook alles wat bij het saven en sluiten hoort, in 1 macro bij elkaar.

Ik denk dat voor de lezers van dit forum je tekst te onduidelijk is om een goed antwoord te kunnen geven. Wellicht heb je meer succes als je hier (voorbeeld)bestanden van je Word- en Excelbestand plaatst.

Of de helpfile van Excel ! Druk F1 en typ een zoekopdracht, dan vind je zowat alles.

Wáár (in welke cel) je de formule plaatst, dat maat niet uit, dat kan overal in het blad zijn. Maar als je nu naar mijn formule kijkt, dan zie je toch dat overal waar ik naar A1:B40 van het blad codes verwijs, dat daar staat: codes!$A$1:$B$40 . Welnu, je moet nu ook voorA$4 en A$5 de bladnaam plaatsen, dus: februaris!A$4 en februari!A$5 .

Als je nou de formule voor A4/A5 al hebt, dan moet het toch niet moeilijk zijn om die voor andere cellen aan te passen, lijkt mij, als je even goed naar de formule kijkt. Je moet dan vanzelfsprekend A$4 en A$5 wijzigen in A$9 en A$10. Natuurlijk, waar het voor de formule niet duidelijk is op welk blad de bereiken betrekking hebben, moet je die er bij vermelden. Zo zie je dat nu de formule in het blad februari staat en dan hoef ik dat blad in de formule niet te vermelden, maar waar ik in de formule naar het blad codes verwijs, staat die bladnaam er wel bij. Plaats je de formule in een blad dat niet februari of codes heet, dan moet je in de formule dus beide bladen vermelden vóór elk bereik. Kijk goed naar de formule die je al hebt, dan moet het lukken.

Daarvoor is slechts een kleine aanpassing nodig. Plaats onderstaande formule in A14 en kopieer die met de vulgreep naar rechts: =ALS.FOUT(INDEX(codes!$A$1:$B$40;VERGELIJKEN(A$4;codes!$B$1:$B$40;0);1)&INDEX(codes!$A$1:$B$40;VERGELIJKEN(A$5;codes!$B$1:$B$40;0);1);"")