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

647

Äänestä

    Vastaukset 2

    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. Gallup: Kansalaiset eivät usko velkajarruun

      Puolet suomalaisista ei usko velkajarrun vaatimien sopeutusten toteutuvan, kertoo Iro Researchin kyselytutkimus. Kokoom
      Maailman menoa
      118
      1275

    2. Mä oon kallistumassa

      Rikosilmoitukseen!
      Suhteet
      225
      1026

    3. Ethän mies vielä

      luovu meistä? Haluaisin jo sun syliin.
      Ikävä
      67
      970

    4. Haaveilen edelleen

      Sinusta aika ajoin
      Ikävä
      58
      942

    5. Sinulle nainen

      En ehkä koskaan osannut sanoa tätä oikein. Minun vaikeuteni luottaa liittyi ennen kaikkea menettämisen pelkoon. Siihen
      Ikävä
      66
      896

    6. Martsusta tuli leuhka

      Ja ylimielinen. Hän ei nosta persettäkään ilmaseksi . Luulempa et nämä ei tee hyvää hyvinvointivalmennuksille.... Nannal
      Kotimaiset julkkisjuorut
      250
      850

    7. Kuisla Group Oy jättänyt yrityssaneeraushakemuksen

      Samalla yrityssaneeraukseen on hakeutunut Kuisla henkilökohtaisesti ja Seinäjoen Motelli Oy, joka omistaa Sorsanpesän ki
      Seinäjoki
      36
      788

    8. Hei rakkaani.

      Kohtaaminen lähestyy. Miten teemme sen? Kumpi ottaa yhteyttä vai törmäämmekö jossain sattumalta? Tuleva vaimosi
      Ikävä
      70
      765

    9. Ethän voinut nainen tietää, että rikot rikotun

      Omaa elämää taas mietin aamuyön tunteina. En vieläkään löytänyt muistin sokkeloista ainuttakaan onnen hetkeä. Kaipuu on
      Ikävä
      72
      752

    10. Tiedätkö sitä

      Että sinun äänesi on ihanan pehmeä
      Ikävä
      42
      726

    11. Uskallanko laittaa sulle viestiä?

      Se viesti on tossa valmiina ja lähettämistä vaille valmis. Kun ei kauhee sti tunneta niin eipä sillä olisi niin väliä. S
      Ikävä
      58
      680

    12. On paha olla

      Kun olen käyttäytynyt aiemmin kaivattua kohtaan kuin joku narsisti.
      Ikävä
      56
      641

    13. Kiulu myynnissä!

      Kiulu hakee taas uutta yrittäjää. https://www.yritysporssi.fi/etela-pohjanmaa-lansi-suomi-finland/myytavat/yritykset/ma
      Ähtäri
      26
      608

    14. Tulisiko naisille asettaa korkeammat eläkemaksut

      Tämä tuli mieleeni kun luin aamun lööppejä. Japanissa alkaa olla "uutta nuorisoa" ihan urakalla, ikä alkaa sadan jälkeen
      Sinkut
      176
      503

    15. Et pysty peittämään minulta

      Sinä olet hyvä peittämään asioita niin halutessasi. Pystyt pitkiäkin aikoja salaamaan juttuja. Juuri mietin tuossa, olet
      Ikävä
      47
      494

    16. Mikä tekee kaivatustasi

      Haluttavan?
      Ikävä
      18
      488

    17. Mitä oikein tapahtui? Maajussi-Jetta sai tylyt pakit - Sulhoehdokas selittää: "Ei lentänyt kipinät"

      Maajussille morsian -sarjassa etsitään rakkautta ja rinnalle kumppania. Yksi maajusseista on Jetta - liikunnallinen ja
      Maajussille morsian
      12
      477

    18. Vieläkin saat

      Sydämen tykyttämään. Vaikka emme näe
      Ikävä
      24
      474

    19. Mies joka on oikeasti kiinnostunut

      Ja näkee sut pitkäaikaisena kumppanina, siirtää vaikka vuoria selvittääkseen asiat eikä ota pienintäkään riskiä menettää
      Ikävä
      98
      454

    20. Onko nyt kaikki asiat käyty läpi?

      Mun mielestä on👍
      Ikävä
      56
      453
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt