Rivitiedon siirtäminen toiseen tiedostoon joka päivä

Anonyymi

Miten tämmöinen olisi viisainta ratkaista. Päivittäin tulee excel-raportti, jossa rivitietona lukuja eri sarakkeissa. Miten tästä saisi joka päivä näppärästi koonnin siirrettyä paikkaan X jossa nuo tiedot olisi riveittäin per päivä? Copypaste ei ole vaihtoehto tässä kohtaa.

6

1132

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

      Riippuu ihan paikasta X. Ei ole mitään yleisratkaisua, jos ei tiedetä mihin tieto halutaan.

    • Anonyymi

      Jos pysytään Excel-maailmassa, niin ajatus olisi että tämä päivittäinen rivitieto olisi vietävissä siihen isompaan exceliin päivämäärä riveittäin.

      • Anonyymi

        Mikä on "isompi excel"?


      • Anonyymi
        Anonyymi kirjoitti:

        Mikä on "isompi excel"?

        Joka päivä tulee uusi tiedosto, jossa on yhden päivän tiedot. Tarkoitus olisi kopioida nuo tiedot toiseen tiedostoon, jossa on myös aiempien päivien tiedot.


      • Anonyymi
        Anonyymi kirjoitti:

        Joka päivä tulee uusi tiedosto, jossa on yhden päivän tiedot. Tarkoitus olisi kopioida nuo tiedot toiseen tiedostoon, jossa on myös aiempien päivien tiedot.

        Minkälaisia tiedostot ovat? Tekstitiedostoja?


    • Anonyymi

      Sub LisääRaportti()

      Dim app As New Excel.Application
      Dim rapo As Excel.Workbook

      Set fd = Application.FileDialog(msoFileDialogFilePicker)
      solut = Split("B3;C4;D5;D6;E4;G4", ";")
      With fd
      .Filters.Clear
      .Title = "Haettava Raportti"
      .Filters.Add "Picture Files", "*.xls,*.xlsx,*.xlsm", 1
      .AllowMultiSelect = False
      r = Cells(Rows.Count, "A").End(xlUp).Row 1
      If .Show = -1 Then
      f = .SelectedItems(1)
      Set book = app.Workbooks.Add(f)
      app.Visible = False
      Else
      Exit Sub
      End If
      End With
      c = 1 ' jos päivämäärä on raportissa, tähän tulee 0 ja päivämäärän sisältävä solu lisätään listaan
      Cells(r, c) = Now()
      For i = 0 To UBound(solut)
      c = c 1
      Cells(r, c) = rapo.ActiveSheet.Range(solut(i))
      Next

      rapo.Close SaveChanges:=False
      app.Quit
      Set app = Nothing
      End Sub

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

    Luetuimmat keskustelut

    1. Kalajoen hukkuneet pojat olivat tummaihoisia

      Jälleen kerran, hukkuneet tai heikon uimataidon vuoksi vaaraan joutuneet olivat muita kuin suomalaisia. Turha viisastell
      Maailman menoa
      321
      7022
    2. 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ä
      71
      4218
    3. Sinä eräs, pyydän......

      AUTA mua ole kiltti. Ei mun takia vaan.... Miten saan sut kiinni?
      Ikävä
      208
      3155
    4. Kohta katson sun kuvaasi

      ja päästän ajatukseni liitämään. Jo kuvasi näkeminen rauhoittaa, ja pistää hyrräämään vähän muutakin. Ihanan kaunista sa
      Ikävä
      24
      2927
    5. Nimikirjaimet

      Kuka kaipaa ketä 🥰
      Ikävä
      74
      1952
    6. VOI TÄTÄ ILON

      JA ONNEN PÄIVÄÄ 😂
      Tuusniemi
      149
      1761
    7. Ahneus iski Fazeriin, suklaalevy kutistuu 180 grammaan

      Kun mikään ei riitä. Shrinkflaatio. Mitä isot (Marabou) edellä, sitä pienet (Fazer) perässä. Pienikin voi siis olla a
      Maailman menoa
      210
      1732
    8. Jos kaivattusi on perääntynyt lähestyessäsi

      jossain tilanteessa, ymmärrätkö miksi hän saattoi tehdä sen?
      Ikävä
      165
      1550
    9. Minkä asian haluaisit muuttaa kaivatussasi?

      Mikä kaivattusi luonteessa tai ulkonäössä ärsyttää sua?
      Ikävä
      120
      1538
    10. Mies, ajattelemmekohan toisiamme juuri nyt?

      Olet mielessäni, vanhempi mies
      Ikävä
      89
      1428
    Aihe