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.

330

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

Mitkä asiat
tekevät vaikeaksi kohdata kaivattusi?
07.02.2026 23:36Ikävä
73
883
Miltä se tuntuu
Miltä se tuntuu havahtua, että on ollut ihmistä kohtaan, joka on rakastanut ja varjellut, täysi m*lkku? Vai havahtuuko s
07.02.2026 18:43Ikävä
104
738
Rakas
Eihän se tietysti minulle kuulu, mutta missä sinä olet? 😠
08.02.2026 08:31Ikävä
36
613
Haluaisitko oikeasti
Vakavampaa välillemme vai tämäkö riittää
08.02.2026 15:48Ikävä
47
613
Mikä jäi sanomatta kaivatullesi?
Ja milloin?
07.02.2026 19:36Ikävä
39
608
En mahda sille mitään
Olet ihanin ja tykkään sinusta todella paljon.
07.02.2026 22:56Ikävä
30
601
Pidit itseäsi liian
Vanhana minulle? Niinkö?
08.02.2026 13:09Ikävä
40
595
Mitä se olisi
Jos sinä mies saisit sanoa kaivatullesi mitä vain juuri nyt. Ilman mitään seuraamuksia yms. Niin mitä sanoisit?
08.02.2026 19:25Ikävä
34
557
Joko olet luovuttanut
Mun suhteen?
08.02.2026 09:44Ikävä
50
550
Sinunkin pitää jättää
Se kaivattusi rauhaan.
08.02.2026 17:16Ikävä
36
493

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

Mitkä asiat

Miltä se tuntuu

Rakas

Haluaisitko oikeasti

Mikä jäi sanomatta kaivatullesi?

En mahda sille mitään

Pidit itseäsi liian

Mitä se olisi

Joko olet luovuttanut

Sinunkin pitää jättää

Jorma Uotinen UMK-juontajaksi! Mitä ajatuksia UMK-pesti herättää?

Unelmoitko asumisesta ja elämisestä tai lomasta Lapissa?

Koronatuillako miljoonavelkainen Jethro Rostedt kiertelee maailmaa?

Puoli seitsemän -jysäys! Mikko Kekäläisen rinnalle tämä suomalaisten suosikkilaulaja!

Pyhäjärven kansallispuisto yllätti täysin

Voiko ryyppäämisellä tienata elantonsa?

Helena Puolakka laukoo suorat sanat Vappu Pimiän MasterChef -pestistä

Dannyn "ex-käly" Jennika Vikman teki erikoisen ratkaisun!

Mira on velkaantunut mm. tilaamalla ruokaa osamaksulla - Ulos ei voi mennä, kun ahdistaa liikaa

Päivi Räsäsen seksipaljastus loksauttaa Katja Ståhlin leuat! Elämäni biisi kohujakso tv:ssä!