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
296
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
Mitä aiot tehdä uudenvuoden aattona
Mitä olet suunnitellut tekeväsi uudenvuoden aattona ja aiotko ensi vuonna tehdä jotain muutoksia tai uudenvuoden lupauks1523416Marin sitä, Marin tätä, yhyy yhyy, persut jaksaa vollottaa
On nuo persut kyllä surkeaa porukkaa. Edelleen itkevät jonkun Marinin perään, vaikka itse ovat tuhonneet Suomen kansan t512401- 1151204
Muistattekos kuinka persujen Salainen Akentti kävi Putinin leirillä
Hakemassa jamesbondimaista vakoiluoppia paikan päällä Venäjällä? Siitä ei edes Suomea suojeleva viranomainen saanut puhu131203Ikävä sinua..
Kauan on aikaa kulunut ja asioita tapahtunut. Mutta sinä M-ies olet edelleen vain mielessäni. En tiedä loinko sinusta va9993Väestönsiirtoa itään?
Ano "the Russo" Turtiainen sai poliittisen turvapaikan Venäjältä. Pian lähtee varmaan Nazima Nuzima ja Kiljusen väki per48947- 46874
Vuoden luetuimmat: Mikä on Pelle Miljoonan taiteilijaeläkkeen suuruus?
Pelle Miljoonan eläkkeen suuruus kiinnosti lukijoita tänä vuonna. Artikkeli on Suomi24 Viihteen luetuimpia juttuja v. 2019870- 37726
Riikka Purra sanoo, että sietokykyni vittumaisiin ihmisiin alkaa olla lopussa.
https://www.iltalehti.fi/politiikka/a/be8f784d-fa24-44d6-b59a-b9b83b629b28 Riikka Purra sanoo medialle suorat sanat vitt198674