Ga naar inhoud

Welkom op PC Helpforum!
PC Helpforum helpt GRATIS computergebruikers sinds 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!

bakerman

Lid
  • Aantal items

    202
  • Registratiedatum

  • Laatst bezocht

Over bakerman

  • Titel
    Nieuweling

Profiel Informatie

  • Geslacht
    Man
  • Land
    België

Recente bezoekers van dit profiel

1.083 profielweergaven
  1. 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.
  2. Nog eentje om te testen. =ALS(EN(OF(NIET(ISFOUT(JAAR(C3)));C3="Optie");C3<>"");1;0)
  3. =ALS(EN(NIET(ISFOUT(JAAR(B3)));B3<>"");1;0) PS: Een formule wordt slechts herberekend als de wijziging wordt bevestigd met Enter.
  4. 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
  5. 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
  6. 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
  7. =ALS(NIET(ISFOUT2(JAAR(B3)));1;0) PS: Je hebt nog een aantal vragen openstaan waar nog een eindrepliek van jou verwacht wordt.😮
  8. 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.
  9. Voor de sport eentje zonder hulpkolommen. Stelling berekenen_ba.xlsm
  10. 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
  11. 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
  12. 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<>" "))
  13. 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.
  14. 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.
  15. 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
Logo

OVER ONS

PC Helpforum helpt GRATIS computergebruikers sinds juli 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!

×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.