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

267

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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.


      • 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!


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

    Luetuimmat keskustelut

    1. Anna minulle anteeksi

      Anna minulle anteeksi. Minä pyydän.
      Ikävä
      161
      2072
    2. Kun viimeksi kohtasitte/näitte

      Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...
      Ikävä
      131
      1804
    3. Olet kyllä vaarallisen himokas

      Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.
      Ikävä
      102
      1577
    4. Mikä on hän on ammatiltaan?

      Vai tiedätkö mitä kaivattusi tekee työkseen?
      Ikävä
      72
      1280
    5. 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ä
      17
      1253
    6. Mitä ajattelit silloin kun

      Löysit hänet?
      Ikävä
      71
      1234
    7. Syksyinen aamuketju suden

      Hyvää huomenta ja kaunista syyspäivää. 🌞🍁🍂☕
      Ikävä
      225
      1010
    8. Oletko tutustunut muihin

      Samalla tavalla kuin häneen?
      Ikävä
      72
      843
    9. Uskotko että kohdataan vielä?

      Kysymys otsikossa, aloitukseen ei muuta lisättävää.
      Ikävä
      45
      760
    10. Miksi homous puhuttaa konservatiiveja vuodesta toiseen?

      Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv
      Luterilaisuus
      194
      743
    Aihe