Liitä inkki

Toimistoveteraani

Minulla on yhdella taulukon sivulla sisällysluettelo.
Kun muutan tietoja sisällysluettelossa, tietojen pitäisi muuttua tietyillä välilehdillä samalla.
Olen toteuttanut tämän kopioimalla etusivun solun ja "liittämällä linkin" haluamaani kohaan toisella älilehdellä.
Homma toimiikin hyvin, mutta on todella työlästä tehdä pohja jokaiselle haluamalleni sivulle ja solulle erikseen.
Onko helpompaa tapaa?

Jos siis kirjoitan Taul1 (sisällysluettelosivu) soluun C12 "Kuusinen", taul128 solussa F33 muuttuisi sama teksti. Osaan tehdä tämän vain yksitellen, mutta uskoisin että on helpompiakin keinoja.

Kiitos.

4

224

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kaarlo_kankkunen

      Mikä taulukkolaskenta-ohjelma sulla on käytössä?

      Itselläni on suomenkielinen Microsoft Excel 2010, ja siinä toi homma menee tälleen (mikäli käsitin kysymyksen oikein):

      Kirjoita (ilman lainausmerkkejä) "=taul1!c12" kaikkiin niihin soluihin, joihin haluat taulukossa 1, solussa C12 olevan tekstin kopioituvan automaattisesti.

    • Toimistoveteraani

      Kiitos! Aivan oikein ymmärsit ja neuvoit, tämä helpottaa jo huomattavasti.
      Pystyykö saman hoitamaan vielä niin, että syöttäisi "koodeja" tuohon
      sisällysluettelo sivulle ja tieto siirtyisi sinne muille välilehdille. Eli sama
      homma ja lopputulos, mutta tehtäisiin tavallaan käänteisesti.

      • Tämmöinen

        Soluun kirjoitettu tieto kumoaa siinä aiemmin olleen, mutta makrolla onnistuu.
        Kun jotain muutetaan, makro tutkii onko muutettu solu listalla ja kirjoittaa saman tiedon sen pariksi merkittyyn. Tiedosto on talletettava makrot sallivassa muodossa .xlsm

        Paina välilehden nimi-täppää hiiren oikealla ja valitse listalta "Näytä koodi" (tai jotain sen tapaista – en tiedä tarkaan, kun minulla ei ole suomennosta). Aukeaa VBA-editori ja kyseisen välilehden ohjelmamoduli. Kopioi alla oleva kolmen rivin makro tuohon ikkunaan. Kopioi se myös kaikkien muiden välilehtien vastaaviin moduleihin. Ne saa valittua joko edellä kuvatulla tavalla, tai VBA-editorista ruudun vasemmasta laidasta kohdasta Microsoft Excel Objektit ja ko. välilehden nimi.

        Private Sub Worksheet_Change(ByVal Target As Range)
            Päivitä (Target.Address)
        End Sub

        Tee yleinen ohjelmamoduli. Valitse VBA:ssa ylhäältä menuriviltä Lisää - Moduli. Kopioi siihen kaikki tästä alas päin. Huomaa, jos linkkejä muutetaan, ne ovat käytössä vasta kun Sub Alusta on ajettu - siirrä kursori sen kohdalle ja paina F5.

        Const hakemisto = "Sheet1" ' Hakemisto-välilehden nimi
        Const linkit = _
            "Taul1!A1=Taul2!A1," & _
            "Taul1!A2=Taul2!A2," & _
            "Taul1!A3=Taul3!A1," & _
            "Taul1!A4=Taul3!A2"  ' Laita sopivat linkit
        Const maksi = 3  ' kasvata tätä riittävästi

        Dim alustettu As Boolean
        Dim linkki(maksi, 1) As String

        Sub Alusta()

            Dim a() As String
            Dim b() As String
            Dim i
            
            a = Split(linkit, ",")
            For i = 0 To maksi
                b = Split(a(i), "=")
                linkki(i, 0) = b(0)
                linkki(i, 1) = b(1)
            Next i
            alustettu = True
        End Sub

        Sub Päivitä(t As String)

            Dim i, k, o
          
            If Not alustettu Then Alusta
            
        On Error GoTo Loppu:

            k = 0: o = 1
            If ActiveSheet.Name = hakemisto Then k = 1: o = 0

            For i = 0 To maksi
                If ActiveSheet.Name & "!" & WorksheetFunction.Substitute(t, "$", "") _
                = linkki(i, o) Then Exit For
                If i = maksi Then Exit Sub
            Next i
          
            Application.EnableEvents = False
            Worksheets(Left(linkki(i, k), InStr(linkki(i, k), "!") - 1)) _
            .Range(Mid(linkki(i, k), InStr(linkki(i, k), "!") 1, 10)) _
            = Range(t).Value
            
        Loppu:
            Application.EnableEvents = True
        End Sub


    • Toimistoveteraani

      Mahtavia ihmisiä täällä. Kiitos.

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Laitetaas nyt kirjaimet tänne

      kuka kaipaa ja ketä ?
      Ikävä
      151
      10974
    2. Pieni häivähdys sinusta

      Olet niin totinen
      Ikävä
      52
      5240
    3. Taas ryssittiin oikein kunnolla

      r….ä hyökkäsi Viroon sikaili taas ajattelematta yhtään mitään https://www.is.fi/ulkomaat/art-2000011347289.html
      NATO
      45
      2453
    4. Missä olet ollut tänään kaivattuni?

      Ikävä sai yliotteen ❤️ En nähnyt sua tänään söpö mies
      Ikävä
      30
      2143
    5. Vanha Suola janottaa Iivarilla

      Vanha suola janottaa Siikalatvan kunnanjohtaja Pekka Iivaria. Mies kiertää Kemijärven kyläjuhlia ja kulttuuritapahtumia
      Kemijärvi
      13
      1721
    6. Valtimon Haapajärvellä paatti mäni nurin

      Ikävä onnettomuus Haapajärvellä. Vene hörpppi vettä matkalla saaren. Veneessä ol 5 henkilöä, kolme uiskenteli rantaan,
      Nurmes
      42
      1574
    7. Tiedän kuka sinä noista olet

      Lucky for you, olen rakastunut sinuun joten en reagoi negatiivisesti. Voit kertoa kavereillesi että kyl vaan, rakkautta
      Ikävä
      30
      1251
    8. Känniläiset veneessä?

      Siinä taas päästiin näyttämään miten tyhmiä känniläiset on. Heh heh "Kaikki osalliset ovat täysi-ikäisiä ja alkoholin v
      Nurmes
      35
      1186
    9. Daniel Nummelan linjapuhe 2025

      Kansanlähetyksen toiminnanjohtajan Daniel Nummelan linjapuhe tänään. Rehellistä analyysiä mm. evlut kirkosta ja piispo
      Luterilaisuus
      92
      935
    10. TÄSTÄ TAITAA TULLA SUOMEN HISTORIAN SUURIN USKONNONVAPAUDEN OIKEUDENKÄYNTI.

      Sinun täytyy hyväksyä se että jos sinä vetoat uskonnonvapauteen, silloin sinun tulee antaa myös muille vastaava vapaus o
      Hindulaisuus
      317
      892
    Aihe