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
185
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
- 1824200
- 331538
Minulta loppuu aika
Halusin olla täydellinen. Nyt näyttää siltä että viimeinen kiristys jää puolitiehen, sillä h-hetki on jo ihan kohta käsi401470Syvälliset keskustelut
Olisivat tärkeintä ensisijaisesti hänen kanssaan Tulisi sellainen hetki, mutta kaikki meni pieleen211433Olisipa sitä henkisesti eheämpi ja rohkeampi
mikään maallinen mammona ei itseäni kiinnosta, eikä sen menetys kiinnostus. Mutta kun kohtaa jonkun sykäyttävän ihmisen,171332- 1071259
Kyllähän tämä vähän kirpaisee
Mutta oman sisäisen rauhan vuoksi jätän sinut nyt historiaan. Todennäköisesti olet jo sinäkin mennyt eteenpäin. Olipah381167Moi, nainen
Tunnustan, olen heikkona sun hymyyn, ja sekään ei auta yhtään, että sulla on täydellinen nenä. Joten ensi kerralla, kun301160- 121067
Sulla on uskomaton luonne
Saat minut hetkessä iloiseksi, tai sanotaan nyt niin, että ajatus sinusta saa sydämeni hyppimään riemusta. En vain saa s441018