Alla oleva koodi copy/pastettaa erään taulukon 3 rivin välein alaspäin. Samalla kun tämän koodin suorittaa (makropainikkeella), haluaisin tiettyjen solujen tiedon siirtyvän linkkinä samanaikaisesti kahdelle eri sheetille, jotka ovat yhteenveto-sivuja.
Solut A957:A966, A983:A992 haluaisin sarakkeeseen B sheet 2, tietystä solusta alaspäin.
Solut G957:G966, G983:G992 sarake C sheet 2. tietystä solusta alaspäin.
Solu B977 sheet 3 sarake A. Solu B998 sheet 3 sarake B. tietystä solusta alaspäin.
Alkuperäinen koodi on tämä:
Sub Siirrä()
Dim vika As Long
vika = Range("A65536").End(xlUp).Row 3
Range("A951:G1000").Copy Range("A" & vika)
End Sub
Osaisiko kukaan auttaa tässä ongelmassa? Olisiko Kunde paikanpäällä??
Tiettyjen solujen sisällön kopioiminen toiselle sheetille
Dillon87
3
161
Vastaukset
- Dillon87
Lisäyksenä edelliseen viestiin: tarkoitus on siis että aina kun taulukon kopioi/pastettaa, jokaisen taulukon solu-alueet kopioituvat kahdelle eri sheetille, vaikka solualueet tietenkin muuttuvat. Ja mieluiten että pelkästään arvot kopioituvat, ei kaavat, muotoilu ym.
- Dillon87
Hienoa! Hyvin toimii! Olisiko vielä mahdollista että neuvoisit kuinka nuo solut jotka kopioituvat painikkeen klikkauksesta niin kopioitusivat linkkeinä eri sheeteille? Ja mitenkä voin määritellä mihin kohtaa solut kopioituvat sheeteille? Haluaisin että ne kopioituvat tietystä solusta alaspäin??
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.1563273En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois971735- 1431677
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1251551Peräti 95 % persujen kannattajista rasisteja
Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää3921546Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.991365Anna 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 tunnet171103- 621019
- 215926
On minulla suunitelma
Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s48922