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

120

    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. 155
      3901
    2. Putin lähti takki auki sotaan....

      Luuli, että kolmessa päivässä hoidetaan, nyt on mennyt 3,5 vuotta eikä voitosta tietoakaan. Kaiken lisäksi putin luuli,
      Maailman menoa
      89
      3296
    3. SDP ylivoimainen ykkönen

      En ole koskaan viitsinyt käydä äänestämässä, mutta nyt SDP:n etumatka on niin kutkuttava, että pakkohan se on vaivautua.
      Maailman menoa
      87
      2682
    4. Polttomoottoriauto on köyhän merkki

      Kun ei ole varaa ostaa sähköautoa, niin joutuu köyhän autoa käyttämään.
      Maailman menoa
      272
      2484
    5. Patteriauton ovia ei saatu auki - kuljettaja koki hirvittävän kuoleman!

      ”Oviongelma johti kuskin kuolemaan kolarissa – tämä ratkaisu saatetaan kieltää kokonaan Sivulliset pyrkivät tempomaan a
      Maailman menoa
      39
      2266
    6. Näitä venäjä-faneja tuntuu edelleen vaan riittävän - kummallista

      ja lähinnä siis ihan suomalaisia. Mitä hienoa ja hyvää he näkevät maassa joka on diktatuuri, maassa jossa ei ole sananv
      Maailman menoa
      104
      1928
    7. Mies älä

      Odota enää vaan toimi. Pieni vinkkivitonen 🫰💥
      Ikävä
      42
      1019
    8. Harmittaa ettei paluuta entiseen enää ole

      Paluuta entiseen ei ole koska pilasit kaiken.
      Ikävä
      95
      998
    9. Mä tiedän

      Että sä tiedät, että mä tiedän, että sä tiedät. Me molemmat tiedetään. Onko näin?
      Ikävä
      53
      879
    10. Haapaveille jotain uutta!

      Huoltoasema Haapavein keskustaan tulossa. Semmoista Jeppasissa jaappasevat.
      Haapavesi
      16
      830
    Aihe