Ga naar inhoud

bakerman

Lid
  • Aantal items

    314
  • Registratiedatum

  • Laatst bezocht

Over bakerman

  • Titel
    Nieuweling

Profiel Informatie

  • Geslacht
    Man
  • Land
    België

Recente bezoekers van dit profiel

2.102 profielweergaven
  1. bakerman

    index/vergelijken

    Nu met de correcte weeknummers. v2pchelp (1).xlsm
  2. bakerman

    index/vergelijken

    Fout ! In CE3 staat datum 26/12/2021 en dit is weeknummer 51.
  3. @bickyvp Ik zou me eens inlezen over hoe je correct rijen uit een tabel verwijdert. De huidige manier is niet correct en onvolledig. Er moet minstens steeds een koprij en 1 datarij aanwezig zijn in een tabel. Je moet dus checken hoeveel rijen er aanwezig zijn in je tabel. Als het er nog maar 1 is verwijder je de rij niet maar verwijder je enkel de constanten zodat je eventuele formules in de tabel niet verwijdert.
  4. bakerman

    Formulier

    Dan moet je je voorbeeldbestand in je andere vraag plaatsen.
  5. bakerman

    Formulier

    Ik dacht dat deze vraag ging over het wegschrijven van data naar 2 worksheets ????? Alhoewel het antwoord daarop reeds gegeven is op 20 februari door emiel. zijnde voer de code 2X uit maar verander de sheetname in de tweede code. Aangezien jij zoiets simpel niet klaar krijgt moet er volgens mij meer aan de hand zijn en zal je je vraag moeten verduidelijken.
  6. =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
  7. Een idee gebaseerd op het IsoWeeknummer. Kdb.xlsx
  8. 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)))
  9. Het werkt wel maar je moet EERST werkblad factuur volledig invullen vooraleer je werkblad Herinnering selecteert. Daarna werkt het tweewegs.
  10. 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
  11. 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
  12. 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.
  13. 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(
  14. Plaats eens een voorbeeldbestandje zonder gevoelige info, dat praat makkelijker.
×
×
  • Nieuwe aanmaken...