Vielä tarvittaisiin pieni viimeistely makrooni ja se olisi sitten finito!
Nyt homma toimii, niin että painikkeen klikkaus copy/pastettaa A1:G50 kokoisen taulukon alaspäin ja samalla tiettyjen solujen linkki kopioituu toisille välilehdille. Ongelmana on että aina kun taulukon kopioi se säilyttää ensimmäisen kopioidun taulukon linkit.. taulukon kopioituessa aina alaspäin solut muuttuvat. Haluaisin että makro linkittää aina uudet solut välilehdille eikä alkuperäisiä. Eli kun taulukon kopioi uuteen sijaintiin jossa eri solut ->nämä solut linkittyisivät sheeteille. Osaisitko Kunde neuvoa vielä tässä asiassa? Koodi on tällainen nyt:
Option Explicit
Sub Siirrä()
Dim i As Long
Dim vika As Long
Dim vika2 As Long
Dim KopioAlue As Range
Dim KopioAlue2 As Range
Dim KopioAlue3 As Range
Dim KopioAlue4 As Range
vika = Range("A65536").End(xlUp).Row 3
Range("A1:G50").Copy Range("A" & vika)
' Kopioi toimittajien nimet
Set KopioAlue = Worksheets("Tulokset").Range("A7:A16")
KopioAlue.Copy
vika2 = Worksheets("Yhteenveto").Range("B65536").End(xlUp).Row 1
For i = 0 To KopioAlue.Cells.Count - 1
Worksheets("Yhteenveto").Range("B" & vika2).Offset(i, 0).Formula = "=Tulokset!" & KopioAlue.Cells(i 1, 1).Address
Next
' Kopioi toimittajien nimet
Set KopioAlue2 = Worksheets("Tulokset").Range("A33:A42")
KopioAlue2.Copy
vika2 = Worksheets("Yhteenveto").Range("B65536").End(xlUp).Row 1
For i = 0 To KopioAlue2.Cells.Count - 1
Worksheets("Yhteenveto").Range("B" & vika2).Offset(i, 0).Formula = "=Tulokset!" & KopioAlue2.Cells(i 1, 1).Address
Next
' Kopioi hukka-%
Set KopioAlue3 = Worksheets("Tulokset").Range("G7:G16")
KopioAlue3.Copy
vika2 = Worksheets("Yhteenveto").Range("C65536").End(xlUp).Row 1
For i = 0 To KopioAlue3.Cells.Count - 1
Worksheets("Yhteenveto").Range("C" & vika2).Offset(i, 0).Formula = "=Tulokset!" & KopioAlue3.Cells(i 1, 1).Address
Next
' Kopioi hukka-%
Set KopioAlue3 = Worksheets("Tulokset").Range("G33:G42")
KopioAlue3.Copy
vika2 = Worksheets("Yhteenveto").Range("C65536").End(xlUp).Row 1
For i = 0 To KopioAlue3.Cells.Count - 1
Worksheets("Yhteenveto").Range("C" & vika2).Offset(i, 0).Formula = "=Tulokset!" & KopioAlue3.Cells(i 1, 1).Address
Next
' Kopioi listojen hukka-% ja tuotedimensio
Worksheets("Tulokset").Range("B1").Copy
Worksheets("Eräkohtainen hukka").Range("A65536").End(xlUp).Offset(1, 0).Formula = "=Tulokset!" & "B1"
Worksheets("Tulokset").Range("B27").Copy
Worksheets("Eräkohtainen hukka").Range("A65536").End(xlUp).Offset(1, 0).Formula = "=Tulokset!" & "B27"
Worksheets("Tulokset").Range("B22").Copy
Worksheets("Eräkohtainen hukka").Range("B65536").End(xlUp).Offset(1, 0).Formula = "=Tulokset!" & "B22"
Worksheets("Tulokset").Range("B48").Copy
Worksheets("Eräkohtainen hukka").Range("B65536").End(xlUp).Offset(1, 0).Formula = "=Tulokset!" & "B48"
Application.CutCopyMode = False
Worksheets("Tulokset").Range("A" & vika).Select
End Sub
Kundelle kysymys liittyen edelliseen viestiini
Dillon87
2
151
Vastaukset 2
http://www.kundepuu.com/viewtopic.php?p=663#p663
;-)
Keep EXCELing
@Kunde- Dillon87
Nyt toimii erinomaisesti!! Mahtavaa! :) Kiitos paljon avusta!! Teet hyvää työtä kun autat muita täällä! Arvostettavaa toimintaa. On se excel hieno ohjelma!
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Naiset ymmärtävät ettei talous lähde nousuun
Miten paljon järjellisempi olento nainen onkaan kuin tilastollisestikin paremmin tienaava mies. Kun kaikkialla puskuroid135865En jaksa
Enää pelleillä ja paljastan J naisen nimen. Se on Jonna ja hän ei koskaan, edes luultavasti ollut täällä. Silti piene44637Minkälainen nainen
Minkälainen kaipaamasi nainen on luonteeltaan? Kaikki hassun hauskat antava ja helppo on sallittuja, jos poikien on kovi21578Kissa eli kivuissa useita viikkoja
Ei vienyt lääkäriin vaikka kissa parka maukui ja moni seuraajakin (minäkin) näin että kissa on sairas.110543- 36532
Jos meillä olisi yhteinen koti
Niin haittaisiko sinua pitää se vähä tavaraisena? Ajattelin tänään että jos joskus asuttaisiin yhdessä ja haluaisit pal50525- 56502
Tuntuu pahalta meidän molempien puolesta
Anteeksi, että olen tällainen pelkuri. En vaan usko rakkauteen enää miehen ja naisen välillä omalla kohdalla. Tiedän, et34468Martinan mauton tyyli
Voi hyvää päivää 🤣 nyt ollaan oltu Muhiksen kanssa Kultareservin avajaisissa suorat housut jalassa ja 500€ korsetti pää119452Arvaako kukaan?
"Humalojalla metalliromun keräyspaikalla on kulkenut pitkin kevättä ja kesää joku henkilö, joka on vienyt sieltä kymmeni22427