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.

225

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

Anna minulle anteeksi
Anna minulle anteeksi. Minä pyydän.
01.09.2024 14:02Ikävä
159
2356
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...
01.09.2024 13:13Ikävä
136
1895
Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.
01.09.2024 00:03Ikävä
106
1715
Mikä on hän on ammatiltaan?
Vai tiedätkö mitä kaivattusi tekee työkseen?
01.09.2024 22:30Ikävä
74
1364
Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet
02.09.2024 00:26Ikävä
21
1337
Mitä ajattelit silloin kun
Löysit hänet?
01.09.2024 22:57Ikävä
72
1306
Syksyinen aamuketju suden
Hyvää huomenta ja kaunista syyspäivää. 🌞🍁🍂☕
02.09.2024 08:46Ikävä
228
1086
Oletko tutustunut muihin
Samalla tavalla kuin häneen?
01.09.2024 16:40Ikävä
71
874
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv
01.09.2024 14:42Luterilaisuus
212
823
Uskotko että kohdataan vielä?
Kysymys otsikossa, aloitukseen ei muuta lisättävää.
01.09.2024 18:18Ikävä
46
790

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

Anna minulle anteeksi

Kun viimeksi kohtasitte/näitte

Olet kyllä vaarallisen himokas

Mikä on hän on ammatiltaan?

Anna vielä vähän vihreää valoa

Mitä ajattelit silloin kun

Syksyinen aamuketju suden

Oletko tutustunut muihin

Miksi homous puhuttaa konservatiiveja vuodesta toiseen?

Uskotko että kohdataan vielä?

Järjetöntä väistämisleikkiä sähköpotkulaudoilla

Kuvat! Dannyyn liitetty Helmi Loukasmäki, 22, on puhjennut naisena kukkaan - Some sekoaa: "Sä..."

Suodatinpussin kastelemalla saa parempaa kahvia

Oho! Arja Koriseva paljastaa TTK:n ekasta suorasta lähetyksestä: "On vähän ärsyttävä yhtälö!"

Suojatielle kävely.

red fläkit naisessa

Sehän on vain kymppi kuussa

Juontaja Roope Salminen lataa rajua tekstiä juopottelustaan: "Ei mulla oikeastaan ollut..."

Martina osti talon Lapista

Vihreät uhkaavat kaataa hallituksen syksyllä