Rivin kopioiminen ja liittäminen seuraavalle tyhjälle riville.

Haluaisin tehdä makron joka siirtää kopioidut solut totoiseen taulukkoon (taul2) jossa on jo tietoja esim soluissa a1:d6. Haluan kopioida ja siirtää taul1:n rivin a1:d1 taul2:n riville 7 ja seuraavan kerran riville 8 jne.... Tein joskus kyseisen makron ja siinä oli komento wend mutta muuta en muista.

2

1148

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

      Sheet1:n rivit C-E voi kopioida sheet2:n riveille G-I seuraavasti:

      Sheets("sheet1").Range("C:E").Copy Sheets("sheet2").Range("G:I")

      Sheet2:n ensimmäisen tyhjän rivin löytää:

      tyhja = Sheets("sheet2").Range("A" & rows.count).End(xlUp).Row 1

      Jälkimmäistä voi sitten soveltaa ensimmäiseen.

    • Kiitos nopeasta vastauksesa
      Kirjoitin varmaan epäselvästi tarkoitukseni.
      Haluan siis kopioida (Taul1) rivillä 1 soluisssa A-D olevat tiedot (Taul2):een vaikka samalle paikalle kuin taulukossa 1.
      Seuraavan kerran haluan tehdä saman mutta makron pitäisi etsiä taulukossa 2 vapaana oleva rivi, koska edellisellä kerralla se kopioi jo riville 1. Joten seuraava vapaa olisi rivi kaksi.

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Martinan firma haastettiin käräjille

      Seiska: Martinan firma haastettiin käräjille, taustalla outo rahasotku.
      Kotimaiset julkkisjuorut
      300
      2225
    2. Putin ei suostu tulitaukoon nyt kun Kurskin taistelut ovat kesken

      ja venäjä on viimein päässyt niskan päälle, suuren ylivoiman turvin. Ukraina ilmeisesti suorittaakin taktista vetäytymi
      Maailman menoa
      220
      2122
    3. Miksi haluat satuttaa

      Sillä tiedolla ettet välittäisi minusta vaikka se ei ole totta. Silti tiedän että rakastat minua edelleen. Niinkuin sano
      Ikävä
      51
      1337
    4. Toivotko vielä et

      Päätyisimme yhteen?
      Ikävä
      87
      1251
    5. Oletko kaivattusi

      Mielestä hyvä sängyssä🤔
      Ikävä
      101
      1203
    6. Miksi ette halua kaivattuanne

      Yksi syy tai tekosyy.
      Ikävä
      82
      1201
    7. Millainen ihminen linda brandt-ahde on

      Hän on nyt julkisuudessa varsin eriskummallisen asian tiimoilta
      Lappeenranta
      43
      1195
    8. Martina makkarankuori päällä

      Voi hyvää päivää minkä asun oli valinnut Emma gaalaan, ei jäänyt kenellekään epäselväksi, minkälaiset rinnat on naikkose
      Kotimaiset julkkisjuorut
      162
      1147
    9. Ketä sinä

      Odotat oikeasti. Miksen sulle totta olla saa.
      Ikävä
      117
      1070
    10. Tykkäätkö kuinka

      Paljon kaivatustasi?
      Ikävä
      62
      973
    Aihe