Solun linkkien kopiointi toiselle sheetille

Dillon87

Hei taas!

Onko mahdollista että alla olevaan makroon voisi tehdä muutoksen sillä tavalla että kaikki määritetyt solualueet kopioituisivat linkkeinä eri sheeteille? Eli näin esim. "=Taul2!E6". Tämä siksi koska tiedot eivät pysy vakioina koko ajan ja tuo linkitys olisi sen vuoksi tärkeää. Olen itse melko avuton näissä ohjelmointijutuissa.. Osaisiko Kunde auttaa ongelmassa?


Sub Siirrä()
Dim vika As Long
Dim KopioAlue As Range
Dim KopioAlue2 As Range

vika = Range("A65536").End(xlUp).Row 3
Range("A951:G1000").Copy
Range("A" & vika).PasteSpecial xlPasteValues

'ei yhtenäinen alue ei voi kopioida kuin käyttämällä Union metodia...
Set KopioAlue = Union(Range("A957:A966"), Range("A983:A992"))
KopioAlue.Copy
Worksheets("Sheet2").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
'ei yhtenäinen alue ei voi kopioida kuin käyttämällä Union metodia...
Set KopioAlue2 = Union(Range("G957:G966"), Range("G983:G992 "))
KopioAlue2.Copy
Worksheets("Sheet2").Range("C65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

Range("B977").Copy
Worksheets("Sheet3").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

Range("B988").Copy
Worksheets("Sheet3").Range("B65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

Application.CutCopyMode = False
Range("A" & vika).Select
End Sub

1

143

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Porvarimediat paniikissa demareiden huiman kannatuksen vuoksi

      Piti sitten keksiä "nimettömiin lähteisiin" perustuen taas joku satu. Ovat kyllä noloja, ja unohtivat sen, että vaalit
      Maailman menoa
      83
      5983

    2. KATASTROFI - Tytti Tuppurainen itse yksi pahimmista kiusaajista!!!

      STT:n lähteiden mukaan SDP:n eduskuntaryhmän puheenjohtaja Tytti Tuppurainen on käyttäytynyt toistuvasti epäasiallisesti
      Maailman menoa
      309
      4987

    3. Huono päivä

      Tänään on ollut tosi raskas päivä töissä. Tekis mieli itkeä ja huutaa. En jaksa just nyt mitään. Minä niin haluaisin ja
      Ikävä
      20
      2638

    4. Mikä siinä on ettei persuille leikkaukset käy?

      On esitetty leikkauksia mm. haitallisiin maataloustukiin, kuin myös muihin yritystukiin. Säästöjä saataisiin lisäksi lei
      Maailman menoa
      44
      2569

    5. Lääppijä Lindtman jäi kiinni itse teosta

      Lindtman kyselemättä ja epäasiallisesti koskettelee viestintäpäällikköä. https://www.is.fi/politiikka/art-2000011780852
      Maailman menoa
      72
      1766

    6. Juuri nyt! Tytti Tuppurainen on käyttäytynyt toistuvasti epäasiallisesti

      Ai että mä nautin, Tytti erot vireille! "Käytös on kohdistunut avustajia ja toisia kansanedustajia kohtaan, uutisoi STT
      Maailman menoa
      101
      1645

    7. Puolen vuoden koeaika

      Voisi toimia meillä. Ensin pitäis selvittää "vaatimukset" puolin ja toisin, ennen kuin mitään aloittaa. Ja matalalla pro
      Ikävä
      17
      1501

    8. Onko kaivattusi

      liian vetovoimainen seksuaalisesti?
      Ikävä
      105
      1407

    9. Olen ihmetellyt yhtä asiaa

      Eli miksi naiset ovat niin pelokkaan tai vaitonaisen oloisia minun seurassani. Se sai minut ajattelemaan, että olen epäm
      Ikävä
      133
      1373

    10. seurakunnan talouspäällikön valinta meni perseelleen

      Nyt on ihan pakko kyseenalaistaa tuo Kemijärven seurakunnan päätös talouspäälliköstä. Valitulla ei ole talouspuolen osaa
      Kemijärvi
      118
      1356
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt