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

142

    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

    • 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ä.

    Luetuimmat keskustelut

    1. Persut eivät ole kertoneet euronkaan edestä säästökohteita

      Mutta änkyttävät kysellä niistä muilta jatkuvasti. Vaikuttaa ettei persuilla ole kykyä omaan ajatteluun ja päätöksenteko
      Maailman menoa
      266
      3348
    2. Työeläkeloisinta Suomen suurin talousongelma

      Työeläkeloisinta maksaa vuodessa lähes 40 miljardia euroa, josta reilut 28 miljardia on pois palkansaajien ostovoimasta.
      Maailman menoa
      80
      1448
    3. 66
      1213
    4. Mun mielestäni on tosi loukkaavaa

      Nainen, että luulet palatan typeriä, sekavia ja ilkeitä viestejä mun kirjoittamiksi. Mä en ole katkera, epätoivoinen, ra
      Ikävä
      199
      1049
    5. Persujen puoluekokous 2026

      Missä ja Milloin pidetään ?
      Maailman menoa
      54
      943
    6. Odotettu tulos Taivalvaaran hiihtokeskuksen osalta

      "MCS Finland Oy on ilmoittanut Taivalkosken kunnalle 30.4.2026, että se irtisanoo Taivalkosken kunnan ja MCS Finland Oy:
      Taivalkoski
      48
      943
    7. Mikä se viehättävin

      Asia on kaivatussasi?
      Ikävä
      63
      941
    8. Mikä kaivatussasi

      Viehättää ulkoisesti ja mikä sisäisesti?
      Ikävä
      42
      787
    9. Mitä tekisit jos

      Aamulla vierestäni heräisit
      Ikävä
      47
      772
    10. Olet hirviö

      Eikä kukaan saa mua muuttamaan mieltäni.
      Ikävä
      113
      726
    Aihe