Juokseva luettelo?

Qwertity

Miten tehdä excelillä sellainen lista/luettelo, jossa on esim rivit 2-12 sarakkeessa A ja kun listaan lisää rivin 13, rivi 2 poistetaan/piilotetaan/siirretään muualle taulukkoon ja rivistä 13 tulee rivi 12, rivistä 12 rivi 11 jne eli ns. juokseva lista?

Kiitos vastanneille!

6

93

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Kundepuu

      ko. taulukon moduuliin...
      vaihada kopioita sarake ja aloitus solu sopivaksi- nyt alkaa C2


      Private Sub Worksheet_Change(ByVal Target As Range)
      On Error GoTo virhe
      Application.EnableEvents = False
      If Not Intersect(Target, Range("A13")) Is Nothing Then
      Range("A2").Copy Range("C65536").End(xlUp).Offset(1, 0)
      Range("A3:A13").Copy Range("A2")
      Range("A13") = ""
      End If
      virhe:
      Application.EnableEvents = True
      End Sub

      KEEP EXCELing
      @Kunde

    • Qwertity

      Kiitos Kunde! :)

      Mutta miksi saan ilmoituksen "object required" kun yritän makroa suorittaa ..? ;)
      Mikähän nyt neidillä menee metsään..?

      Yritin siis liittää painikkeeseen Taul1.Kuukausi -nimisen makron;

      Sub Kuukausi()
      Application.EnableEvents = False
      If Not Intersect(Target, Range("A13")) Is Nothing Then
      Range("A1").Copy Range("C65536").End(xlUp).Offset(1, 0)
      Range("A2:A13").Copy Range("A1")
      Range("A13") = ""
      End If
      End Sub

      • kunde

        Ei siihen makroa tartte....
        jos haluat, että toimii Taul1, niin kopioi allealeva Taul1 moduulin ja se on siinä...
        aina kun A13 muuttuu, suorittaa automaattisesti makron.

        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error GoTo virhe
        Application.EnableEvents = False
        If Not Intersect(Target, Range("A13")) Is Nothing Then
        Range("A1").Copy Range("C65536").End(xlUp).Offset(1, 0)
        Range("A2:A13").Copy Range("A1")
        Range("A13") = ""
        End If
        virhe:
        Application.EnableEvents = True
        End Sub

        "object required" virhe tulee siitä, kun sulla ei ole määritelty Dim Target As Range ...

        KEEP EXCELing

        @Kunde

    • Qwertity

      Kiitos taas!

      *nauraa jo itselleen*;
      miten saan tuon taulukon moduuliin..? ;)
      Saisinko ihan kädestä pitäen ohjeistusta..
      Vain onkohan tuo excel jotenkin fragmentointunut kun ei suostu yhteistyöhön.. :P

      • kunde

        Klikkaa haluamasi taulukon valitsinta tilarivillä hiiren oikealla. Aukeavasta valikosta sitten valitse Näytä koodi ja kopioi oikealla olevaan valkeaan tilaan koodisi.
        Tallenna.
        Aina kun muutat taulukossa A13 arvoa koodi toimii...

        Keep EXCELing
        @Kunde

      • Qwertity

        Näin teinkin jo aiemmin, vaan kaiken migreenin ja turhan käpistelyn jälkeen tulin siihen tulokseen, että kyse on tuosta mysteerisestä Dim Target -systeemistä, mitä en kyllä heti googlettamallakaan käsittänyt miten se määritellä.. ???

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Räppäri kuoli vankilassa

      Ei kuulemma ole tapahtunut rikosta. Sama vahinkohan kävi Epsteinille. https://www.hs.fi/suomi/art-2000011840869.html "
      Maailman menoa
      87
      4098

    2. Välillä kyllä tuntuu, että jaat vihjeitä

      Mutta miten niistä voi olla ollenkaan varma? Ja minä saan niistä kimmokkeen luulemaan yhtä sun toista. Eli mitä ajatella
      Ikävä
      24
      2911

    3. No kyllä te luuserit voitte tehdä mitä vaan keskenänne, sitä en ymmärrä miksi pelaat,nainen

      Pisteesi silmissäni, edes ystävätasolla tippui jo tuhannella, kun sain selville pelailusi, olet toisen kanssa, vaikka ol
      Ikävä
      45
      2320

    4. Missä näitte viimeksi?

      Missä näit kaivattua viimeksi ja oliko sähköä ilmassa?
      Ikävä
      34
      1321

    5. Puukotus yöllä

      Oli kaveri hermostunut ja antanut puukosta.
      Sotkamo
      10
      909

    6. Mitä sun kaltainen ihminen tekee tämmöisessä paikassa?

      Et kuulu tänne?
      Ikävä
      131
      885

    7. rakas J siellä jossain

      Niin ikävä sua. -P. Nainen
      Ikävä
      6
      874

    8. Masan touhut etenee

      Punatiilitalon tietotoimiston mukaan Masa on saanut viimein myytyä kämppänsä ja kaavoittaa uudelle lukaalille tonttia pa
      Äänekoski
      12
      822

    9. Naisten ja miesten tasoeroista

      Oletteko huomanneet, että naisissa ylemmän tason naiset ovat sinkkuja, ja miehissä alemman tason incelit? Toimivat paris
      Ikävä
      124
      766

    10. You've been running and

      so has your mind, I'm thinking of you all the time... 💘
      Ikävä
      11
      760
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt