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
Tiedostamaton2016
2
68
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
JOKO OLETTE KUULLET, MITÄ KIURUVEDELLÄ ON SATTUNUT!
Oletteko jo kuulleet, mitä Kiuruvedellä on sattunut, voi hyvänen aika? Aivan viime tuntien aikana olisi sattunut, jos t299009Hetken jo luulin, että en ikävöi sinua koko aikaa
Mutta nyt on sitten taas ihan hirveä ikävä jotenkin. Tiedätköhän sinä edes, kuinka peruuttamattomasti minä olen sinuun r357351Nolointa ikinä miehelle
On ghostata nainen jonka kanssa on ollut ystävä tai ollu orastavaa tapailua pidemmän aikaa. Osoittaa sellaista moukkamai1053660V*ttuu että mä haluan sua
Jos jotain ihmistä voi kunnolla haluta, niin hän on se. Voi Luoja auta jo! Joku jeesus hjelppa mej!693536Outoa että Trump ekana sanoutui irti ilmastosopimuksesta
kun Kaliforniaa riepottelee siitä johtuvat tuhoisat maastopalot. Hirmumyrskytkin ovat USA:ssa olleet tuhoisia.6103154- 772948
Eli jos toisen hiki haisee ns. omaan nenään siedettävältä
Se kertoo hyvästä yhteensopivuudesta. Selvä! Olet mies minun. 🫵🥳392698- 372693
Sattuma ja muutama väärinkäsitys
vaikuttivat siihen millaiseksi tämä kaikki muodostui. Pienet aikanaan huomaamattomat käänteet. Seuraava näytös on jo tul321993- 331544