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
Solun linkkien kopiointi toiselle sheetille
Dillon87
1
109
Vastaukset
http://www.kundepuu.com/viewtopic.php?f=155&t=504
Keep EXCELing
@Kunde
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.1703526En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois1011859- 1431767
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1291672Peräti 95 % persujen kannattajista rasisteja
Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää3961604Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1021457Anna 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 tunnet171173- 631096
- 621093
On minulla suunitelma
Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s541001