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

441

    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. Mitä tapahtunut

      Poliiseja monta autoa+panssariauto Porista kpäähän päin tänään klo n.20 kuka hurjistunut ?
      Kankaanpää
      46
      5751
    2. Lakea konkurssiin. Asukkaat menettävät asuntonsa

      Kuntarahoitus on tänään jättänyt konkurssihakemuksen lakean kaikista kiinteistö osakeyhtiöistä. Kassa on tyhjä, kaikki
      Seinäjoki
      55
      3035
    3. Gallup: kaivattusi syntymävuosi

      Minä vuonna kaipaamasi henkilö on syntynyt?
      Ikävä
      183
      2655
    4. Nikkalassa vauhdilla nokka kohti taivasta

      Mitähän Darwin sanoisi näistä 4 suomalaisesta, jotka kävivät Haparandan puolella näyttämässä, kuinka Suomi auto kulkee t
      Tornio ja Haaparanta
      10
      2351
    5. Missäpäin,,,

      Lapuaa tapettu ihminen viime yönä ? Hurjaa touhua nykymeno täällä...
      Lapua
      27
      2083
    6. mahdollista, että olet ollut iltavuorossa

      Ja kotiin päästyäsi tulit palstalle etsimään merkkiä minusta, jos kaipaat yhtään minua niin kuin minä sinua Ei mennyt k
      Ikävä
      13
      2079
    7. törniöläiset kaaharit haaparannassa

      isäpapan autolla kaahatta 270 km/h metsään https://www.lapinkansa.fi/nsd-kaksi-suomalaista-kuoli-kolarissa-haaparannall/
      Tornio ja Haaparanta
      15
      1766
    8. Mitähän ne katseet merkitsee

      Kun et saa sanaa suustasi.
      Ikävä
      146
      1337
    9. Upea peppuisella naisella

      Upea peppuisella naisella on upea peppu.
      Ikävä
      14
      1289
    10. Sitä saa mitä tilaa Perussuomalaiset!

      https://yle.fi/a/74-20160212 SDP:n kannatus se vain nousee ja Keskusta on kolmantena. Kokoomus saanut pienen osan persu
      Maailman menoa
      261
      1163
    Aihe