Liitä inkki

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