Alueen kopiointi eri tiedostoista

Ongelma: Minulla on viisi tiedostoa koneella. Joka tiedostossa on A4 kokoinen tiedosto samassa paikassa.
Kerään yhteen tiedostoon (tied_yht.xlsm) jokaisesta neljästä muusta tiedostosta samasta kohtaa A4 kokoisen alueen.
Muut tiedostot ovat tied_1.xlsm, tied_2.xlsm,…tied_4.xlsm.
Kopio alue on joka tiedostossa D5:J55. Nyt pitäisi kerätä alueet D5:J55 tiedostoon tied_yht.xlsm allekkain solusta J3 alkaen. Joka tiedossa on solussa D1 polku C:\omat\tied_1.xlms, …C\omat\tied_4.xlsm.
Miten tämä onnistuu ilman leikepöydän kasvattamista?

13

608

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

      Exeli voi luke/kopioida dataa toisesta tiedostosta. Olen tehnyt vastaavia toimintoja.
      Miksi pitäisi käyttää leike pöytää?
      Joudut vaan opiskelemaan Exelin käyttöä tai ostamaan ko. palvelun.

    • Anonyymi

      Tuota samaa olen minäkin miettinyt kunnes huomasin ettei "leikepöytä" käytännössä kasvakaan yhtään.

      Olen kovasti yrittänyt selvittää kuinka suuri tila tarvitaan kiintolevyltä tai muistitikulta kun tiedosto on tuon mainitsemasi A4 kokoinen.

    • Anonyymi

      Näinkö on että minä joudun opastamaan tässäkin asiassa?

    • Anonyymi

      No hyvä on, nyt en lupaudu videoimaan tätä vastausta, koska ratkaisu on erittäin yksinkertainen.

      1.) Avaa tiedosto/taulukko johon olet kokoamassa solujen sisältöä muista taulukoista.

      2.) Avaa tiedosto/taulukko josta olet poimimassa solujen sisältöä.

      3.) Pistä soluun = merkki, ja siirry taulukkoon mistä aiot solujen sisältöä siirtää. Aktivoi alueen ensimmäinen solu, ja paina ENTER -näppäin.

      4.) Olet nyt siirtänyt koontilomakkeelle yhden solun sisällön, voit vetämällä solun nurkasta laajentaa valintaa. Tässä vaiheessa ei enää tarvita sitä lähde tiedostoa/taulukkoa avoinna, viittausalue laajenee vaikka tiedosto ei enää olisikaan avoin.

      Se oli siinä, eikö ollutkin helppoa. Ei käytetty leikekirjaa missään vaiheessa.

      • Sain tehtyä tällaisen ratkaisun. Tässä kerätään Keraa_tanne tiedostoon Antti.xlsm, Katri.xlsm, Erkki.xlsm ja Mia.xlsm tiedostoista samanlainen alue. Ohjelma avaa yksitellen tiedostot ja vie alueen Keraa_tanne lehdelle allekkain jättäen yhden rivin väliin.

        Sub Keraa_Lomakkeet()
        Keraa_tanne = Application.ActiveWorkbook.Name
        'Olet Keraa_tanne tiedoston Nelja_sivua lehdellä
        ' Täällä on soluissa D5:D9 4 linkkiä. Ensimmäinen linkki esim. C:\Datat\Antti.xlsm
        For L = 1 To 4
        Range("D5").Select
        ActiveCell(L, 1).Select
        Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
        Sheets("Lomake").Select
        P_lomake = Application.ActiveWorkbook.Name
        Application.Workbooks(P_lomake).Activate
        If L = 1 Then
        Application.Workbooks(Keraa_tanne).Sheets("Nelja_sivua").Range("J3:P53") = _
        Sheets("Lomake").Range("D5:J55").Value
        ActiveWindow.Close
        ElseIf L = 2 Then
        Application.Workbooks(Keraa_tanne).Sheets("Nelja_sivua").Range("J55:P105") = _
        Sheets("Lomake").Range("D5:J55").Value
        ActiveWindow.Close
        ElseIf L = 3 Then
        Application.Workbooks(Keraa_tanne).Sheets("Nelja_sivua").Range("J107:P157") = _
        Sheets("Lomake").Range("D5:J55").Value
        ActiveWindow.Close
        ElseIf L = 4 Then
        Application.Workbooks(Keraa_tanne).Sheets("Nelja_sivua").Range("J159:P209") = _
        Sheets("Lomake").Range("D5:J55").Value
        ActiveWindow.Close
        End If
        Next L
        End Sub

        Linkin tekeminen löytyy Excelistä "Lisää" valikosta. Siellä on maapallo ja ketjun pala.


      • Anonyymi
        kevike kirjoitti:

        Sain tehtyä tällaisen ratkaisun. Tässä kerätään Keraa_tanne tiedostoon Antti.xlsm, Katri.xlsm, Erkki.xlsm ja Mia.xlsm tiedostoista samanlainen alue. Ohjelma avaa yksitellen tiedostot ja vie alueen Keraa_tanne lehdelle allekkain jättäen yhden rivin väliin.

        Sub Keraa_Lomakkeet()
        Keraa_tanne = Application.ActiveWorkbook.Name
        'Olet Keraa_tanne tiedoston Nelja_sivua lehdellä
        ' Täällä on soluissa D5:D9 4 linkkiä. Ensimmäinen linkki esim. C:\Datat\Antti.xlsm
        For L = 1 To 4
        Range("D5").Select
        ActiveCell(L, 1).Select
        Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
        Sheets("Lomake").Select
        P_lomake = Application.ActiveWorkbook.Name
        Application.Workbooks(P_lomake).Activate
        If L = 1 Then
        Application.Workbooks(Keraa_tanne).Sheets("Nelja_sivua").Range("J3:P53") = _
        Sheets("Lomake").Range("D5:J55").Value
        ActiveWindow.Close
        ElseIf L = 2 Then
        Application.Workbooks(Keraa_tanne).Sheets("Nelja_sivua").Range("J55:P105") = _
        Sheets("Lomake").Range("D5:J55").Value
        ActiveWindow.Close
        ElseIf L = 3 Then
        Application.Workbooks(Keraa_tanne).Sheets("Nelja_sivua").Range("J107:P157") = _
        Sheets("Lomake").Range("D5:J55").Value
        ActiveWindow.Close
        ElseIf L = 4 Then
        Application.Workbooks(Keraa_tanne).Sheets("Nelja_sivua").Range("J159:P209") = _
        Sheets("Lomake").Range("D5:J55").Value
        ActiveWindow.Close
        End If
        Next L
        End Sub

        Linkin tekeminen löytyy Excelistä "Lisää" valikosta. Siellä on maapallo ja ketjun pala.

        Miksi ei näinkin.


    • Anonyymi

      No joo, ehkä tuo ei niin yksi selitteinen ohje ollut etteikö pieni GIF animaatio avuksi olisi. Animaatiossa tuo alueen valinta tehdään samalta taulukolta, mutta asia ei miksikään muutu kun se tehdään kahden tiedoston välillä.

      https://s2.gifyu.com/images/alue.gif

      • Anonyymi

        Kiitos TURPO.


    • Anonyymi

      Tämä ongelma lienee nyt ratkaistu.

      • Anonyymi

        Siltä se vaikuttaa.


      • Anonyymi

        Ei ole osaajat minnekään kaikonneet.


    • Linkit ovat se viho viimeisin keino, mutta jos ei osaa muuten kopioida, niin ei kai sitten väliä, kunhan jollakin keinolla saa toimivan ratkaisun aikaan...

      • Anonyymi

        Missä sinä niitä linkkejä näät, normaalit soluviittaukset tuossa on kyseessä. Herrajumala miten sekasin olet koko ukko.

        Etkö ymmärrä mikä se "linkki" on?


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

    Luetuimmat keskustelut

    1. Suureksi onneksesi on myönnettävä

      Että olen nyt sitten mennyt rakastumaan sinuun. Ei tässä mitään, olen kärsivällinen ❤️
      Ikävä
      93
      2109
    2. Perusmuotoiset TV-lähetykset loppu

      Nyt sanoo useiden HD-muotoistenkin kanavien kohdalla äly-TV, ettei kanava ole käytössä, haluatko poistaa sen? Kanavia
      Apua aloittelijalle
      167
      1550
    3. YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua

      Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä
      Äänekoski
      74
      1319
    4. Euroopan lämpöennätys, 48,8, astetta, on mitattu Italian Sisiliassa

      Joko hitaampikin ymmärtää. Se on aivan liikaa. Ilmastonmuutos on totta Euroopassakin.
      Maailman menoa
      238
      1211
    5. No ei sun asunto eikä mikään

      muukaan sussa ole erikoista. 🤣 köyhä 🤣
      Ikävä
      73
      1170
    6. Hyvin. Ikävää nainen,

      Että vainoat ja stalkkaat miestäni.onko tarkoituksesi ehkä saada meidät eroamaan?no,siinä et tule onnistumaan
      Ikävä
      88
      1096
    7. Martina lähdössä Ibizalle

      Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.
      Kotimaiset julkkisjuorut
      151
      1041
    8. Asiakas iski kaupassa varastelua tehneen kanveesiin.

      https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava
      Maailman menoa
      248
      991
    9. Katsoin mies itseäni rehellisesti peiliin

      Ja pakko on myöntää, että rupsahtanut olen 😆. Niin se ikä saavuttaa meidät kaikki.
      Ikävä
      51
      926
    10. Uskomaton tekninen vaaliliitto poimii rusinoita pullasta

      Korni näytösesitelmä menossa kaupunginvaltuustossa. Juhlia ei ole kokouksista tiedossa muilla, kuin monipuolue paikalli
      Pyhäjärvi
      88
      891
    Aihe