Solun linkkien kopiointi toiselle sheetille

Dillon87 kirjoitti:

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

kirjoitti:

Anonyymi

Kirjoita kommentti

5000

Lähetä