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

88

Ää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. Vuonna 2026 jää entistä vähemmän rahaa käteen palkansaajille

      Työttömyysvakuutusmaksu nousee 0,3 prosenttia. Työeläkemaksu nousee 7,15 prosentista 7,3 prosenttiin. Työmarkkinajärjest
      Maailman menoa
      113
      7097

    2. Suomen kansa puhunut: Purra huonoimpia ministereitä

      Kouluarvosanalla 6–, eli samaa tasoa mitä Purran oikeakin koulutodistus. Epäpätevyys on tullut huomattua Suomen talouden
      Maailman menoa
      494
      5251

    3. Mitä aiot tehdä uudenvuoden aattona

      Mitä olet suunnitellut tekeväsi uudenvuoden aattona ja aiotko ensi vuonna tehdä jotain muutoksia tai uudenvuoden lupauks
      Sinkut
      146
      3230

    4. Joulun ruokajonoissa entistä enemmän avuntarvitsijoita - Mitä ajatuksia tämä herättää?

      Räppärit Mikael Gabriel, VilleGalle ja Jare Brand jakoivat ruokaa ja pehmeitäkin paketteja vähävaraisille jouluaattoa ed
      Maailman menoa
      215
      2621

    5. Marin sitä, Marin tätä, yhyy yhyy, persut jaksaa vollottaa

      On nuo persut kyllä surkeaa porukkaa. Edelleen itkevät jonkun Marinin perään, vaikka itse ovat tuhonneet Suomen kansan t
      Maailman menoa
      36
      2302

    6. Pituuden mittaaminen

      Ihmisen pituuden mittaaminen ja puolikkaat senttimetrit. Kuuluuko ne puolikkaatkin sentit tai millit teistä ilmoittaa m
      Sinkut
      43
      1272

    7. En tiedä enää

      Pitäiskö mun koittaa vältellä sua vai mitä? Oon välillä ollut hieman mustasukkainen, myönnän. En ymmärrä miksi en saa su
      Ikävä
      77
      1232

    8. Muistattekos kuinka persujen Salainen Akentti kävi Putinin leirillä

      Hakemassa jamesbondimaista vakoiluoppia paikan päällä Venäjällä? Siitä ei edes Suomea suojeleva viranomainen saanut puhu
      Maailman menoa
      11
      1159

    9. Varsinainen vetonaula tämä Pyhäjärven keskustelupalsta

      Lisää kummasti muuttohaluja, kun lukee tätä foorumia. Tosin väärään suuntaan. Marraskuuhun mennessä tämä vähäinenkin vä
      Pyhäjärvi
      68
      1138

    10. Mitäköhän vuosi

      2026 tuo tullessaan?
      Ikävä
      111
      1133
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt