Tiedon lähettäminen

kapoo kirjoitti:

...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 =)

kirjoitti:

Anonyymi

Kirjoita kommentti

5000

Lähetä