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

623

Ää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. Vain vasemmistolaiset rakennemuutokset pelastavat Suomen

      Kansaa on ankeutettu viimeiset 30+ vuotta porvarillisella minäminä-talouspolitiikalla, jossa tavalliselta kansalta on ot
      Maailman menoa
      27
      3425

    2. Persut huutaa taas: "kato! muslimi!"

      Persut on lyhyessä ajassa ajaneet läpi kaksi työntekijöiden oikeuksien heikennystä, joita se on aiemmin vastustanut. Pe
      Maailman menoa
      13
      2828

    3. Menen nyt koisimaan

      Ja en ehkä palaa tänne. Asia on nyt loppuunkäsitelty ja totuus tuli ilmi
      Ikävä
      28
      2504

    4. Olisiko sinulla

      Jonossa vaihtoehtoja, ehkä
      Ikävä
      42
      1927

    5. Pieni galluppi

      Mitäs lahjaa odotat joulupukilta.
      Ikävä
      53
      1779

    6. Haluaisin rakastaa sinua

      Ja olla sinulle se oikea... Rakastan sinua 💗💗💗
      Ikävä
      15
      1760

    7. onko kaivattusi

      vaarallinen? :D
      Ikävä
      45
      1626

    8. KL: Mari Hynynen avoimena - Jouni-rakkaan ja Joel-pojan välit ovat nämä!

      Mari Hynynen (ent. Perankoski) on naimisissa Jouni Hynysen kanssa. Marilla on edellisestä liitosta yksi lapsi, Joel Vola
      Suomalaiset julkkikset
      10
      1468

    9. Oletko uhriutuja?

      vaikka itse olet rääkännyt toista ja aiheuttanut ties mitä toiselle.
      Tunteet
      54
      1444

    10. Missikohu edustaa nykyajan monimuotoisuutta

      Puolesta vai vastaan, saako esittää pilkkaavasti jonkun toisen ihmisen syntyperäisiä ominaisuuksia? Kadulla vastaan tule
      Sinkut
      264
      1164
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt