Ga naar inhoud

bakerman

Lid
  • Aantal items

    311
  • Registratiedatum

  • Laatst bezocht

Over bakerman

  • Titel
    Nieuweling

Profiel Informatie

  • Geslacht
    Man
  • Land
    België

Recente bezoekers van dit profiel

1.993 profielweergaven
  1. =SUMPRODUCT((P3<=$P$3:$P$8)/COUNTIF($P$3:$P$8;$P$3:$P$8)) Nog eentje op de valreep. Nadat de formule doorgetrokken is naar beneden is het gewoon een kwestie van sorteren van laag naar hoog. Ludo.xlsx
  2. Een idee gebaseerd op het IsoWeeknummer. Kdb.xlsx
  3. bakerman

    Bereik in functie

    Aangezien er weinig animo is voor deze thread. Function winsorize(bereik As Range, p As Integer) As Double r = Application.CountA(bereik): k = r * (p / 100) t = Fix(k): If t <> k Then t2 = Round(1 - (k - t), 2) If t2 = 0 Then For i = t + 1 To r - t X = X + Application.Small(bereik, i) Next Else For i = t + 2 To r - (t + 1) X = X + Application.Small(bereik, i) Next X = X + (t2 * Application.Small(bereik, t + 1)) + (t2 * Application.Small(bereik, r - t)) End If winsorize = (1 / (r - (2 * k)))
  4. Het werkt wel maar je moet EERST werkblad factuur volledig invullen vooraleer je werkblad Herinnering selecteert. Daarna werkt het tweewegs.
  5. Private Sub Workbook_SheetActivate(ByVal Sh As Object) Select Case Sh.Name Case "Herinnering" Sh.[A2:B10] = Sheets("factuur").[A2:B10].Value Case "factuur" Sh.[A2:B10] = Sheets("Herinnering").[A2:B10].Value End Select End Sub
  6. Dit zet je misschien op weg. Getallen in kolom A. Sub tst() For Each cl In Range("a1", Range("A" & Rows.Count).End(xlUp)) If Left(cl, 1) = Chr(45) Then cl.Value = Mid(cl.Value, 2, Len(cl.Value) - 1) & Chr(45) End If Next End Sub
  7. Doorloop de code van je articlefrm en overal waar je deze regel MijnFolder = ThisWorkbook.Path & "\foto's" & "\" tegenkomt zet je het correcte pad naar je foto's.
  8. Cor-Assa, Je hebt je Item lijst een regel naar beneden verplaatst, wat uiteraard niet goed is voor de werking van de code. In kolom H heb je 3x dezelfde naam (Bamboe) voor 3 verschillende afbeeldingen. Dit kan NIET. Elke afbeelding moet een unieke naam krijgen. In het voorbeeldbestand heb ik aangegeven hoe het zou kunnen. Ik heb er ook een code bijgevoegd die alle afbeeldingnamen uit de dir haalt. Wijzig het pad naar de dir (met backslash op het eind) en klik op de knop. Alle namen komen in kolom I. Sub test1() Path = Sheet1.Range(
  9. Plaats eens een voorbeeldbestandje zonder gevoelige info, dat praat makkelijker.
  10. Ik ben meer fan van Index-Vergelijken. Mark Katarzynski.xlsx
  11. Wijzig in kolom +400 naar +650 en je hebt je oplossing.
  12. Cor-Assa, Ben helemaal niet boos, gewoon kort van stof. Heb het ontwerp lichtjes gewijzigd. De afbeeldingen komen nu op blad2 op dezelfde rij als waar je de namen invult op het 1ste blad. Als je nu een naam verwijderd op Blad1 wordt op dezelfde rij in Blad2 de afbeelding en naam verwijderd. 2 beprekingen: 1) GEEN duplicaten in de C-kolom op Blad1 2) Namen moeten 1 per 1 verwijderd worden. Als je dus 2 namen onderling wil wisselen moet je eerst beide namen verwijderen alvorens je ze terug invoert op
  13. In je 3de post vroeg je zelf om een voorbeeldbestand te posten omdat je zelf nog niets uitgewerkt had. Ondertussen heb je dat nu maar kom je tegelijkertijd vertellen dat dit niet werkt en dat niet werkt terwijl je helemaal nog niet uitgelegd hebt wat je nu werkelijk wil. Dus misschien kan je ons nu verduidelijken wat je eigenlijk wil bereiken zodat we daar naar toe kunnen werken.
  14. Heb 'm net nog even getest en werkt nog steeds perfect. Dus de trefwoorden staan in H-kolom, de namen v/d afbeeldingen in I-kolom, het pad (met laatste \ ) in H1. Dan telkens je een trefwoord in C-kolom invult verschijnt de afbeelding op 2de werkblad. Draai anders deze eens voordat je namen invult in kolom C Sub tst() Application.EnableEvents = True End Sub
×
×
  • Nieuwe aanmaken...