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.
Usean välilehden tiedot yhdelle välilehdelle
2
120
Vastaukset
- 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
Miksi juuri vasemmiston puolelta tulee niin paljon luusereita, kelapummeja jne.
Tämä asia ihmetyttää suuresti.1553901Putin 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,893296SDP 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.872682Polttomoottoriauto on köyhän merkki
Kun ei ole varaa ostaa sähköautoa, niin joutuu köyhän autoa käyttämään.2722484Patteriauton 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 a392266Nä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 sananv1041928- 421019
- 95998
- 53879
Haapaveille jotain uutta!
Huoltoasema Haapavein keskustaan tulossa. Semmoista Jeppasissa jaappasevat.16830