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
Herkkyydestä
Toisessa ketjussa toivottiin keskustelua herkkyydestä. Aloitan omalla näkemykselläni. Mielestäni herkät ihmiset ovat l236738- 67655
Arvaako kukaan?
"Humalojalla metalliromun keräyspaikalla on kulkenut pitkin kevättä ja kesää joku henkilö, joka on vienyt sieltä kymmeni36610Tuntuu 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, et34538En pyytele enää koskaan anteeksi mitään sinulta
Olet ollut kohtuuttoman kylmä ja tyly tilanteeseen nähden.45427- 30424
- 38416
Olen kiinnostunut sinusta, en seksistä
Vihjailuja toiseen suuntaan on tullut niin paljon, että asia on korjattava. En näe sinua esineenä, vaan hienona persoona27396- 37387
- 41371