Tarvitsisin hieman apua makroihin liittyvään ongelmaan. En itse osaa kirjoittaa makroja mutta nauhoittamalla makroja olen päässyt seuraavaan pisteeseen. Minulla on 50 nimettyä aluetta (ALUE1, ALUE2, ALUE3..., joille kaikille pitäisi suorittaa seuraava rutiini (alla tehty kahdelle alueelle). Ongelmana on, että en osaa kirjoittaa FOR-looppia, jolla saisin valittua ALUE1:n ja suritettua rutiinin ja sen jälkeen valittua ALUE2:n ja suoritettua rutiinin jälleen. Tämä täytyisi tehdä siis kaikille 50:lle alueelle.
Sub AlueidenTarkastelu()
Application.Run "'Excelsovellus 7.0.xls'!TyhjennäTiedot"
Application.Goto Reference:="ALUE1"
Selection.Copy
Sheets("Asiakastiedot").Select
Range("A63").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-6
Application.Run "'Excelsovellus 7.0.xls'!TulostenSiirto"
ActiveWindow.SmallScroll Down:=3
Application.Run "'Excelsovellus 7.0.xls'!TyhjennäTiedot"
Application.Goto Reference:="ALUE2"
Selection.Copy
Sheets("Asiakastiedot").Select
Range("A63").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-12
Application.Run "'Excelsovellus 7.0.xls'!TulostenSiirto"
ActiveWindow.SmallScroll Down:=12
Application.Run "'Excelsovellus 7.0.xls'!TyhjennäTiedot"
End Sub
Sub AlueidenTarkastelu()
Application.Run "'Excelsovellus 7.0.xls'!TyhjennäTiedot"
Application.Goto Reference:="ALUE1"
Selection.Copy
Sheets("Asiakastiedot").Select
Range("A63").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-6
Application.Run "'Excelsovellus 7.0.xls'!TulostenSiirto"
ActiveWindow.SmallScroll Down:=3
Application.Run "'Excelsovellus 7.0.xls'!TyhjennäTiedot"
Application.Goto Reference:="ALUE2"
Selection.Copy
Sheets("Asiakastiedot").Select
Range("A63").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-12
Application.Run "'Excelsovellus 7.0.xls'!TulostenSiirto"
ActiveWindow.SmallScroll Down:=12
Application.Run "'Excelsovellus 7.0.xls'!TyhjennäTiedot"
End Sub
Vastaukset 6
Vanhimmat
tyhjennät Asiakastiedot taulukosta tiedot ja kopioit alueet soluun A63 ja tulostat? Olettaen, että nimet ovat samassa taulussa ja niitä ei ole muualla niin seuraava tekee sen
moduuliin ...
TyhjennäTiedot ja TulostenSiirto sun omat makrot
Sub AlueidenTarkastelu()
Dim Nimi As Name
For Each Nimi In Names
Sheets("Asiakastiedot").Activate
TyhjennäTiedot
Range(Nimi).Copy Destination:=Range("A63")
TulostenSiirto
Next
End Sub
Ensinnäkin kiitos avusta. Hieman vielä tarkentaisin. Eli idea on tyhjentää tiedot Asiakastiedot-taulukosta, sen jälkeen kopioida ALUE1 Aluetiedot-taulukosta solusta A63 alkavaan alueeseen ja tämän jälkeen printata tulokset (tulos riviltä) Tulos-taulukkoon. Olen myös nimennyt muita alueita, joten nyt makro valitsee muitakin tietoja kuin vain ALUE1,ALUE2... ALUEX. Kun koitin luomaasi makroa tietokoneeni ilmoitti myös että muisti ei riitä. Tällä hetkellä tarkasteltavia alueita on jo yli sata ja koneeni hyytyi jo ALUE64 kohdalla. Vievätkö makrot todellakin näin paljon muistia... eli kannattaako minun haudata ajatus makrosta kokonaan?
no jos alueet nimetty Alue1, Alue2 jne ja tiedät kopioitavien alueiden määrän for next toimii
Sub AlueidenTarkastelu()
Dim Nimi As Name
Dim i as Integer
For i = 1 To 5
Sheets("Asiakastiedot").Activate
tyhjennätiedot
Range("Alue" & i).Copy Destination:=Range("A63")
tulostensiirto
Next
End Sub
Joo nyt se toimii loistavasti, eli tarkasteluun tulee vain halutut alueet. Vieläkin mun kone hyytyy ALUE64 kohdalla. Ajattelin kiertää ongelman aloittamalla laskurin 64:sta (ALUE64-ALUE120)ja tekemällä toisen makron niille alueille, mutta ilmeisesti makro "laskee" joka tapauksessa alusta (ALUE1) lähtien, sillä makro pystyi tekemään vain ALUE64 tarkastelun kunnes muisti loppui jälleen. Täten mun kai täytyy nimetä (ALUE64-ALUE120-->ALUEB1-ALUEB56), ja koittaa tehdä toinen makro.
ei pitäisi olla olla 200 nimeä ongelmana. Ilmeisesti sä otat käyttöön muita objekteja ja et poista niitä käytöstä koodissasi.Tuo lienee syynä-vaikea sanoa näkemättäsi koko koodia
Makroissahan on se ikävä ominaisuus että muistinvaraus purkautuu normaalisti vasta koko makron suorittamisen jälkeen joten kyllä tuolla koodilla muistin loppuminen on hyvinkin mahdollista, itsellä on hieman vastaavia kokemuksia.
Laitapa seuraava koodi For-Next looppiin vaikka ennen nextiä (määritä itse Kansio -ja Tiedostokohdat):
'Tallennetaan, suljetaan ja avataan uudestaan joka 50:n suorituksen kohdalla
If i Mod 50 = 0 Then
ActiveWorkbook.Save
ActiveWorkbook.Close
ChDir Kansio
Workbooks.Open FileName:= _
Kansio & Tiedosto
End If
Eli ideana on sulkea Excel ja avata uudestaan jolloin muistinvaraus poistuu, sen jälkeen jatketaan siitä mihin jäätiin.