Visual Basic apuja excelin makroon

Ei osaa koodata

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

2

569

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Kalle Palander kertoi fantasioivansa siitä, kuinka Kiira Korpi naisi häntä sträppärillä ahteriin

      Sai potkut Yleltä. https://yle.fi/a/74-20140000
      Maailman menoa
      425
      6272

    2. Kun katsoin häntä

      Niin ajattelin että hän on niin rakas ❤️
      Ikävä
      25
      2441

    3. Mitä sanoisit kolmella sanalla

      kaivatullesi ja tunteidesi kohteelle? 🙎💝💝
      Ikävä
      208
      2324

    4. Haluisin niin

      Selvittää sun kanssa asiat. Kumpa uskaltaisin. Haluatko sinä?
      Ikävä
      114
      1668

    5. Miksi Pekkaa ei hyväksytä maailmalla julkisiin virkoihin?

      On mennyt jo monta hommaa ohitse.
      80 plus
      125
      1655

    6. Nyt mielipiteitä kehiin?

      Niin ,onko arvon kuhmolaiset teidän mielestänne kaupungin hommissa turhia työpaikkoja/työntekijöitä? Mielipiteitä tu
      Kuhmo
      60
      1083

    7. Minkälainen koti

      kaivatullasi on?
      Ikävä
      74
      1083

    8. IS: Paljastus - Tästä syystä Marika jätti Diilin kesken -Tilittää: "Jäi vähän karvas maku, koska..."

      Diilissä lähti yllättäen yksi kisaaja. Voi harmi, leikki loppui liian varhain… Diilissä Jaajo Linnonmaa etsii vetäjää Ka
      Tv-sarjat
      3
      1068

    9. Martina miehensä kanssa Malediiveilla.

      Miksi täällä puhutaan erosta? Lensivät Dubaista Malediiveilĺe.
      Kotimaiset julkkisjuorut
      135
      988

    10. Ei lumous lopu koskaan

      Kerran kun tietyt sielut yhdistyvät kunnolla, ei irti pääse koskaan. Vaikka kuinka etsit muista ihmisistä sitä jotain tu
      Ikävä
      59
      836
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt