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.
Siirtokoodia tarvitaanko?
Krändinen
7
301
Vastaukset
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 Subkunde 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 Subsama 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 Subtuohon 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
Riikka Purran kaudella nousi bensan hinta yli 2 euron
Muistatteko kuinka edellisen vasemmistohallituksen aikana, ns. Marinin aikakaudella, bensiiniä sai 1,3 euron litrahinnal1254793Veli Sofia teki urosmehiläisen työn
Paljastaessaan kuinka TPS:ssä ei joukkuehenki toimi sooloilijoiden vuoksi, jonka takia koko seura ei pärjää kilpailussa113469Mitäs nyt sijoittajat?
Pörssit laskevat maailmalla Iranin sodan takia ja muutenkin ovat olleet Trumpin vallan alla epävarmat. Ainoa, mikä on no1283241Hjallis Harkimon, 72, Jasmine-rakas, 37, paljastaa suhteen alusta: "Vähän..."
Liikemies, kansanedustaja Hjallis Harkimo ja tuottaja-juontaja Jasmine Pajari ovat pariskunta. He asuvat yhdessä Sipooss282696Unisex-vessat
Ahdistaa. Miksi kaikki pitää tasapäistää tasa-arvon nimissä? Tasa-arvo on sitä, että kunnioitetaan sukupuolien erilaisu822424Jutta Larm, 52, haluaa kumota tämän piintyneen ikämyytin
Oletko samaa mieltä? Jutta Larm on 52-vuotias ja tehnyt pitkän uran yrittäjänä. Hän haluaa kumota tämän piintyneen ikämy181803Henri Alen tilittää yllättäen Vappu Pimiän uudesta MasterChef -pestistä: "Vaikka hän ei..."
Vappu Pimiä on uusi MasterChef Suomi -tuomari. Hän liittyi uudella MasterChef Suomi -kaudella arvovaltaiseen tuomaristoo91424Vastuun ottaminen omasta hyvinvoinnista
Olen huomannut tuttavapiirissäni ihmisiä, joilla on mt-diagnooseja. Sen sijaan, että millekään asialle yritettäisiin teh1201293Minkä kouluarvosanan 4-10 annat Beck-leffoille?
Vähiin käy ennen kuin loppuu... Beck-elokuvia on tullut tv:stä jopa 2-3 viikossa. Nyt leffojen esitystiheys on muuttunut101249Jäit kiinni siitä
että katselet minua. Käänsin pääni, minäkin etsin sinua, ja meidän katseemme kohtasivat. Eikä se haittaa - molemmat ky41218