bakerman

Worksheet_Change-event reageert niet op een wijziging van de waarde door een formule. Wijzig daarom de broncel naar B5, dewelke de verandering start. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$5" Then If Target = vbNullString Then Exit Sub If Target < 0 Then Exit Sub Application.ScreenUpdating = False Range("F96:F98").ClearContents SolverReset SolverOK Range("$F$101"), 2, , Range("$F$96:$F$98"), 1 SolverAdd Range("$F$96:$F$98"), 4 SolverSolve True Application.ScreenUpdating = True End If End Sub

In de bladmodule van Blad1. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns(8)) Is Nothing Then If LCase(Target.Value) = "geselecteerd" Then With Sheet2 .ListObjects("TBL_Kandidaten").ListRows.Add .Cells(.ListObjects("TBL_Kandidaten").ListRows.Count + 4, 2).Resize(, 6).Value = Cells(Target.Row, 1).Resize(, 6).Value End With End If End If End Sub PS: Ik hoop dat het niet jouw echt telefoonnummer en emailadres is in het voorbeeldbestand.

Bedankt voor de feedback. Je kan code opnemen met de macrorecorder om een gevoel te krijgen van de gebruikte syntax maar in een later stadium ga je zelf alles vanaf 0 schrijven.

Nog eentje om te testen. =ALS(EN(OF(NIET(ISFOUT(JAAR(C3)));C3="Optie");C3<>"");1;0)

=ALS(EN(NIET(ISFOUT(JAAR(B3)));B3<>"");1;0) PS: Een formule wordt slechts herberekend als de wijziging wordt bevestigd met Enter.

Je was de Event-code (de motor) vergeten te kopiëren naar de Bladmodule van Blad1. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$F$100" Then If Target = vbNullString Then Exit Sub If Target < 0 Then Exit Sub Application.ScreenUpdating = False Range("F96:F98").ClearContents SolverReset SolverOK Range("$F$101"), 2, , Range("$F$96:$F$98"), 1 SolverAdd Range("$F$96:$F$98"), 4 SolverSolve True Application.ScreenUpdating = True End If End Sub Stelling berekenen(1).xlsm

Heb het voorbeeldbestandje wat aangepast. Blad2 verwijdert want dit was nog een manuele testsheet. Waar je op moet letten als je het bestand gebruikt. 1) De Solver-addin moet geactiveerd zijn. 2) Macro's moeten ingeschakeld zijn. 3) In het VBA-project moet de verwijzing naar Solver aangevinkt zijn. Door nu in B5 een getal typen en te bevestigen met Enter wijzigen de cellen in B1:B3 naar de gebruikte lengtes. Solver_Sample(1).xlsm

Waar jij op doelt kan je mi niet bereiken met gewone formules. Wat de huidige formules doen is kijken hoeveel keer het grootste getal in je totaalgetal gaat, lukt het niet meer ga je naar het volgende kleinere getal totdat de mogelijkheden opgebruikt zijn. (in dit geval 3, 2.5 en 0.75) zolang de rest maar kleiner is dan het laatste laagste getal. Wat jij vraagt is eigenlijk de mogelijke getallen combineren om zo kort mogelijk bij het totaalgetal te komen met een zo klein mogelijke rest. Dit is denk ik meer iets voor de Solver-Addin (Oplosser) of een zelfgeschreven recursieve VBA-code. Voor de sport in bijlage een simpel model met Solver (Oplosser). Wijzig de targetcel B5 en de berekeing wordt automatisch uitgevoerd. Rudi_d_Solver_Sample.xlsm

=ALS(NIET(ISFOUT2(JAAR(B3)));1;0) PS: Je hebt nog een aantal vragen openstaan waar nog een eindrepliek van jou verwacht wordt.😮

Post eens een voorbeeldbestandje van wat je to nu toe hebt in elkaar gestoken. Persoonlijk vind ik het een slecht idee om alles te gaan verdelen over verschillende werkbladen aangezien dit het maken van samenvattingen enorm bemoeilijken. Er zijn tools genoeg om deze info gewoon uit een platte database te filteren nl. AutoFilter, AdvancedFilter of Draaitabellen of via VBA.

Voor de sport eentje zonder hulpkolommen. Stelling berekenen_ba.xlsm

FileName is een restant van jouw code dus ik weet niet waar dat vandaan komt of hoe en wanneer je deze variabele benoemd. Deze staat trouwens ook in de code van JP en daar heb je hem wel werkend gekregen dus ..... Aan de rest van de code is niks mis want ze is grondig getest

