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.

300

Äänestä

Vastaukset

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

Pystyisitkö pitämään
Näppejä erossa jos tulisi siihen tilaisuus
12.11.2025 10:56Ikävä
45
3813
Riikka on siis suomalaisille velkaa 84 mrd
Jos kauhukabinetti istuu vaalikauden loppuun. Keskimäärin yli 20 miljardia uutta velkaa rikkaiden veronalennuksiin jokai
11.11.2025 07:34Maailman menoa
78
3258
Yritystuet 10 mrd. vuodessa, eli yrittäjäriski valtiolla kuten kommunismissa
Pelkästään Viking Linen viinanhakuristeilyitä sponsoroidaan 20 miljoonalla eurolla vuosittain. Dieselin verotukikin on
13.11.2025 07:49Yrittäjyys
0
3070
Luotathan siihen tunteeseen, joka välillämme on?
Uskothan myös, että se kestää tämän? Kaipaan sinua valtavasti. Vielä tehdään yhdessä tästä jotain ihmeellistä ja kaunist
12.11.2025 01:17Ikävä
30
3045
Sanna on suomalaisille siis velkaa 24 mrd euroa
Muistanette vielä kuinka Italian remonttirahoja perusteltiin sillä, että italialaiset ostaa suomalaisilta paidatkin pääl
11.11.2025 07:23Maailman menoa
163
2801
En saa sua mielestäni vaikka tekisin mitä
Mikä tähän auttaa.. ei mikään. Edes aika. Kaivan sut kohta vaikka kivenkolosta että saan kysyä haluatko sinäkin💛
12.11.2025 15:24Ikävä
14
2647
Tuntuuko ettet tiedä
Enää miten toimia mun suhteen. Kun en taida tietää itsekään
12.11.2025 09:50Ikävä
25
2319
Onnettomuus
Hukkajärventiellä kolaroi lavetti ja henkilöauto. Uutista ei missään! Hys hys ollaanko hiljaa tästäkin?
12.11.2025 17:54Kuhmo
4
1950
Kirjotan ikävää ulos
Haluaisin kuulla mitä ajattelet minusta. ihan mitä vaan mitä mietit. Voisit kertoa minulle, tai sitten kirjoittaisit run
12.11.2025 16:09Ikävä
14
1748
Sinä se vaan jaksat
Suosittelen lopettamaan hyvissä ajoin, tuo toimintas ei auta unohtamiseen. Jossain vaiheessa asia julkistuu enkä usko et
12.11.2025 15:55Ikävä
23
1677

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

Vastaukset

Kitssa kirjoitti:

kunde kirjoitti:

Kitssa kirjoitti:

kunde kirjoitti:

kunde kirjoitti:

Kitssa kirjoitti:

Kitssa kirjoitti:

kitssa kirjoitti:

Luetuimmat keskustelut

Pystyisitkö pitämään

Riikka on siis suomalaisille velkaa 84 mrd

Yritystuet 10 mrd. vuodessa, eli yrittäjäriski valtiolla kuten kommunismissa

Luotathan siihen tunteeseen, joka välillämme on?

Sanna on suomalaisille siis velkaa 24 mrd euroa

En saa sua mielestäni vaikka tekisin mitä

Tuntuuko ettet tiedä

Onnettomuus

Kirjotan ikävää ulos

Sinä se vaan jaksat

Sammallahti (kok.) raivoaa verotietojen julkisuudesta

Eläinpuistoa tyhjennetään eläimistä

Erika Vikmannille ilo uutinen.

"Sanna Marinin kirja floppasi", kertoo eräs median otsikko

Tiesitkö? Suomessa lääkäri voi toimia ammatissaan, vaikka hän olisi seksuaalirikollinen

Sofia Zida puhuu rehellisesti suhteesta Andy McCoyhin: "Se on ollut mulle tavallaan..."

Minkä arvosanan (1-10) ja miksi annat Maajussille morsian -kaudelle?

Vappu Pimiä rehellisenä rakkausasioistaan - Näin hän tiesi, että Teemu Huuhtanen on se oikea!

Gallup: Mikä on paras tv-sarja joka tulee televisiosta tällä hetkellä?

Kuka artisti on valloittanut sydämesi tai vetänyt parhaiten Vain elämää -ohjelmassa?