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

403

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      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.

      • kunde
        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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Mikä on kaivattusi etunimi?

      Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.
      Ikävä
      130
      2485

    2. En kestä katsoa

      Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois
      Ikävä
      109
      1484

    3. Anna minulle anteeksi

      Anna minulle anteeksi. Minä pyydän.
      Ikävä
      137
      1317

    4. Peräti 95 % persujen kannattajista rasisteja

      Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää
      Maailman menoa
      349
      1246

    5. Kun viimeksi kohtasitte/näitte

      Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...
      Ikävä
      109
      1167

    6. Olet kyllä vaarallisen himokas

      Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.
      Ikävä
      99
      1055

    7. On minulla suunitelma

      Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s
      Ikävä
      46
      769

    8. Anna vielä vähän vihreää valoa

      Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet
      Ikävä
      13
      751

    9. Ei koskaan saatu tuntea

      Mitä olisi ollut painautua toisiimme vasten. Hengittää syvään, hyväillä ja rakastella vailla kiirettä. Tai repiä vaattee
      Ikävä
      33
      730

    10. Palstan ylivoimaisesti suosituin keskustelunaihe

      Palstan suosituin keskustelunaihe näyttää olevan homoseksuaalisuus. Otsikoiden perusteella voisi kuvitella olevansa Seks
      Luterilaisuus
      252
      729
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt