Excelistä päivittäin rivitieto toiseen exceliin

Anonyymi

Minulle tulee päivittäin useampi excel-raportti, jossa on yhdellä rivillä päivämäärä ja erilaisia lukuja/tekstiä eri sarakkeissa. Saisiko tämän siirtymään ns. vuosiraporttiin jollain helpommalla keinolla kuin perinteisellä copypastella käsin?

4

867

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

      Siirrä data tietokantaan. josta voi tehdä kyselyjä ja raportin vaikka Exceliin.

    • Anonyymi

      Jos sinulle tulevat raportit on tehty aina samalle pohjalle, eikä sen täyttäjät käytä sitä selaimella, täytettävään pohjaan voi lisätä makron joka kopioi raportin avatessasi sen rivin vuosiraporttiisi. Muussa tapauksessa taitaa olla vaikea keksiä tapaa, joka olisi copy-pastea yksinkertaisempi.

      • Anonyymi

        Tuollainen kuulostaisi hyvälle ja mahdollista varmaankin toteuttaa, mutta ei oo makrot vahvinta alaa. Minkälainen makro osaa lisätä rivin vuosiraportin jatkoksi oikealle riville?


      • Anonyymi
        Anonyymi kirjoitti:

        Tuollainen kuulostaisi hyvälle ja mahdollista varmaankin toteuttaa, mutta ei oo makrot vahvinta alaa. Minkälainen makro osaa lisätä rivin vuosiraportin jatkoksi oikealle riville?

        Raportin moduliin ThisWorkbook tulisi tämmöinen makro. Se ajetaan aina, kun raportti avataan ja tietty rivi kopioidaan vuosiraporttiin, mikäli sellainen on ja annat luvan.

        Private Sub Workbook_Open()

        vuosiraportti = "C:\temp\excel\vuosiraportti.xlsx"
        If Dir(vuosiraportti) = "" Then Exit Sub ' Ei tehdä mitään, jos vuosiraporttia ei löydy

        Set tämä = ThisWorkbook
        sivu = "Sheet1" ' Raportin välilehti
        vrSivu = "Sheet1" ' Vuosiraportin välilehti
        vrSarake = "A" ' Vuosiraportin sarake, johon liitetään
        kopioitava = "A5:G5" ' Raportista Vuosiraporttiin kopioitava alue

        If MsgBox("Liitetäänkö vuosiraporttiin?", vbYesNo) = vbYes Then
        On Error GoTo err:
        Application.ScreenUpdating = False
        Set vr = Workbooks.Open(Filename:=vuosiraportti)
        With vr.Sheets(vrSivu)
        ' Haetaan vapaa rivi.
        ' Oletus: liitettävä rivin jälkeen ei ole mitään
        vrRivi = .Cells(.Rows.Count, vrSarake).End(xlUp).Row 1

        ' Jos vuosiraportissa olisi sisältöä vielä siihen liitettävien rivien jälkeen,
        ' ensimmänen tällainen rivi on nimetty "muuta" ja vapaa rivi haetaan sen yläpuolelta.
        ' vrRivi = .Cells(.Range("muuta").Row, vrSarake).End(xlUp).Row 1

        .Rows(vrRivi).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

        tämä.Sheets(sivu).Range(kopioitava).Copy
        .Range(vrSarake & vrRivi).PasteSpecial xlPasteValues
        End With
        vr.Save
        vr.Close False
        End If
        err:
        Application.ScreenUpdating = True
        End Sub


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

    Luetuimmat keskustelut

    1. Kysymys muille miehille

      Onko teille varattu nainen ongelma? Mikään muu naisessa ei töki kun se että hän on varattu. Kamppailen houkutuksen kanss
      Ikävä
      131
      7182
    2. Kaipaisin nyt kosketusta

      jota ei koskaan ole ollut. Saisinpa tuntea kätesi niskallani ja silittelemässä päätäni. Sulaisin varmasti siihen.
      Ikävä
      14
      2559
    3. Imaami kysyy, miksi pojat uivat ilman valvontaa

      Kalajoen särkät ovat usean kilometrin pituiset. Siellä on kylttejä, joissa varoitetaan rannan vaaroista. Siellä ei ole
      Maailman menoa
      264
      1230
    4. Sokea "ystävälle"

      Oletko oikeasti noin sokea?
      Ikävä
      100
      1019
    5. Mansikkatiloilla hyväksikäytetään ukrainalaisia

      Työolot ovat surkeita ja palkka kelvoton. https://yle.fi/a/74-20172942
      Maailman menoa
      161
      947
    6. En ymmärrä käytöstäsi

      Se on ollut eräänlaista hyväksikäyttöä. Että seura kyllä kelpaa palstan välityksellä silloin kun ei ole parempaakaan tek
      Ikävä
      137
      900
    7. Kerrostaloihin ilmalämpöpumput

      Ulkomailla näkee paljon ilmalämpöpumppuja kerrostalojen ulkoseinissä. Mikä estää taloyhtiötä hankkimasta niitä asuntoih
      Sinkut
      71
      897
    8. Kiitoksia kaikille epäasiallisesta sisällöstä liputtaneille

      Se ylimielisyys ja epäasiallisen julkaisun jakaminen ei sitten kantanut.
      Tuusniemi
      79
      774
    9. Kirkonkylän puliveivarit

      Hieman pistää silmään nuo puliukot ja akat kirkonkylän penkeillä ja S-marketin kulmilla. Tarttis varmaan tehdä asialle j
      Karstula
      13
      733
    10. Persaukinen puolankalainen kävi kerjäämässä paitaa

      Ja lippistä. Nauratti suuresti kun katsoin. Kukahan mahtanee olla? Voipi katsoa täältä jutun. https://www.youtube.com
      Puolanka
      18
      711
    Aihe