Nog eentje om te testen. Sub Macro1() Const PathName = "C:\Users\rkeulen\Desktop\map 1\" & Filename & "\" With CreateObject("scripting.filesystemobject") fName = .getbasename(ThisWorkbook.Name) fName = fName & " " & Format(Month(Date), "00") & "-" & Right(Year(Date), 2) For Each fl In .getfolder(PathName).Files If fl.Name Like fName & "*.pdf" Then maxval = Application.Max(zval, Split(Replace(Join(Filter(Split(Replace(Replace(fl.Name, _ ")", "^#"), "(", "#^"), "#"), "^"), "|"), "^", ""), "|")(0)) End If Next End With If IsEmpty(maxval) Then maxval = -1 ActiveWorkbook.ExportAsFixedFormat 0, PathName & fName & "(" & maxval + 1 & ")" End Sub

Hier krijg je enkele mogelijkheden. https://www.extendoffice.com/documents/excel/3216-excel-prevent-cell-content-overflow.html#format_cell Je kan het met de spatie doen maar dan moet je je formule aanpassen naar =SOMPRODUCT(--(D3:D7<>"");--(D3:D7<>" "))

Je kan een bestand FullScreen openen zodat de volledige menubalk verborgen wordt, je kan allerlei dingen aan en uit schakelen. Het probleem is dat wanneer een fout optreed en het bestand sluit/moet gesloten worden deze aanpassingen niet vanzelf opgeheven worden en dat je XL er volledig anders uitziet dan dat je hem de laatste keer geopend hebt. Ook zou IK als gebruiker het helemaal niet leuk vinden dat er aan mijn instellingen gemorreld wordt zonder dat ik dit kan voorkomen.

Begrijp je wat de code doet ? Deze komt bovenop het beveiligen van je VBA-project waardoor je geen toegang meer krijgt tot de code. Mijn code zorgt ervoor dat de Ontwikkelaarstab verborgen wordt bij het openen v/h bestand (terug ingeschakeld bij sluiten). Hierdoor geraak je niet meer bij de Bladeigenschappen via deze tab. Als alle voorgaande voorstellen geïmplementeerd zijn heb je dus nu Bladbeveiliging, Projectbeveiliging en beveiliging op de Developerstab.

Op deze manier misschien. Private Sub Workbook_Open() Blad3.ScrollArea = "$a$1:$ac$40" Application.ShowDevTools = False End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ShowDevTools = True End Sub

In bladmodule. Code werkt als je van een ander tabblad het werkblad met de QR-code selecteert. Private Sub Worksheet_Activate() Dim xSRg As Range, xRRg As Range, xObjOLE As OLEObject On Error Resume Next Set xSRg = Range("B9") If xSRg Is Nothing Then Exit Sub Set xRRg = Range("E3") If xRRg Is Nothing Then Exit Sub Application.ScreenUpdating = False Set xObjOLE = ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.1") xObjOLE.Object.Style = 11 xObjOLE.Object.Value = xSRg.Text ActiveSheet.Shapes.Item(xObjOLE.Name).Copy ActiveSheet.Paste xRRg xObjOLE.Delete Application.ScreenUpdating = True End Sub

Blijkbaar is er onderweg de idee ontstaan dat de kolom geslacht ook moest gefilterd worden op "O". Is dat niet het geval kan je deze voorwaarde idd. weglaten uit de formule.

Fout. Filter je registratieblad maar eens op O en op VL/FT. Als je nu manueel de unieke nummers telt kom je op 8 terwijl je formule nu 9 weergeeft.

OPGELET !!!! Je mag dit niet weglaten in de formule anders krijg je foute resultaten. Je moet enkel $C$4 vervangen door "O".

Wil je dit 1-malig kan je dit bereiken door de ScrollArea in deeigenschappen van het werkblad aan te passen. Wil je dit permanent dan zal je VBA nodig hebben. @ philiep Je moet niet naar de Vba-omgeving om de eigenschappen van een werkblad op te vragen. Ga naar Tab Ontwikkelaars en klik op Eigenschappen in de Controls sectie.

Duurde even maar denk dat ik er ben. 1-Formule oplossing met keuze ras in C4. Heb je dit niet nodig wijzig dan de referentie naar C4 in de formules door "O". Let wel, dit zijn Array-formules dus bevestigen met Ctrl-Shift-Enter. Lammeren_ba.xlsm

Dat Netto.Werkdagen bestaat wist ik inderdaad ook wel. 😞 Mijn oplossingen werken echter ook voor diegenen die niet beschikken over deze functie (en ja, reken er maar op dat er nog zulke mensen bestaan)

Wil je er dan toch een afbeelding bij kan je een Image-Control toevoegen dat van zodra je filtert gevuld wordt met een bepaalde afbeelding uit een directory met al je afbeeldingen. Dit zal de werking van je bestand weinig of niets beïnvloeden.