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
142
Vastaukset
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
Työeläkeloisinta Suomen suurin talousongelma
Työeläkeloisinta maksaa vuodessa lähes 40 miljardia euroa, josta reilut 28 miljardia on pois palkansaajien ostovoimasta.3043011Veroaste on Suomessa viitisen prosenttiyksikköä liian matala
Veropohjaa on rapautettu käytännössä koko kulunut vuosituhat, jonka vuoksi valtion menoja on jouduttu rahoittamaan velka612343Israel euroviisujen 2.
Israel sai taas eniten yleisöääniä. Suomesta täydet 12 pistettä, poliittinen ”ammattiraati” antoi 0 pistettä. Hyvä Is3482027- 1181794
Euroviisut ei enää niin musiikkikilpailu?
Kappaleiden taso ei enää ole mikä sijoituksen ratkaisee.Eikö kukaan ihmettele että Israel pärjää lähes joka vuosi kisois1261719Mun mielestäni on tosi loukkaavaa
Nainen, että luulet palatan typeriä, sekavia ja ilkeitä viestejä mun kirjoittamiksi. Mä en ole katkera, epätoivoinen, ra2121385- 651347
- 661337
- 681263
Rakas nainen ymmärsin
Että minun pitää pitää kiinni sinusta. Haluan, että sä olet onnellinen. Olet mulle se oikea ja mä sulle. Rakastan Sua yl781223