Tiettyjen solujen sisällön kopioiminen toiselle sheetille

Dillon87

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ä??

3

180

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. Mikä on tulevan kevään teema?

      Sun kohdallasi
      Ikävä
      135
      5708
    2. Maisa Torppa

      Voitto oikeudesta. Tässä näkee miten huteralla pohjalla nuo syytökset ovat. Hyvä Maisa 💖. IL
      Kotimaiset julkkisjuorut
      247
      4279
    3. Kun katsoin häntä

      Niin ajattelin että hän on niin rakas ❤️
      Ikävä
      12
      1831
    4. Nainen, älä tee aloitetta, jos

      Jos olet: - ylipainoinen - yksinhuoltaja - tatuoitu - tukassa on varoitusväri - sinulla on muita lävistyksiä kuin korvak
      Ikävä
      165
      1143
    5. Mitä sanoisit kolmella sanalla

      kaivatullesi ja tunteidesi kohteelle? 🙎💝💝
      Ikävä
      105
      1083
    6. Persut palkitsisi verohelpotuksin röökin polton ja ryyppäämisen lopettamisesta

      >> Perussuomalaiset ehdottavatkin, että haittaverojen sijaan terveellisestä elämää viettäville ihmisille voitaisii
      Maailman menoa
      175
      1040
    7. Veronika Honkasalo(vas.)venäjän asialla

      Honkasalon mukaan mukaan venäläisiä turvapaikanhakijoita kohdellaan lainvastaisesti. "Vasemmistoliiton varapuheenjohtaj
      Maailman menoa
      68
      985
    8. Haluisin niin

      Selvittää sun kanssa asiat. Kumpa uskaltaisin. Haluatko sinä?
      Ikävä
      90
      983
    9. Miksi Pekkaa ei hyväksytä maailmalla julkisiin virkoihin?

      On mennyt jo monta hommaa ohitse.
      80 plus
      44
      851
    10. Trump laittomien siirtolaisten kauhu.

      Trump toimii ihan oikein, kun karkoittaa maassa laittomasti oleskelevat rikolliset siirtolaiset takaisin kotimaihinsa ei
      Maailman menoa
      119
      842
    Aihe