Usean välilehden tiedot yhdelle välilehdelle

Tiedostamaton2016

Heippa!

Ongelmana olisi sellainen, että pitäisi saada noin 1100 eri välilehden tiedot samalle välilehdelle samassa työkirjassa. Saan meidän projektitietokannasta tuotua tiedot exceliin, mutta se luo excelin niin, että jokainen projekti tulee omalle välilehdelleen, mutta tarvitsisin tiedot yhdelle ja samalle välilehdelle, jotta voin vertailla tietoja ja laskea eri asioita niiden perusteella. Käytännössä siis jokaisella välilehdellä on kolme riviä tietoa, jotka pitäisi saada siirrettyä yhdelle ja samalle välilehdelle luetteloksi.

Onnistuukohan tämä jotenkin järkevämmin kuin copy/pastettamalla, koska siinä menisi ikä ja terveys, kun niitä alkaisi nakuttamaan yhdelle ja samalle välilehdelle käsin.

2

53

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • välkkymätön

      Löysin tuommoisen koodinpätkän netistä. Testasin sitä ja se toimi. Koodi tämmöisenä kopioi kaikilta välilehdiltä solut C3:C5 Taul4:seen alekkain. Jospa tuosta saisit muokkaamalla mitä tarvitset. Koodissa on nuo "Application. ScreenUpdating=False"-rivit siksi ettei taulukko "välkkyisi" siirron /kopioinnin aikana. Vaihda tuon Taul4 tilalle sen välilehden nimi jonne haluat tiedot kopioida.

      Sub MakeSummaryTable()
      Dim ws As Worksheet

      Application.ScreenUpdating = False
      Sheets("Taul4").Activate

      For Each ws In Worksheets
      If ws.Name <> "Taul4" Then
      ws.Range("C3:C5").Copy
      ActiveSheet.Paste Range("A65536").End(xlUp).Offset(1, 0)
      End If
      Next ws

      Application.ScreenUpdating = True

      End Sub

    • kunde

      Miksi sitä kaikkea tietoa tarvitsee tuoda, jos kerran 3 riviä vaan tarvitaan joka sivulta. Eli luetaan tiedostosta vaan ne tarvittavat 3 rivin tiedot sivuttain....

      Keep EXCELing
      @Kunde

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Metsäkoneen kuljettaja huuteli tutkijalle

      "voisit kyllä ottaa rintaliivit pois ennen kuin tulet minulle juttelemaan, hän sanoo." https://yle.fi/a/74-20106446 On
      Suomussalmi
      704
      10030

    2. Suomi on täysin sekaisin

      Jo ties monettako päivää hirveä itku ja poru jostain helvetin nilviäisistä. https://www.is.fi/taloussanomat/art-2000010
      Maailman menoa
      412
      4390

    3. Kaikki ei vieläkään usko luontokatoon.

      Suomussalmen Hukkajoella foliohattu metsäkoneen kuljettaja tuhosi tuhansia harvinaisia jokihelmisimpukoita eli raakkuja
      Kajaani
      90
      3016

    4. Sano vain suoraan, että nyt riittää

      ettei kiinnosta. Sano, että lopeta! En ihmettelisi, jos olet saanut tarpeeksesi ja toivot minun ymmärtävän lopettaa. Eh
      Ikävä
      43
      2855

    5. Mari Rantanen asettaa sairaan lapsen edun oman uransa edelle - (tekikö Marin samaa)

      Noin toimii kunnon vastuuntuntoinen äiti, mutta siitäkin nämä mt-ongelmaiset vasemmistolaiset häntä täällä haukkuvat. "
      Maailman menoa
      230
      2668

    6. Ohhoh! Ex-pääministeri Sanna Marinin Joni-rakas paljasti ilouutisen: "Tässä kuussa..."

      Sanna Marin on ollut naimisissa Markus Räikkösen kanssa. Nyt hänen seurassaan on usein julkkishiusmuotoilija Joni Willb
      Kotimaiset julkkisjuorut
      55
      2664

    7. Mitä ajattelet aina

      Kun hän tulee näköpiiriin?
      Ikävä
      153
      1855

    8. Luokatonta toimintaa

      Tyrmistyttävää toimintaa Stora Enson korjuu yrittäjältä Hukkajoella. Täyttä piittaamattomuutta laeista ja luontoarvoista
      Suomussalmi
      71
      1710

    9. Ensimmäisestä kohtaamisesta saakka

      minulla on ollut hämmentynyt olo. Miten voit tuntua siltä, että olisin tuntenut sinut aina? Sinun kanssasi on yhtä aikaa
      Ikävä
      14
      1620

    10. Maailmankuulu homopingviini on kuollut

      Minä niin toivoin että pariskunta olisi saatu kunniavieraiksi ensi kesän Prideen. 💔 "Maailmankuulu homopingviini on k
      Lapua
      6
      1423
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt