Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 3 van 3

Onderwerp: Macro voor actie bij huidige week

  1. #1
    Vraag is niet opgelost

    Macro voor actie bij huidige week

    Hallo,

    Ik zoek naar een macro die een handeling doet voor de desbetreffende week. In de bijlage staat een documentje met fictieve verkopen per weeknummer. Het is nu weeknummer 38 (waarbij maandag 1e dag vd week is). Met een macro wil ik ervoor zorgen dat de inhoud van de cellen doorgeschoven worden van week 37 naar week 38. In dit geval dat cellen D3: D5 doorgetrokken worden naar E3: E5. Stel dat ik volgende week de Macro uitvoer moet week 38 doorgetrokken worden naar week 39.

    Weet iemand de oplossing? Alvast veel dank!
    Bijgevoegde bestanden Bijgevoegde bestanden

  2. #2
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Waarom zou je dat willen? Je kan toch beter de gegevens gestructureerd invoeren en een draaitabel het werk laten doen.
    Bijgevoegde bestanden Bijgevoegde bestanden
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  3. #3
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    Vanaf Excel 2010.
    Code:
    Sub hsv()
      Cells(1).CurrentRegion.Columns(Application.Match([year(now())&weeknum(now(),21)], [a1:xfd1&a2:xfd2], 0) - 1).Offset(2).Name = "b"
      [b].Offset(, 1) = [if(b="","",b)]
    End Sub
    Vanaf Excel 2007 en nieuwer.
    Code:
    Sub hsv()
     Cells(1).CurrentRegion.Columns(Application.Match([year(now())] & DatePart("ww", Date, 2, 2), [a1:xfd1&a2:xfd2], 0) - 1).Offset(2).Name = "b"
     [b].Offset(, 1) = [if(b="","",b)]
    End Sub
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren