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
294
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
Ruotsalaisuuden Päivän virallinen liputuspäivä poistettava VÄLITTÖMÄSTI!
Suomen valtion ja suomalaisuuden kannalta ei ole minkäänlaisia perusteita liputtaa virallisesti ruotsalaisuuden päivää,1055731Mikaela Nylander: Jos pakkoruotsi poistetaan, niin ruotsin kielen asema romahtaa
(Nylander on vanha RKP:nen) Mutta niin heikossa vedossa muumiruotsi siis on Suomessa, että vain tekohengityksellä se pys652572Nainen aion pilata elämäsi täysin, opetus sulle, että pelasit väärän ihmisen sydämellä.
Empatiani sua kohtaan katosi siinä kohtaan, kun teit tietoisen valinnan leikkiä mun sydämellä. Luulet olevas joku älykäs2411585- 941380
- 1241097
6 vkoa kulunut ilman sua
…ihme että olen vielä hengissä. 😔 Kyynelillä pessyt lattioita. Rakastan ja odotan sua ikuisesti❤️Projekti jäi kesken jo8901- 65882
- 66857
- 75798
Salailu jatkuu, poliisi tutkii
Nykyään Pienimäki toimii Ylitornion kaupunginjohtajana. HS tavoitti hänet puhelimitse. Pienimäki korosti, ettei ole enää17741