Kundelle kysymys liittyen edelliseen viestiini

Dillon87

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

2

124

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
      • 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

    1. Rakas

      Eihän se tietysti minulle kuulu, mutta missä sinä olet? 😠
      Ikävä
      66
      4112
    2. Pidit itseäsi liian

      Vanhana minulle? Niinkö?
      Ikävä
      66
      3822
    3. Kiva kun SDP alkaa hallitsemaan Suomea

      Vanhat hyvät ajat taas palaavat ja kansa vaurastuu. Muistatteko vielä Sorsan aikakauden? Silloin Suomessa tehtiin jopa
      Maailman menoa
      112
      3678
    4. SDP:n lyhyt selviytymisopas

      1. Komitea on vastaus, oli kysymys mikä tahansa Jos maailma on muuttumassa tai jossain palaa, demari ei hätiköi. Ensin p
      Maailman menoa
      66
      3028
    5. Joko olet luovuttanut

      Mun suhteen?
      Ikävä
      75
      2880
    6. Haluaisitko oikeasti

      Vakavampaa välillemme vai tämäkö riittää
      Ikävä
      62
      2329
    7. Keskisen kyläkaupassa Temun vaatteita myynnissä?

      Siis mitä? Miksi siis ei itse tilaisi Temusta samoja.
      Maailman menoa
      61
      1650
    8. Mitä se olisi

      Jos sinä mies saisit sanoa kaivatullesi mitä vain juuri nyt. Ilman mitään seuraamuksia yms. Niin mitä sanoisit?
      Ikävä
      41
      1205
    9. Nanna Karalahti :Paljastus bisneksistä Jere Karalahden kanssa!

      Ottanut yhteyttä seiskalehden toimittajaan ja kertonut totuuden yhteisestä Herotreeni-nimisestä verkkovalmenuksesta.
      Kotimaiset julkkisjuorut
      127
      1188
    10. Toivoisitko

      Toivoisitko, että kaivattusi olisi introvertimpi tai extrovertimpi? Itsenäinen tai tarvitsisi enemmän apua/sinua? Osoit
      Ikävä
      117
      1182
    Aihe