...Suljettuun työkirjaan, onko mahdollista ? Tällä hetkellä ongelmana on työkirjan koko joka on noin 30 mb. Kestää käsittämättömän kauon avata ks työkirja. Työkirja pitää sisällään käyttäjille omat syöttösivut joiden kautta tietoa lähetetään erivälilehdille ja näin saadaan tilastotoetoa.
Nyt ajattelinki että jos tekisi erillisen syöttö työkirjan. Eli tiedosto pitää sisällään ainoastaan yhden sivun johon käyttäjä asettaa numeroarvot, painaa lähetä nappia ja AVOT se olisi siinä.
Näin tiedosto olisi korkeintaan megan tai kaksi. Tämän kautta sitten lähetetään tiedot tuohon suurempaan työkirjaan.
VBA puoli on hiukan hakusessa mutta olen onnistunut tekemään makron joka lähettää käyttäjän asettamat arvot työkirjan sisällä oikeille välilehden sivuille. Nyt koodia pitäisi muuttaa sen verran että tiedot lähetetään suljettuun työkirjaan.
Ajatellaan että uuden syöttö työkirjan nimi olisi Syöttö.xls ja mihin tiedot pitäisi lähettää niin se olisi Arvot.xls. Kumpikin tiedoto sijaitsee c:\excel\tilasto juuressa.
Tässä esimerkki koodista jota pitäisi muuttaa (makron koodi). Eli tämä koodi on toiminnassa kunhan syöttösivu on samassa työkirjassa. Nyt siis haluan että syöttösivu on kokonaan erillinen tiedosto.
Sub Tallenna()
Dim Rivi1
Dim TIEDOT
Tiedot= Range("Tiedot")
Rivi1 = Range("Rivi1")
If IsEmpty(Range("B6")) Then
MsgBox "Päivämäärää ei ole syötetty !", 48, "Tiedote"
Exit Sub
End If
Range("Tiedot").Select
Selection.Copy
'TÄHÄN PITÄS KÄSITTÄÄKSENI SAADA UUSI POLKU/VIITTAUS SULJETTUUN TYÖKIRJAAN
Worksheets("Tilasto").Select
ActiveSheet.Paste Destination:=Worksheets("Tilasto").Cells(Rivi1, 1)
Cells(Rivi1, 1).Select
Worksheets("Syöttö").Select
Range("Tiedot").Select
Selection.ClearContents
Range("B6").Select
Selection.ClearContents
Range("A6").Value = "=B6"
Range("A7").Value = "=B6"
MsgBox " Suoritteet siirretty!", 48, "Tiedote"
End Sub
Saas nähä tajusko kukaan sepustuksiani =)
Tiedon lähettäminen
2
137
Vastaukset
- lkjölkjölkj
Makron pystyy tekemään myös toiseen tiedostoon, esim. kopioimaan tiedot toiseen excel-työkirjaan. Eli ensin aloitat nauhoittamaan makroa ja valitset solut paina kopioi, mee toiseen työkirjaan ja valitset solun mihin haluat kopion liittää, painat liitä ja meet takaisin ed. työkirjaan ja lopetat makron nauhoittamisen. Eiks tää sama homma pitäis onnistua suljettuunkin työkirjaan?
- Plain
Eiköhän mikä tahansa tiedosto pidä ensin avata, jotta siihen voi kirjoittaa.
Pelkkä tiedon määräkö tekee työkirjasta ison, vai onko siinä muuta ylimääräistä?
Jos käytät tietokantaa, koko sisältöä ei tarvitse ladata koneelle.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Onks sulle väliä, jos jokin kaivattusissa
ei ole täydellistä? Esim. venytysmerkit, arvet, selluliitti, epäsymmetriset rinnat, vinot hampaat jne?854550- 1273958
Shokkiyllätys! 31-vuotias Hai asuu vielä "kotona" - Anna-vaimon asenne ihmetyttää: "No ei tämä..."
Hmmm, mitenhän sitä suhtautuisi, jos aviomies/aviovaimo asuisi edelleen lapsuudenperheensä kanssa? Tuore Ensitreffit-vai332521Eikö Marin ollut oikeassa kokoomuksen ja persujen toiminnasta
Ennen vaaleja Marin kertoi mitä kokoomus tulisi hallituksessa tekemään ja tietysti persut suostuu kaikkeen, mitä kokoomu1971535Wiisaat Lappajärvellä iät.
Nyt nimiä listaan menneistä ja nykyisistä Wiisaista Lappajärveläisistä. Itseäkin voi tuoda esille kaikessa Wiisaudessa.121286Missä Steffe hiihtää?
Missä reppuli luuraa? Ei ole Seiskassa mitään sekoiluja ollut pariin viikkoon? Onko jo liian kylmä skulata tennistä ulko221243Olet elämäni rakkaus
On ollut monia ihastumisia ja syviäkin tunteita eri naisia kohtaan, mutta sinä olet niistä kaikista ihmeellisin. Olet el361198Ratkaiseva tekijä kiinnostuksen heräämisessä
Mikä tekee deittikumppanista kiinnostavan? Mitä piirrettä arvostat / et arvosta?621193Milloin nainen, milloin?
Katselet ja tiedän, että myös mieli tekee. Voisit laittaa rohkeasti viestin. Tiedät, että odotan. Ehkä aika ei ole vielä611153Olen menettänyt yöunet kokonaan
Nytkin vain tunnin nukkunut. En tiedä johtuuko se sinusta vai tästä palstasta. Olis mukava nähdä oikeasti eikä arvuutel171065