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
558
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
Ensitreffit Jenni laukoo viinilasin ääressä suorat sanat Jyrkin aikeista: "Mä sanoin, että älä"
Voi ei… Mitä luulet: kestääkö Jennin ja Jyrkin avioliitto vai päättyykö eroon? Lue lisää: https://www.suomi24.fi/viihde272870Ymmärrän paremmin kuin koskaan
Roikut kädessäni ja vedät puoleesi. Näen kuitenkin tämän kaiken lävitse ja kaikkien takia minun on tehtävä tämä. Päästän332525- 1482274
Hullu liikenteessä?
Mikä hullu pyörii kylillä jos jahti päällä? Näitä tosin kyllä riittää tällä kylällä.542239Niina Lahtinen uudessa elämäntilanteessa - Kotiolot ovat muuttuneet merkittävästi: "Nyt on...!"
Niina, tanssejasi on riemukasta seurata, iso kiitos! Lue Niinan haastattelu: https://www.suomi24.fi/viihde/niina-lahti241860Kun Venäjä on tasannut tilit Ukrainan kanssa, onko Suomi seuraava?
Mitä mieltä olette, onko Suomi seuraava, jonka kanssa Venäjä tasaa tilit? Ja voisiko sitä mitenkään estää? Esimerkiks3901696Ano Turtiainen saa syytteet kansankiihoituksesta
Syytteitä on kolme ja niissä on kyse kirjoituksista, jotka hän on kansanedustaja-aikanaan julkaissut Twitter-tilillään1041642- 3091548
- 1351459
Varokaa! Lunta voi sataa kohta!
Vakava säävaroitus Lumisadevaroitus Satakunta, Uusimaa, Etelä-Karjala, Keski-Suomi, Etelä-Savo, Etelä-Pohjanmaa, Pohjanm131446