Solujen siirto makrolla

Justiina35

Taas olisi ongelma taulukon kanssa.
Taulukossa on 30 työntekijän nimet sarakkeissa B4-B33, työtehtävät ovat vastaavissa c-sarakkeissa.
Taulukon yläpuolelle soluun A1 syötetään viikon ensimmäinen päivämäärä ja A2 soluun viikon viimeinen pvm.
Solussa C2 on kaava, mikä laskee viikkonumeron viikon ensimmäisen päivämäärän perusteella.

Nyt sitten ongelmaan, työntekijät ovat kolmessa ryhmässä:
1 ryhmä soluissa B4-B13
2 ryhmä soluissa B14-B23
3 ryhmä soluissa B24-B33

Kun viikkonumero vaihtuu seuraavaan, pitäisi ryhmä1 siirtyä ryhmä2:n paikalle,
ryhmä2 ryhmä3:n paikalle ja
ryhmä3 ryhmä1:n paikalle.
Työtehtävät sarakkeissa C4-C33 pitäisi kuitenkin pysyä paikallaan.

Voiko tätä toteuttaa makrolla?

5

811

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Kunde

      ei siinä viikon numeroa makrossa tarvita
      "köyhän miehen versio" mutta toimii...

      Sub Siirrä()
      Range("B4:B13").Copy Destination:=Range("IV14")
      Range("B14:B23").Copy Destination:=Range("IV24")
      Range("B24:B33").Copy Destination:=Range("IV4")
      Range("IV4:IV33").Copy Destination:=Range("B4")
      Range("IV4:IV33") = ""
      End Sub

      • Justiina35

        Toimii toi ihan ok. Täytyy laittaa vaikka Msg-boxin muistuttamaan viikkoa vaihdettaessa että vaihdetaan myös työntekijöiden paikkaa.

        Kiitos sinulle :o)

      • paavali
        Justiina35 kirjoitti:

        Toimii toi ihan ok. Täytyy laittaa vaikka Msg-boxin muistuttamaan viikkoa vaihdettaessa että vaihdetaan myös työntekijöiden paikkaa.

        Kiitos sinulle :o)

        Voisihan tuon tehdä kaavalla joka päivittyis kun viikkonumero muuttuu. Elikkä JOSsitellaan JAKOJäännös funktiolla kun viikkonumero jaetaan 3:lla. Viikonumero saadaan NYT() funktiolla.
        Esim: Tämänviikkoinen työvuoroluettelo J4:J33.
        Soluun B4 kaava
        =JOS(JAKOJ(VIIKKO.NRO(NYT());3)=0;J4;JOS(JAKOJ(VIIKKO.NRO(NYT());3)=2;J14;J24))
        ja tämä vedetään soluun B13 asti.
        Soluun B14 tehdään sama kaava eri viittauksilla ja vedetään soluun B23 ..jne.

        En tuota testannu, mutta vois ainakin periaatteessa toimia.

      • Justiina35
        paavali kirjoitti:

        Voisihan tuon tehdä kaavalla joka päivittyis kun viikkonumero muuttuu. Elikkä JOSsitellaan JAKOJäännös funktiolla kun viikkonumero jaetaan 3:lla. Viikonumero saadaan NYT() funktiolla.
        Esim: Tämänviikkoinen työvuoroluettelo J4:J33.
        Soluun B4 kaava
        =JOS(JAKOJ(VIIKKO.NRO(NYT());3)=0;J4;JOS(JAKOJ(VIIKKO.NRO(NYT());3)=2;J14;J24))
        ja tämä vedetään soluun B13 asti.
        Soluun B14 tehdään sama kaava eri viittauksilla ja vedetään soluun B23 ..jne.

        En tuota testannu, mutta vois ainakin periaatteessa toimia.

        tässä pikaisesti tuota kaavaa, mutta en saanut toimimaan ainakaan vielä.
        Työtehtävät ovat siten että soluissa D4-K33 on joka päivälle eri työtehtävät. D4-D33 solussa on kellonaika E4-E33:ssä työtehtävä, F4-F33 kellonaika F4-F33 työtehtävä jne.

        Kokeilen vielä lisää illan mittaan. Kiitos vihjeestä :o)

      • Justiina35
        paavali kirjoitti:

        Voisihan tuon tehdä kaavalla joka päivittyis kun viikkonumero muuttuu. Elikkä JOSsitellaan JAKOJäännös funktiolla kun viikkonumero jaetaan 3:lla. Viikonumero saadaan NYT() funktiolla.
        Esim: Tämänviikkoinen työvuoroluettelo J4:J33.
        Soluun B4 kaava
        =JOS(JAKOJ(VIIKKO.NRO(NYT());3)=0;J4;JOS(JAKOJ(VIIKKO.NRO(NYT());3)=2;J14;J24))
        ja tämä vedetään soluun B13 asti.
        Soluun B14 tehdään sama kaava eri viittauksilla ja vedetään soluun B23 ..jne.

        En tuota testannu, mutta vois ainakin periaatteessa toimia.

        Kiitos paavalille avusta, pääsen taas jatkamaan harjoituksia eteenpäin :o)

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Virkamiehille tarvitaan tuntuvat palkankorotukset

      Naistenpäivänä on syytä muistuttaa, että virkamiehen euro on vain 80 senttiä. Palkat tulee saattaa samalle tasolle yksi
      Maailman menoa
      43
      4036

    2. Riikka Purran kaudella nousi bensan hinta yli 2 euron

      Muistatteko kuinka edellisen vasemmistohallituksen aikana, ns. Marinin aikakaudella, bensiiniä sai 1,3 euron litrahinnal
      Maailman menoa
      51
      3681

    3. Jäikö meidän välit

      Mielestäsi Kesken?
      Ikävä
      70
      3238

    4. Olisipa saanut sinuun

      Tutustua paremmin. Harmi että aloin lopulta jännittämään kun näytit tunteesi niin voimakkaasti ja lähestyit niin voimaak
      Ikävä
      94
      3115

    5. Mitäs nyt sijoittajat?

      Pörssit laskevat maailmalla Iranin sodan takia ja muutenkin ovat olleet Trumpin vallan alla epävarmat. Ainoa, mikä on no
      Maailman menoa
      89
      2094

    6. Miks tän meidän

      Rakkauden on pitänyt olla näin vaikeaa?
      Ikävä
      35
      2048

    7. muista olla

      VAROVAINEN! m
      Ikävä
      24
      1909

    8. Onneksi on edes yksi kuva

      Susta mitä voin välillä ihastella ja kaipailla sua😔
      Ikävä
      35
      1870

    9. Elän vastoin

      Kaikkia arvoja kun en pysy sinusta erossa.
      Ikävä
      31
      1861

    10. Olisitpa se hellä

      Ja herkkä minkä kuvan sain sinusta irl. Haluaisin että elämässäni olisi sellainen joka arvostaa minua juuri sellaisena k
      Ikävä
      23
      1794
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt