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.
Rivitiedon siirtäminen toiseen tiedostoon joka päivä
Anonyymi
6
1153
Vastaukset
- 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
- 535203
Yritystuet 10 mrd. vuodessa, eli yrittäjäriski valtiolla kuten kommunismissa
Pelkästään Viking Linen viinanhakuristeilyitä sponsoroidaan 20 miljoonalla eurolla vuosittain. Dieselin verotukikin on254556En saa sua mielestäni vaikka tekisin mitä
Mikä tähän auttaa.. ei mikään. Edes aika. Kaivan sut kohta vaikka kivenkolosta että saan kysyä haluatko sinäkin💛153739Sture Fjäder haluaa tuensaajien nimet julki
Kokoomuspoliitikko haluaa yli 800 euroa kuukaudessa tukia saavien nimet julki. Ehkä olisi syytä julkaista myös kuvat? h973715Luotathan siihen tunteeseen, joka välillämme on?
Uskothan myös, että se kestää tämän? Kaipaan sinua valtavasti. Vielä tehdään yhdessä tästä jotain ihmeellistä ja kaunist443603Riikka on siis suomalaisille velkaa 84 mrd
Jos kauhukabinetti istuu vaalikauden loppuun. Keskimäärin yli 20 miljardia uutta velkaa rikkaiden veronalennuksiin jokai1273433Onnettomuus
Hukkajärventiellä kolaroi lavetti ja henkilöauto. Uutista ei missään! Hys hys ollaanko hiljaa tästäkin?53070Sanna on suomalaisille siis velkaa 24 mrd euroa
Muistanette vielä kuinka Italian remonttirahoja perusteltiin sillä, että italialaiset ostaa suomalaisilta paidatkin pääl1682906- 252589
Köysi alkaa kiristyä putinin kaulalla....
Putin pelkää eniten juuri omaa porukkaansa, ja siihen on varmasti syytä kun sota ei ole mennyt hyvin, tappiot ovat valta352183