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.

263

Ää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

Useita puukotettu Tampereella
Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
03.07.2025 17:06Tampere
266
4793
Kuka rääkkää eläimiä Puolangalla?
Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
03.07.2025 14:31Puolanka
81
3237
Laitetaas nyt kirjaimet tänne
kuka kaipaa ja ketä ?
05.07.2025 01:01Ikävä
38
2766
Leipivaaran päällä on kuoleman hiljaista.
Suru vai suuri helpotus...
03.07.2025 09:33Puolanka
47
2533
Meneeköhän sulla
oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
03.07.2025 23:21Ikävä
45
1807
Koska näit kaivattusi viimeksi
Milloin tapasit rakkaasi? Ja etenikö suhde yhtään?
03.07.2025 00:45Ikävä
97
1600
Lähetä terveisesi kaipaamallesi henkilölle
Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘
04.07.2025 00:15Ikävä
94
1378
PS uusimman gallupin rakettimainen nousija
https://yle.fi/a/74-20170641 Aivan ylivoimaisesti suurin kannatuksen nousu PS:lle. Nousu on alkanut ja jatkuu 2 vuoden
03.07.2025 08:04Maailman menoa
144
1015
Tekiskö nainen mieli tavata...
Viikonloppuna ja...?
03.07.2025 17:40Ikävä
69
988
Laita vielä yksi viesti
Saisin rohkeutta☺️ Naiselta
03.07.2025 22:27Ikävä
100
946

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

Useita puukotettu Tampereella

Kuka rääkkää eläimiä Puolangalla?

Laitetaas nyt kirjaimet tänne

Leipivaaran päällä on kuoleman hiljaista.

Meneeköhän sulla

Koska näit kaivattusi viimeksi

Lähetä terveisesi kaipaamallesi henkilölle

PS uusimman gallupin rakettimainen nousija

Tekiskö nainen mieli tavata...

Laita vielä yksi viesti

Useita puukotettu Tampereella

Etelän matkojen suosio kasvussa

Suomessa EU:n toiseksi korkein työttömyys

PS uusimman gallupin rakettimainen nousija

Euroopan lämpöennätys, 48,8, astetta, on mitattu Italian Sisiliassa

Perusmuotoiset TV-lähetykset loppu

Mitä alkoholijuomaa on myyty sekä Linda Lampeniuksen että Matti Nykäsen nimellä? Testaa tietosi!

Artistilegenda Marion Rung paljasti somessa Vain elämää -päivästään: "Vihdoin voin..."

Luvattiin työpaikka, mutta mitään ei kuulukaan

Syksyn eka Elämäni Biisi TV:ssä - Tämä mielenkiintoinen paljastus tulevasta kaudesta!