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

1070

    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. Nainen, tervetuloa

      Tule luokseni eka vaikka viikoks tai pariksi. Saisin helliä, kannustaa ja tukea sua ja kokata lempi herkkujasi. Pääsisit
      Ikävä
      27
      3873
    2. Kela valvoo lasten tilejä.

      Tämä isoveli Kela kyttää jopa lasten yli 200,- euron rahat jotka on melko varmasti lahjaksi saatu. Se vaikuttaa perheen
      Yhteiskunta
      298
      3489
    3. TTK-tähti Saana Akiola paljasti tv-ohjelmassa tapahtuneen ahdistelun

      Olisko pitänyt suunnitella ulostulo paremmin? Nyt lehdet soittelevat kaikki 8 läpi ja kuusi sanoo ettei koskenut häntä.
      Maailman menoa
      29
      2361
    4. Olisit ollut varovaisempi

      Nyt jos minut hylkäät ja et meidän asiasta minulle mitään ilmoita niin ettet edes anteeksi pyydä, niin tiedä että minä e
      Ikävä
      36
      2184
    5. Mitä haluaisit sanoa hänelle

      Nyt tällä hetkellä?
      Ikävä
      138
      2041
    6. Vastenmielisyys

      Kuvaa sinua parhaiten
      Ikävä
      53
      1859
    7. Elisa laskuttaa jo sähköpostilaskusta erikseen euron

      Paperilaskuista on otettu lisämaksua jo ajat sitten, mutta nyt Elisa ottaa euron siitä että lähettävät sähköisen laskun
      Maailman menoa
      120
      1771
    8. Oho! Susanna Laine kohtasi epäonnea lomareissulla Italiassa - Avaa tilannetta: "Vähän sahaavaa..."

      Ou nou! Tsemppiä kuitenkin loppulomaan Italiassa, Susanna Laine ja mahdollinen seuralainen! Lue lisää ja katso kuvat:
      Suomalaiset julkkikset
      8
      1495
    9. Ensitreffit alttarilla Jyrki paljastaa hääyön intiimiasioista kameroiden sammuttua: "Fyysinen..."

      Ooo-la-laa… Ensitreffit alttarilla -sarjassa alkaa hääparien välillä ns. tunteet kuumenemaan. Lue lisää: https://www.s
      Ensitreffit alttarilla
      2
      1373
    10. Sinulle, tahtoisin kertoa mitä

      ajattelen siitä. Ehkä olen väärässä, mutta minusta kuulostaa jonkin alulta, mutta ei kerro minkä. Se selvinnee myöhemmi
      Ikävä
      19
      1260
    Aihe