Elikkä pitäisi saada semmoinen makro, joka toistaa kopiointia yhdeltä sheetiltä toiselle ja siitä kopioi tietoja kolmannelle sheetille.
Olen jo löytänyt Counter käskyn, jolla makro toistaa kopiointia, mutta se kopioi tiedot aina samaan soluun kolmannelle sheetille. Enkä ole varma eteneekö countteri ensimmäisen sivun tietojen valinnassa alaspäin vai kopioiko samaa riviä koko ajan.
Jos joku osaa neuvoa niin olen äärettömän kiitollinen! En ole aiemmin joutunut näihin perehtymään, joten olen ihan kehällä.
Tässä vielä nykyinen koodi. Ne jotka osaa tätä varmasti ymmärtävät tuosta jotain.
Sub kopiokone()
'
' kopiokone Makro
'
'
For Counter = 1 To 20
Sheets("Kiviaines prosentit").Select
Range("A2:C2").Select
Selection.Copy
Sheets("Käyrälaskuri").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K5:K20").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Seulojen erotukset").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Next Counter
End Sub
Visual Basic apuja excelin makroon
2
585
Vastaukset
- mmm
Tuo sinun antama makrosi tekee yhden saman kopiointisarjan 20 kertaa peräkkäin. Lähdealue pysyy samana, samoin kohdealue.
Alla yksi vaihtoehto, lähdealue ja kohdealue vaihtuu 'rivi'-numeron mukaan.
Sub kopiokone()
'
' kopiokone Makro
'
Application.CutCopyMode = False
For rivi = 2 To 20
With Sheets("Kiviaines prosentit")
.Range(.Cells(rivi, 1), .Cells(rivi, 3)).Copy
End With
With Sheets("Käyrälaskuri")
.Range("B2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.Range("K5:K20").Copy
End With
With Sheets("Seulojen erotukset")
.Range(.Cells(rivi, 1), .Cells(rivi, 16)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End With
Next
End Sub- Ei osaa
Kiitoksia paljon!
Nyt yritän ymmärtää tuon koodin ja sitten muokata sen laskemaan kaikki 7800 riviä.
Kiitos vielä kerran!
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Mies, mitä minun pitäisi tehdä
Niin, mitä naisen siis pitäisi tehdä, että lähestyisit ja tekisit aloitteen? Mikä on riittävä kiinnostuksen osoitus juur1812326- 1831944
Toivottavasti et mussukka elättele toiveita meikäläisen suhteen
Tiedän mitä olet touhunnut joten aivan turha haaveilla mistään enää 👍1711784Sofia Virralla ja Minja Koskelalla ei mitään käsitystä terveyskeskusmaksuista!
Vasemmistopimut Sofia ja Minja täysin ulkona sote asioista, ei minkäänlaista käsitystä edes mittaluokasta, missä terveys1141603Summit-tippuja Nicola sai Carolalta yllättävän viestin - Some älähtää rajusti: "Älä viitsi..."
The Summit Suomi -kisa käy kuumana kylmässä Norjan vuoristossa. Nicola tiputettiin kisasta juuri ennen finaalia. Likaise311545- 1131345
Juusolle sataa vihaisia viestejä hoitajilta ja loput nauravat hänelle
Ei löydy montaakaan, joka kehuisi Juuson toimintaa ministerinä: "Selvä enemmistö Juuson päivitykseen reagoineista on su1711155Persuehdokas uhkasi tappaa "jätkän" ja ravintolayrittäjän
Kuuntele tästä kuinka meuhkaa. https://www.iltalehti.fi/politiikka/a/4eb3034d-48c5-4f31-b53c-42be3dc9607c771093Varattais lähihotellista
🥰 huone viikoksi. Oltais vaan ja tilattais huonepalvelusta herkkuja! Viikonloppukin käy jos et viikoksi ehdi ❤ Hyvää1601078Kompostointitarkastaja tuli tarkastukselle!
En ole ikinä kompostoinnut ja eilen kävi kompostointitarkastaja kylässä. Tosi hianoa byrokratiaa taas: "Laki edellyttää,591035