Siirtokoodia tarvitaanko?

Krändinen

Heipparallaa, minulle tulee tuloksia välilehdelle 1, riveille 1-10. Haluaisin siirtää ne nappulan painamisella välilehdelle 2 seuraavaan tyhjään sarakkeeseen (ja näistä tiedoista jatkossa pivot-uvaaja). Osaako joku auttaa alkuun moisessa siirto-operaatiossa?
Kiitos nöyrimmiten jos jaksaa auttaa jokupi.

7

305

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      liitä koodi nappiin

      Private Sub CommandButton1_Click()
      Range("A1:E10").Copy Worksheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0)
      End Sub

      • Krändinen taas

        Ompa se helppoa kun osaa. Hienoa, nyt saan hommaa eteenpäin. Itse olin ajatellut aivan paljon monimutkaisemmin. Kiitos.
        Vielä tarvisin hitusen helppiä jos joku jaksaa vielä opastaa kun on tämä koodimaailma ihan uutta.
        Jos siirrettäviä soluja on siellä täällä niin miten tuonne rangen sisälle ne laitetaan. Hetken yritin, mutta ei oikein napsahtanut kohilleen.
        Miten siirrän solun jos se on viittaus muualta? Nyt herjaa moisessa tapauksessa REF
        Tuo offset heittää nyt uusille riveille, yritin vaihtaa ykkösen ja nollan paikkaa niin että menisi uusille sarakkeille rivien sijaan, mutta eipä tainnut näin toimia.
        Arvojen tyhjennys tuon siirron jälkeen on vielä toiveena, mutta nämä saan kyllä ehkäpä helppejä plarailemalla kuntoon nyt kun on suunta selvä. Toki jos joku haluaa heti kertoa vastaukset niin kiitos paljon.

      • kunde
        Krändinen taas kirjoitti:

        Ompa se helppoa kun osaa. Hienoa, nyt saan hommaa eteenpäin. Itse olin ajatellut aivan paljon monimutkaisemmin. Kiitos.
        Vielä tarvisin hitusen helppiä jos joku jaksaa vielä opastaa kun on tämä koodimaailma ihan uutta.
        Jos siirrettäviä soluja on siellä täällä niin miten tuonne rangen sisälle ne laitetaan. Hetken yritin, mutta ei oikein napsahtanut kohilleen.
        Miten siirrän solun jos se on viittaus muualta? Nyt herjaa moisessa tapauksessa REF
        Tuo offset heittää nyt uusille riveille, yritin vaihtaa ykkösen ja nollan paikkaa niin että menisi uusille sarakkeille rivien sijaan, mutta eipä tainnut näin toimia.
        Arvojen tyhjennys tuon siirron jälkeen on vielä toiveena, mutta nämä saan kyllä ehkäpä helppejä plarailemalla kuntoon nyt kun on suunta selvä. Toki jos joku haluaa heti kertoa vastaukset niin kiitos paljon.

        siirrettävät tiedot esim C-sarakkeessa C1:C10 ja haluat ne taulukko2:een aina seuraavaan uuteen sarakkeeseen alkaen esim C1 ja sitten nollataan taulukko1:stä alue C1:C10 ?

      • Krändinen
        kunde kirjoitti:

        siirrettävät tiedot esim C-sarakkeessa C1:C10 ja haluat ne taulukko2:een aina seuraavaan uuteen sarakkeeseen alkaen esim C1 ja sitten nollataan taulukko1:stä alue C1:C10 ?

        Juu, justiinsa noin - tosin nuo tiedot on hieman hajallaan esim. A1; A3 ja A10.
        Noiden siirto seuraavaan välilehteen 1. tyhjään sarakkeeseen ja lopuksi alkuperäisten tyhjennys.
        Aurinkoa eloon!

      • kunde
        Krändinen kirjoitti:

        Juu, justiinsa noin - tosin nuo tiedot on hieman hajallaan esim. A1; A3 ja A10.
        Noiden siirto seuraavaan välilehteen 1. tyhjään sarakkeeseen ja lopuksi alkuperäisten tyhjennys.
        Aurinkoa eloon!

        pari tapaa...

        hard codella...

        Sub Siirrä()
        Range("A1,A3,A5").Copy Worksheets("Sheet2").Range("IV1").End(xlToLeft)(1, 2)
        Range("A1,A3,A5") = ""
        End Sub

        valitset solut hiirellä ...

        Sub Siirrä2()
        Selection.Copy Worksheets("Sheet2").Range("IV1").End(xlToLeft)(1, 2)
        Selection = ""
        Range("A1").Select
        End Sub

      • kunde
        kunde kirjoitti:

        pari tapaa...

        hard codella...

        Sub Siirrä()
        Range("A1,A3,A5").Copy Worksheets("Sheet2").Range("IV1").End(xlToLeft)(1, 2)
        Range("A1,A3,A5") = ""
        End Sub

        valitset solut hiirellä ...

        Sub Siirrä2()
        Selection.Copy Worksheets("Sheet2").Range("IV1").End(xlToLeft)(1, 2)
        Selection = ""
        Range("A1").Select
        End Sub

        sama offseteilla

        Sub Siirrä()
        Range("A1,A3,A5").Copy Worksheets("Sheet2").Range("IV1").End(xlToLeft).Offset(0, 1)
        Range("A1,A3,A5") = ""
        End Sub

        Sub Siirrä2()
        Selection.Copy Worksheets("Sheet2").Range("IV1").End(xlToLeft).Offset(0, 1)
        Selection = ""
        Range("A1").Select
        End Sub

      • Krändinen
        kunde kirjoitti:

        sama offseteilla

        Sub Siirrä()
        Range("A1,A3,A5").Copy Worksheets("Sheet2").Range("IV1").End(xlToLeft).Offset(0, 1)
        Range("A1,A3,A5") = ""
        End Sub

        Sub Siirrä2()
        Selection.Copy Worksheets("Sheet2").Range("IV1").End(xlToLeft).Offset(0, 1)
        Selection = ""
        Range("A1").Select
        End Sub

        tuohon pureudun ensi viikolla ja näillä ohjeilla pitäisi jo varmasti päästä perille.
        SUURI kiitos!

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Silmienvääntelijä-persut pääsivät Japanissa sarjakuvaan

      Torille! https://www.hs.fi/kulttuuri/art-2000011943173.html
      Maailman menoa
      176
      4977

    2. Nato kaatamassa Petterin haaveileman Tunnin junan?

      Nato edellyttää pohjoisessa Jäämereltä Rovaniemelle saakka kapearaitesta suoraa rautatieväylää, joka maksaa paperirahaa,
      Maailman menoa
      18
      4366

    3. Donald Trump pääsi samalle listalle Sanna Marinin kanssa

      Eli vasemmistolaisen Time-median top 100 jännäihmisten listalle. https://time.com/collections/time100-next-2021/5937699
      Maailman menoa
      9
      3097

    4. Älkää vaan sairastuko syöpään Suomessa

      Tilaston mukaan Suomi, Slovakia ja Latvia lääkitsee aivan pohjamudissa syöpää. Sairastunutta hoidetaan edelleen vanhana
      Maailman menoa
      250
      2924

    5. Kyllä, maata ei halua puolustaa nimenomaan punavihreän puolen edustajat

      "Esimerkiksi maanpuolustushenki on keskimääräistä alempana naisten, arvoliberaalien, heikossa taloustilanteessa olevien
      Maailman menoa
      143
      2872

    6. Sä veit mun sydämen ihan totaalisesti

      Aivan totaalisesti..
      Ikävä
      52
      2491

    7. Oot se sinä

      Ihan varmasti oot, tuo olemus ei valehtele 😘💓🪅 🏡 ihana 😍🙏
      Ikävä
      27
      1919

    8. Vieläkö olet

      Rakastunut minuun? Minä sinuun
      Ikävä
      34
      1733

    9. Ei siinä kauan

      Menisi jos olisimme kahden
      Ikävä
      22
      1727

    10. Toivotko vielä kohtaamista

      Kaivattusi kanssa?
      Ikävä
      64
      1685
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt