Solujen tiedot samoiksi 2 taulukossa täyttäen vain toista

Kitssa

Koitin tälläistä keskusteluista etsiä mutta en löytänyt vastausta.

Minulla on samassa välilehdessä 2 taulukkoa. Toinen pidempi ja monipuolisempi ja toinen lyhyt tiivistelmä pidemmästä. Molemmissa taulukoissa esiintyy samoja asioita. Haluaisin sellaisen koodin joka muuttaisi solujen arvot molempiin taulukoihin. Eli jos kirjoitan tiivistelmätaulukkoon jotain, se muuttaisi pidempään taulukkoon samaan kysymykseen saman vastauksen ja toisinpäin.

Tiivistelmä taulukossa on noin 10 asiaa pidemmästä taulukosta. Tavoitteena on siis että kumpaan tahansa kirjoitan niin se muuttaa vastauksen myös toiseen.

10

340

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      mutta ei noilla lähtötiedoilla kannata alkaa koodaamaan...
      Tarkenna missä sarakkeessa kyssärit ja missä vastaukset yms.

      • Kitssa

        K5=B11
        K7=B20
        K9=C29
        K11=C30
        K13=C31
        K15=C32
        K17=C33
        K19=C34
        K21=B42
        K23=B45
        K25=B52
        K27=B56
        L27=D56
        K29=C58
        K31=B60
        L31=C60
        M31=E60
        K33=C79
        L33=D79
        K35=B81
        L35=C81
        M35=D81
        K37=B83
        L37=C83
        K39=B92
        K41=B94
        K43=B99
        K45=B106

        Eli nuo solut pitäisi saada vastaamaan toisiaan. Ja voin kyllä naputella noita koodiin itse jos viitsit antaa pohjan =) Kysymys-soluilla ei kai ole niin väliä? Eli haluaisin vain että kun jompaan kumpaan vastaussoluun kirjoittaa jotain, se ilmestyy toiseen.

        Kiitos!

      • kunde
        Kitssa kirjoitti:

        K5=B11
        K7=B20
        K9=C29
        K11=C30
        K13=C31
        K15=C32
        K17=C33
        K19=C34
        K21=B42
        K23=B45
        K25=B52
        K27=B56
        L27=D56
        K29=C58
        K31=B60
        L31=C60
        M31=E60
        K33=C79
        L33=D79
        K35=B81
        L35=C81
        M35=D81
        K37=B83
        L37=C83
        K39=B92
        K41=B94
        K43=B99
        K45=B106

        Eli nuo solut pitäisi saada vastaamaan toisiaan. Ja voin kyllä naputella noita koodiin itse jos viitsit antaa pohjan =) Kysymys-soluilla ei kai ole niin väliä? Eli haluaisin vain että kun jompaan kumpaan vastaussoluun kirjoittaa jotain, se ilmestyy toiseen.

        Kiitos!

        3 solua malliksi...
        varmuuden vuoksi resetointikoodit jos mokaat...

        Sheet1 moduuliin....

        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        Application.EnableEvents = False
        If Not Intersect(Target, Range("K5,K7,K9")) Is Nothing Then
        Select Case Target.Address
        Case "$K$5"
        Worksheets("Sheet2").Range("B11") = Target
        Case "$K$7"
        Worksheets("Sheet2").Range("B20") = Target
        Case "$K$9"
        Worksheets("Sheet2").Range("C29") = Target
        End Select
        End If
        Application.EnableEvents = True
        End Sub
        Sub Resetoi()
        Application.EnableEvents = True
        End Sub

        Sheet2 moduuliin...

        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        Application.EnableEvents = False
        If Not Intersect(Target, Range("B11,B20,C29")) Is Nothing Then
        Select Case Target.Address
        Case "$B$11"
        Worksheets("Sheet1").Range("K5") = Target
        Case "$B$20"
        Worksheets("Sheet1").Range("K7") = Target
        Case "$C$29"
        Worksheets("Sheet1").Range("K9") = Target
        End Select
        End If
        Application.EnableEvents = True
        End Sub
        Sub Resetoi2()
        Application.EnableEvents = True
        End Sub

      • Kitssa
        kunde kirjoitti:

        3 solua malliksi...
        varmuuden vuoksi resetointikoodit jos mokaat...

        Sheet1 moduuliin....

        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        Application.EnableEvents = False
        If Not Intersect(Target, Range("K5,K7,K9")) Is Nothing Then
        Select Case Target.Address
        Case "$K$5"
        Worksheets("Sheet2").Range("B11") = Target
        Case "$K$7"
        Worksheets("Sheet2").Range("B20") = Target
        Case "$K$9"
        Worksheets("Sheet2").Range("C29") = Target
        End Select
        End If
        Application.EnableEvents = True
        End Sub
        Sub Resetoi()
        Application.EnableEvents = True
        End Sub

        Sheet2 moduuliin...

        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        Application.EnableEvents = False
        If Not Intersect(Target, Range("B11,B20,C29")) Is Nothing Then
        Select Case Target.Address
        Case "$B$11"
        Worksheets("Sheet1").Range("K5") = Target
        Case "$B$20"
        Worksheets("Sheet1").Range("K7") = Target
        Case "$C$29"
        Worksheets("Sheet1").Range("K9") = Target
        End Select
        End If
        Application.EnableEvents = True
        End Sub
        Sub Resetoi2()
        Application.EnableEvents = True
        End Sub

        Kiitos tosi paljon! Yksi kysymys kuitenkin =) Ymmärsin koodista että taulukot ovat eri välilehdillä(?) kun minulla molemmat taulukot löytyvät samalta välilehdeltä. Voinko pökää noi molemmat koodit samaan välilehteen?

      • kunde
        Kitssa kirjoitti:

        Kiitos tosi paljon! Yksi kysymys kuitenkin =) Ymmärsin koodista että taulukot ovat eri välilehdillä(?) kun minulla molemmat taulukot löytyvät samalta välilehdeltä. Voinko pökää noi molemmat koodit samaan välilehteen?

        pitää yhdistää...
        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        Application.EnableEvents = False
        If Not Intersect(Target, Range("K5,K7,K9")) Is Nothing Then
        Select Case Target.Address
        Case "$K$5"
        Range("B11") = Target
        Case "$K$7"
        Range("B20") = Target
        Case "$K$9"
        Range("C29") = Target
        End Select

        If Not Intersect(Target, Range("B11,B20,C29")) Is Nothing Then
        Select Case Target.Address
        Case "$B$11"
        Range("K5") = Target
        Case "$B$20"
        Range("K7") = Target
        Case "$C$29"
        Range("K9") = Target
        End Select
        End If
        Application.EnableEvents = True
        End Sub
        Sub Resetoi()
        Application.EnableEvents = True
        End Sub

      • Kitssa
        kunde kirjoitti:

        pitää yhdistää...
        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        Application.EnableEvents = False
        If Not Intersect(Target, Range("K5,K7,K9")) Is Nothing Then
        Select Case Target.Address
        Case "$K$5"
        Range("B11") = Target
        Case "$K$7"
        Range("B20") = Target
        Case "$K$9"
        Range("C29") = Target
        End Select

        If Not Intersect(Target, Range("B11,B20,C29")) Is Nothing Then
        Select Case Target.Address
        Case "$B$11"
        Range("K5") = Target
        Case "$B$20"
        Range("K7") = Target
        Case "$C$29"
        Range("K9") = Target
        End Select
        End If
        Application.EnableEvents = True
        End Sub
        Sub Resetoi()
        Application.EnableEvents = True
        End Sub

        Super iso kiitos!

      • Kitssa
        kunde kirjoitti:

        pitää yhdistää...
        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        Application.EnableEvents = False
        If Not Intersect(Target, Range("K5,K7,K9")) Is Nothing Then
        Select Case Target.Address
        Case "$K$5"
        Range("B11") = Target
        Case "$K$7"
        Range("B20") = Target
        Case "$K$9"
        Range("C29") = Target
        End Select

        If Not Intersect(Target, Range("B11,B20,C29")) Is Nothing Then
        Select Case Target.Address
        Case "$B$11"
        Range("K5") = Target
        Case "$B$20"
        Range("K7") = Target
        Case "$C$29"
        Range("K9") = Target
        End Select
        End If
        Application.EnableEvents = True
        End Sub
        Sub Resetoi()
        Application.EnableEvents = True
        End Sub

        Tein koodin joka näyttää nyt tältä

        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        Application.EnableEvents = False
        If Not Intersect(Target, Range("K5,K7,K9,K11,K13,K15,K17,K19,K21,K23,K25,K27,L27,K29,K31,L31,M31,K33,L33,K35,L35,M35.K37,L37,K39,K41,K43,K45")) Is Nothing Then
        Select Case Target.Address
        Case "$K$5"
        Range("B11") = Target
        Case "$K$7"
        Range("B20") = Target
        Case "$K$9"
        Range("C29") = Target
        Case "$K$11"
        Range("C30") = Target
        Case "$K13"
        Range("C31") = Target
        Case "$K$15"
        Range("C32") = Target
        Case "$K$17"
        Range("C33") = Target
        Case "$K$19"
        Range("C34") = Target
        Case "$K$21"
        Range("B42") = Target
        Case "$K$23"
        Range("B45") = Target
        Case "$K$25"
        Range("B52") = Target
        Case "$K$27"
        Range("B56") = Target
        Case "$L$27"
        Range("D56") = Target
        Case "$K$29"
        Range("C58") = Target
        Case "$K$31"
        Range("B60") = Target
        Case "$L$31"
        Range("C60") = Target
        Case "$M$31"
        Range("E60") = Target
        Case "$K$33"
        Range("C79") = Target
        Case "$L$33"
        Range("D79") = Target
        Case "$K$35"
        Range("B81") = Target
        Case "$L$35"
        Range("C81") = Target
        Case "$M$35"
        Range("D81") = Target
        Case "$K$37"
        Range("B83") = Target
        Case "$L$37"
        Range("C83") = Target
        Case "$K$39"
        Range("B92") = Target
        Case "$K$41"
        Range("B94") = Target
        Case "$K$43"
        Range("B99") = Target
        Case "$K$45"
        Range("B106") = Target

        End Select

        If Not Intersect(Target, Range("B11,B20,C29,C30,C31,C32,C33,C34,B42,B45,B52,B56,D56,C58,B60,C60,E60,C79,B81,C81,D81,B83,C83,B92,B94,B99,B106")) Is Nothing Then
        Select Case Target.Address
        Case "$B$11"
        Range("K5") = Target
        Case "$B$20"
        Range("K7") = Target
        Case "$C$29"
        Range("K9") = Target
        Case "$C$30"
        Range("K11") = Target
        Case "$C$31"
        Range("K13") = Target
        Case "$C$32"
        Range("K15") = Target
        Case "$C$33"
        Range("K17") = Target
        Case "$C$34"
        Range("K19") = Target
        Case "$B$42"
        Range("K21") = Target
        Case "$B$45"
        Range("K23") = Target
        Case "$B$52"
        Range("K25") = Target
        Case "$B$56"
        Range("K27") = Target
        Case "$D$56"
        Range("L27") = Target
        Case "$C$58"
        Range("K29") = Target
        Case "$B$60"
        Range("K31") = Target
        Case "$C$60"
        Range("L31") = Target
        Case "$E$60"
        Range("M31") = Target
        Case "$C$79"
        Range("K33") = Target
        Case "$D$79"
        Range("L33") = Target
        Case "$B$81"
        Range("K35") = Target
        Case "$C$81"
        Range("L35") = Target
        Case "$D$81"
        Range("M35") = Target
        Case "$B$83"
        Range("K37") = Target
        Case "$C$83"
        Range("L37") = Target
        Case "$B$92"
        Range("K39") = Target
        Case "$B$94"
        Range("K41") = Target
        Case "$B$99"
        Range("K43") = Target
        Case "$B$106"
        Range("K45") = Target
        End Select
        End If
        Application.EnableEvents = True
        End Sub
        Sub Resetoi()
        Application.EnableEvents = True
        End Sub

        Ja laitoin sen välilehden koodiin ja tuli virheilmoitus taulukon testauksessa
        Ambiguous name detected: Worksheet_Change

        Ideoita?

      • Kitssa
        Kitssa kirjoitti:

        Tein koodin joka näyttää nyt tältä

        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        Application.EnableEvents = False
        If Not Intersect(Target, Range("K5,K7,K9,K11,K13,K15,K17,K19,K21,K23,K25,K27,L27,K29,K31,L31,M31,K33,L33,K35,L35,M35.K37,L37,K39,K41,K43,K45")) Is Nothing Then
        Select Case Target.Address
        Case "$K$5"
        Range("B11") = Target
        Case "$K$7"
        Range("B20") = Target
        Case "$K$9"
        Range("C29") = Target
        Case "$K$11"
        Range("C30") = Target
        Case "$K13"
        Range("C31") = Target
        Case "$K$15"
        Range("C32") = Target
        Case "$K$17"
        Range("C33") = Target
        Case "$K$19"
        Range("C34") = Target
        Case "$K$21"
        Range("B42") = Target
        Case "$K$23"
        Range("B45") = Target
        Case "$K$25"
        Range("B52") = Target
        Case "$K$27"
        Range("B56") = Target
        Case "$L$27"
        Range("D56") = Target
        Case "$K$29"
        Range("C58") = Target
        Case "$K$31"
        Range("B60") = Target
        Case "$L$31"
        Range("C60") = Target
        Case "$M$31"
        Range("E60") = Target
        Case "$K$33"
        Range("C79") = Target
        Case "$L$33"
        Range("D79") = Target
        Case "$K$35"
        Range("B81") = Target
        Case "$L$35"
        Range("C81") = Target
        Case "$M$35"
        Range("D81") = Target
        Case "$K$37"
        Range("B83") = Target
        Case "$L$37"
        Range("C83") = Target
        Case "$K$39"
        Range("B92") = Target
        Case "$K$41"
        Range("B94") = Target
        Case "$K$43"
        Range("B99") = Target
        Case "$K$45"
        Range("B106") = Target

        End Select

        If Not Intersect(Target, Range("B11,B20,C29,C30,C31,C32,C33,C34,B42,B45,B52,B56,D56,C58,B60,C60,E60,C79,B81,C81,D81,B83,C83,B92,B94,B99,B106")) Is Nothing Then
        Select Case Target.Address
        Case "$B$11"
        Range("K5") = Target
        Case "$B$20"
        Range("K7") = Target
        Case "$C$29"
        Range("K9") = Target
        Case "$C$30"
        Range("K11") = Target
        Case "$C$31"
        Range("K13") = Target
        Case "$C$32"
        Range("K15") = Target
        Case "$C$33"
        Range("K17") = Target
        Case "$C$34"
        Range("K19") = Target
        Case "$B$42"
        Range("K21") = Target
        Case "$B$45"
        Range("K23") = Target
        Case "$B$52"
        Range("K25") = Target
        Case "$B$56"
        Range("K27") = Target
        Case "$D$56"
        Range("L27") = Target
        Case "$C$58"
        Range("K29") = Target
        Case "$B$60"
        Range("K31") = Target
        Case "$C$60"
        Range("L31") = Target
        Case "$E$60"
        Range("M31") = Target
        Case "$C$79"
        Range("K33") = Target
        Case "$D$79"
        Range("L33") = Target
        Case "$B$81"
        Range("K35") = Target
        Case "$C$81"
        Range("L35") = Target
        Case "$D$81"
        Range("M35") = Target
        Case "$B$83"
        Range("K37") = Target
        Case "$C$83"
        Range("L37") = Target
        Case "$B$92"
        Range("K39") = Target
        Case "$B$94"
        Range("K41") = Target
        Case "$B$99"
        Range("K43") = Target
        Case "$B$106"
        Range("K45") = Target
        End Select
        End If
        Application.EnableEvents = True
        End Sub
        Sub Resetoi()
        Application.EnableEvents = True
        End Sub

        Ja laitoin sen välilehden koodiin ja tuli virheilmoitus taulukon testauksessa
        Ambiguous name detected: Worksheet_Change

        Ideoita?

        Tai siis täytin koodiin.. heh

        ja koko virheilmoitus

        Compile error:
        Ambiguous name detected: Worksheet_Change

      • kitssa
        Kitssa kirjoitti:

        Tai siis täytin koodiin.. heh

        ja koko virheilmoitus

        Compile error:
        Ambiguous name detected: Worksheet_Change

        Virheilmoitus tulee jos kirjoittaa mille tahansa solulle ja visual basic ikkuna aukeaa ja maalaa ensimmäisen lauseen:
        Private Sub Worksheet_Change(ByVal Target As Range

        -> Compile error:
        Ambiguous name detected: Worksheet_Change

      • kunde
        kitssa kirjoitti:

        Virheilmoitus tulee jos kirjoittaa mille tahansa solulle ja visual basic ikkuna aukeaa ja maalaa ensimmäisen lauseen:
        Private Sub Worksheet_Change(ByVal Target As Range

        -> Compile error:
        Ambiguous name detected: Worksheet_Change

        sulla on KAKSI SAMANNIMISTÄ Worksheet_Change proseduuria moduulissa...
        poista toinen

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Riikka Purran kaudella nousi bensan hinta yli 2 euron

      Muistatteko kuinka edellisen vasemmistohallituksen aikana, ns. Marinin aikakaudella, bensiiniä sai 1,3 euron litrahinnal
      Maailman menoa
      125
      4803

    2. Veli Sofia teki urosmehiläisen työn

      Paljastaessaan kuinka TPS:ssä ei joukkuehenki toimi sooloilijoiden vuoksi, jonka takia koko seura ei pärjää kilpailussa
      Maailman menoa
      11
      3479

    3. Mitäs nyt sijoittajat?

      Pörssit laskevat maailmalla Iranin sodan takia ja muutenkin ovat olleet Trumpin vallan alla epävarmat. Ainoa, mikä on no
      Maailman menoa
      130
      3256

    4. Hjallis Harkimon, 72, Jasmine-rakas, 37, paljastaa suhteen alusta: "Vähän..."

      Liikemies, kansanedustaja Hjallis Harkimo ja tuottaja-juontaja Jasmine Pajari ovat pariskunta. He asuvat yhdessä Sipooss
      Suomalaiset julkkikset
      28
      2706

    5. Unisex-vessat

      Ahdistaa. Miksi kaikki pitää tasapäistää tasa-arvon nimissä? Tasa-arvo on sitä, että kunnioitetaan sukupuolien erilaisu
      Tunteet
      83
      2449

    6. Jutta Larm, 52, haluaa kumota tämän piintyneen ikämyytin

      Oletko samaa mieltä? Jutta Larm on 52-vuotias ja tehnyt pitkän uran yrittäjänä. Hän haluaa kumota tämän piintyneen ikämy
      50 plus
      18
      1813

    7. Henri Alen tilittää yllättäen Vappu Pimiän uudesta MasterChef -pestistä: "Vaikka hän ei..."

      Vappu Pimiä on uusi MasterChef Suomi -tuomari. Hän liittyi uudella MasterChef Suomi -kaudella arvovaltaiseen tuomaristoo
      Suomalaiset julkkikset
      9
      1424

    8. Vastuun ottaminen omasta hyvinvoinnista

      Olen huomannut tuttavapiirissäni ihmisiä, joilla on mt-diagnooseja. Sen sijaan, että millekään asialle yritettäisiin teh
      Henkinen hyvinvointi ja mielenterveys
      121
      1299

    9. Minkä kouluarvosanan 4-10 annat Beck-leffoille?

      Vähiin käy ennen kuin loppuu... Beck-elokuvia on tullut tv:stä jopa 2-3 viikossa. Nyt leffojen esitystiheys on muuttunut
      Elokuva
      10
      1249

    10. Jäit kiinni siitä

      että katselet minua. Käänsin pääni, minäkin etsin sinua, ja meidän katseemme kohtasivat. Eikä se haittaa - molemmat ky
      Ikävä
      4
      1228
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt