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
224
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
- 253760
Suomalainen perheenisä vaatii Suvivirren esittämisestä hyvityksiä
Itse lapsena uskonnonopetuksesta vissiin traumoja saanut ihka suomalainen (!) perheenisä vaatii Espoon kaupungilta korva5402732Vesikin maksaa, miksei hengitysilma?
Jatkuvasti itketään ettei ole rahaa mihinkään, mutta tilastojen mukaan rahaa on enemmän kuin koskaan, joten miksei asial532290Satuolennoista tarinointi ei kuulu peruskoulun tehtäviin
Opetustunteja on muutenkin käytössä vain rajallinen määrä. Eli nämä satuhommat koulun ulkopuolelle vapaaehtoisiin harras2122261Joensuun kaupunki levittelee tonttitietoja Keskisuomalaiselle
Sähköposteja ja tonttitietoja levitellään mm. Pasi Koivumaalle131749Mies profiloin sinut
Etsit täysin hallittavaa mutta samalla poikkeuksellista ihmistä. Etsit jotain mitä et koskaan tule saamaan.2191540Kiantama kartelli
Onko alhaisempaa kuin toimia ensin kartellissa ja lopuksi koittaa pelastaa nahkasa vasikoimalla muut kun jää kiinni? Eip531512- 971399
Oletko nainen alkanut kammoamaan minua
Sinua ei näy eikä kuulu, ja ilmeisesti kiertelet tilanteita. Oletko huomannut, että olet vieläkin ajatuksissani luvattom621251Saako 60 v vielä töitä? Arto Nyberg puhuu suoraan elämästä ilman töitä
Arto Nyberg täyttää tänään 60 v. Onnea! Nyberg totuttiin näkemään suoran haastatteluohjelman kapteenina vuodesta toise951204