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

Kitssa

2010-06-17 10:24:20

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.

382

Äänestä

Vastaukset 10

kunde
2010-06-17 12:15:49
mutta ei noilla lähtötiedoilla kannata alkaa koodaamaan...
Tarkenna missä sarakkeessa kyssärit ja missä vastaukset yms.
- Kitssa
  2010-06-17 13:12:42
  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
  2010-06-17 15:29:57
  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
  2010-06-18 09:23:49
  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
  2010-06-18 10:42:16
  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
  2010-06-18 11:13:27
  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
  2010-06-18 12:47:29
  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
  2010-06-18 12:49:21
  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
  2010-06-18 13:17:05
  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
  2010-06-18 15:53:04
  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

Mikä on totta mikä ei?
Onko juoru vai ei että nimeltä mainitsematon henkilö on tehnyt naiselle/naisille jotain joka on väärin?
05.10.2026 00:43Kuhmo
26
1989
Lopetetaanko tämä
Juttu ja mennään eteenpäin? Pystytkö?
05.10.2026 18:18Ikävä
128
885
Just saying
Mies joka antaa naiselle turvallisen olon, on seksikäs. Ei kieroja kikkoja ja haluaa olla vain sen yhden naisen mies.
05.10.2026 16:29Ikävä
131
684
Voisin antaa sulle nyt
Halin❤️
05.10.2026 14:28Ikävä
54
616
Löytyikö syy miksi Martina on Muhiksen kanssa
Saipa naurut Gekkosen kuvasta, missä ovat ravintola Hookissa Immu fight night ottelun jälkeen, Muhoksella pullottaa hirv
05.10.2026 12:32Kotimaiset julkkisjuorut
93
589
Tosi kiva on
Joo. Mitä olisit menettänyt jos olisit paljastanut itsesi?
06.10.2026 16:39Ikävä
65
541
Jos selviäisi että kaivattusi
Olisi savant asperger? Rakastaisitko vielä? Savant-lahjakkuus olisi kapea-alaista neroutta liittyen mekanisiin ja tilan
05.10.2026 21:12Ikävä
88
540
Päivän aivopieru Trumpilta
Trump julisti sodan hyttysiä vastaan. Myös punkit ovat Trumpin sodan kohteena. Eikö vieläkään USA:n kansa tajua tuon uko
05.10.2026 10:21Maailman menoa
66
527
Janpen Thai lopettanut, miksiköhän
Hyvää apetta teki.
05.10.2026 16:16Suomussalmi
12
527
Jokin ei täsmää
Joskus yksi vuosiluku saa katsomaan koko tarinaa uudestaan. Löysin gradun. Matematiikka ei oikein täsmää siihen, mitä mi
06.10.2026 12:37Ikävä
298
526
Tehdään yhdessä itsestämme
Parhaat versiot❤️ Se vaatii molemmilta hyvää itsetuntoa!
05.10.2026 15:11Ikävä
42
525
Jorma Uotinen läväytti härskin heiton - Paljastus uudesta TTK-romanssista?
Tuomari Jorma Uotisen linja on välillä hyvinkin rohkea TTK:ssa. Hän näpäytti Jaakko Parkkalille ja Kastanja Rauhalalle v
06.10.2026 10:47Tanssii tähtien kanssa
11
513
Toivotko vielä viestiä
Minulta? En rohkene enää ottaa yhteyttä, kun varmasti jo uusia naisia elämässä. Nolaisin vain itseni.
05.10.2026 19:23Ikävä
36
482
Oliko Jani Halmeen aika jo tippua TTK:sta?
Jani Halme ja Claudia Ketonen joutuivat jättämään TTK:n. Halme ja Ketonen saivat viimeiseksi jäänestä tanssista, sambas
05.10.2026 10:02Tanssii tähtien kanssa
26
474
Kuka kaipaa T m?
Kerro nainen kirjaimesi vaan... Haluan miettiä kuka tulee ekana mieleeni.. kuin kurkistus tunteiden meren pinnalle, jota
05.10.2026 13:51Ikävä
33
457
Miksi jotku naiset on niin tyhmiä
Että elättelevät turhaa toivoa toisen kustannuksella. Onko ne kaikki kaappilesboja vai mikä niitä vaivaa? Sitten itketä
05.10.2026 21:25Ikävä
51
437
Olen ajellut Dieseleillä yli 50 vuotta.
Enkä ole koskaan kaivannut sähköautoa.
05.10.2026 17:28Hybridi- ja sähköautot
102
424
Vaikea on tämän
Jälkeen suhtautua sinuun ilman ettei muista kirjoituksiasi.
05.10.2026 22:50Ikävä
58
422
Kerro muuten miksi
Estit somessa?
05.10.2026 21:58Ikävä
41
416
S-ryhmän vastuullisuuden kaksoisstandardi
Vastuullisuuspuhe on helppoa. Vaikeampaa on selittää, miksi S-ryhmän omien merkkien tuotteita ja raaka-aineita hankitaan
05.10.2026 07:17Maailman menoa
10
412

Vastaukset 10

Kitssa kirjoitti:

kunde kirjoitti:

Kitssa kirjoitti:

kunde kirjoitti:

kunde kirjoitti:

Kitssa kirjoitti:

Kitssa kirjoitti:

kitssa kirjoitti:

Luetuimmat keskustelut

Mikä on totta mikä ei?

Lopetetaanko tämä

Just saying

Voisin antaa sulle nyt

Löytyikö syy miksi Martina on Muhiksen kanssa

Tosi kiva on

Jos selviäisi että kaivattusi

Päivän aivopieru Trumpilta

Janpen Thai lopettanut, miksiköhän

Jokin ei täsmää

Tehdään yhdessä itsestämme

Jorma Uotinen läväytti härskin heiton - Paljastus uudesta TTK-romanssista?

Toivotko vielä viestiä

Oliko Jani Halmeen aika jo tippua TTK:sta?

Kuka kaipaa T m?

Miksi jotku naiset on niin tyhmiä

Olen ajellut Dieseleillä yli 50 vuotta.

Vaikea on tämän

Kerro muuten miksi

S-ryhmän vastuullisuuden kaksoisstandardi