For next ja Do loop?

Kiitos paljon vastauksesta!

En vielä päässyt kokeilemaan kaavaa. Nuo sivuvaihdot kuitenkin vaikuttivat sen verran oudoilta, että haluaisin vielä hiukan varmentaa että tulin oikein ymmärretyksi.

Yksinkertaistettuna raporttini on alla olevan näköinen paperisena. Samat tiedot ovat myös excelissä. Haluan siirtää jokaisen sivun ensimmäiseltä riviltä tietoja.

A1,B1,C1,D1,E1,
A2,B2,C2,D2,E2
A3,B3,C3,D3,E3
A4,B4,C4,D4,E4
---pagebreak—
A5,B5,C5,D5,E5,
A6,B6,C6,D6,E6
A,7,B7,C7,D7,E7
A8,B8,C8,D8,E8
---pagebreak—
...
...


Excelissä haluan seuraavaa (yksinkertaistettuna):

A1,B1,C1,D1,E1,B1,D1
A2,B2,C2,D2,E2,B1,D1
A3,B3,C3,D3,E3,B1,D1
A4,B4,C4,D4,E4,B1,D1
A5,B5,C5,D5,E5,B5,D5
A6,B6,C6,D6,E6,B5,D5
A,7,B7,C7,D7,E7,B5,D5
A8,B8,C8,D8,E8,B5,D5
... ... ...
... … …


Yritin tehdä tästä jo makroa (työläs), mutta en saanut sitä toimimaan. Excel herjasi että koodi oli liian pitkä sillä rivejä oli jokunen tuhat. Tein sen jälkeen karvalakkimallin kaavahauilla.


Ajattelin että Do Loop kattaa tuon ”yhden sivun” tiedon siirtämisen. For Nextillä sitten katetaan tuon koko ”sivumäärän” eli muutaman tuhannen tietorivin kattaminen.

keke2009 kirjoitti:

Kiitos paljon vastauksesta!

En vielä päässyt kokeilemaan kaavaa. Nuo sivuvaihdot kuitenkin vaikuttivat sen verran oudoilta, että haluaisin vielä hiukan varmentaa että tulin oikein ymmärretyksi.

Yksinkertaistettuna raporttini on alla olevan näköinen paperisena. Samat tiedot ovat myös excelissä. Haluan siirtää jokaisen sivun ensimmäiseltä riviltä tietoja.

A1,B1,C1,D1,E1,
A2,B2,C2,D2,E2
A3,B3,C3,D3,E3
A4,B4,C4,D4,E4
---pagebreak—
A5,B5,C5,D5,E5,
A6,B6,C6,D6,E6
A,7,B7,C7,D7,E7
A8,B8,C8,D8,E8
---pagebreak—
...
...


Excelissä haluan seuraavaa (yksinkertaistettuna):

A1,B1,C1,D1,E1,B1,D1
A2,B2,C2,D2,E2,B1,D1
A3,B3,C3,D3,E3,B1,D1
A4,B4,C4,D4,E4,B1,D1
A5,B5,C5,D5,E5,B5,D5
A6,B6,C6,D6,E6,B5,D5
A,7,B7,C7,D7,E7,B5,D5
A8,B8,C8,D8,E8,B5,D5
... ... ...
... … …


Yritin tehdä tästä jo makroa (työläs), mutta en saanut sitä toimimaan. Excel herjasi että koodi oli liian pitkä sillä rivejä oli jokunen tuhat. Tein sen jälkeen karvalakkimallin kaavahauilla.


Ajattelin että Do Loop kattaa tuon ”yhden sivun” tiedon siirtämisen. For Nextillä sitten katetaan tuon koko ”sivumäärän” eli muutaman tuhannen tietorivin kattaminen.

Lue lisää

esimerkissäsi on nyt sivulla 4 riviä tietoa... ekassa viestissäsi puhuit 46 rivistä, ok jos excelissä on tehty sivunvaidot aina samalla jaolla niin koodi pelaa. Jos ei ole sivunvaihtoja thety niin laita manuaalisesti esim . viimeisen esimerkkisi mukaisesti 5

moduuliin...

Sub MuotoileSivut()
Dim Sivut As Long
Dim Rivit As Long
Dim Sivunvaihto As Long
Dim Rivi As Long
Dim Otsikkorivi As Long
Dim i As Integer
Dim j As Integer
On Error Resume Next
Application.ScreenUpdating = False
Rivit = Range("C65536").End(xlUp).Row()
Sivunvaihto = ActiveSheet.HPageBreaks(1).Location.Row() - 1
'jos sivunvaihtoja ei ole tehty joudut käyttämään manuaalista arvoa - esimerkissäsi oli nyt 5 riviä
'eli hipsaa ylempänä oleva rivi Sivunvaihto = ActiveSheet.HPageBreaks(1).Location.Row() - 1 ja
'poista allaolevalta riviltä hipsu Sivunvaihto = 5
'Sivunvaihto = 5
Sivut = (Rivit / Sivunvaihto) 1
Rivi = 1
Otsikkorivi = 1
For i = 1 To Sivut
For j = 1 To Sivunvaihto
Range("F" & Rivi) = Range("B" & Otsikkorivi)
Range("G" & Rivi) = Range("D" & Otsikkorivi)
Rivi = Rivi 1
If Rivi = Rivit 1 Then Exit Sub
Next
Otsikkorivi = Otsikkorivi Sivunvaihto
Next
Application.ScreenUpdating = True
End Sub