kopioitua. Eli
A1 tekstiä C1 tekstiä
A2 numero C2 tekstiä
Haluaisin ensinmäisen sivun näyttämään näin. Kun painan PgDn Seuraavalle sivulle tulisi muuten sama paitsi numero kentässä luku kasvaisi yhdellä.
Toivottavasti joku ymmärsi. Kiitokset
Miten saan
fiksusti
1
220
Vastaukset
kopioi nyt aina seuraavaan taulukkoon edellisen taulukon tiedot
Sub Workbook_Open()
Application.OnKey "{PGDN}", "Seuraava"
End Sub
Sub Workbook_Close()
Application.OnKey "{PGDN}"
End Sub
Sub Seuraava()
On Error Resume Next
Range("A1:C2").Copy Destination:=Sheets(ActiveSheet.Index 1).Range("A1")
Sheets(ActiveSheet.Index 1).Range("A2") = Sheets(ActiveSheet.Index 1).Range("A2") 1
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 856483
Useita puukotettu Tampereella
Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht2905454Kuka rääkkää eläimiä Puolangalla?
Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii984151- 522900
- 272874
- 1202093
Meneeköhän sulla
oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua472030Lähetä terveisesi kaipaamallesi henkilölle
Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘991767- 721301
PS uusimman gallupin rakettimainen nousija
https://yle.fi/a/74-20170641 Aivan ylivoimaisesti suurin kannatuksen nousu PS:lle. Nousu on alkanut ja jatkuu 2 vuoden1591151