tiedot kopioiva makro

Noviisi vielä

Osaisiko joku neuvoa miten tehdään exceliin makro joka kopioisi tietyistä soluista, esim A1 ja B1 sheet 1:stä tiedot toiselle sheetille tiettyihin soluihin. Eli tarkoitus olisi käyttää vakiopohjaa mittaustulosten syöttöön, jotka sitten napilla saisi tallennettua arkistoon toiselle sheetille päivämäärän mukaan.

Kiitos jos joku jaksaa antaa neuvoja!

3

450

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • moduuliin...

      Sub Siirrä()
      Range("A1:B1").Copy Destination:=Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)
      End Sub

      • vielä noviisi

        sain tän toimimaan uudella tyhjällä excel-tiedostolla mutta kun yritin soveltaa tätä vanhaan valmiiseen pohjaan, niin tulee herja "run time error 9", subscript out of range.

        Mikähän vikana? mitähän tuo Range("A65536") tossa tarkoittaa? jäi mulle epäselväksi.


      • vielä noviisi kirjoitti:

        sain tän toimimaan uudella tyhjällä excel-tiedostolla mutta kun yritin soveltaa tätä vanhaan valmiiseen pohjaan, niin tulee herja "run time error 9", subscript out of range.

        Mikähän vikana? mitähän tuo Range("A65536") tossa tarkoittaa? jäi mulle epäselväksi.

        käytät enkku versiota koska se toimi tyhjällä työkirjalla...(sain tän toimimaan uudella tyhjällä excel-tiedostolla) ja vanhassa työkirjassasi ei ole Sheet2 nimistä taulukkoa, joten muuta koodissa se oikeaksi.

        Range("A65536")on A sarakkeen viimeinen solu versioissa ennen 2007. Siitä haetaan ylöspäin viimeinen solu, jossa tietoa ja siitä siirrytään offsetillä 1 solu alaspäin, johon tiedot kopioidaan
        @Kunde


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

    Luetuimmat keskustelut

    1. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      272
      5089
    2. Laitetaas nyt kirjaimet tänne

      kuka kaipaa ja ketä ?
      Ikävä
      51
      4087
    3. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      93
      3599
    4. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      50
      2709
    5. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      46
      1863
    6. Pieni häivähdys sinusta

      Olet niin totinen
      Ikävä
      19
      1827
    7. Koska näit kaivattusi viimeksi

      Milloin tapasit rakkaasi? Ja etenikö suhde yhtään?
      Ikävä
      100
      1669
    8. Lähetä terveisesi kaipaamallesi henkilölle

      Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘
      Ikävä
      98
      1481
    9. Tekiskö nainen mieli tavata...

      Viikonloppuna ja...?
      Ikävä
      71
      1085
    10. PS uusimman gallupin rakettimainen nousija

      https://yle.fi/a/74-20170641 Aivan ylivoimaisesti suurin kannatuksen nousu PS:lle. Nousu on alkanut ja jatkuu 2 vuoden
      Maailman menoa
      146
      1063
    Aihe