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.
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.
Vastaukset 10
Vanhimmat
mutta ei noilla lähtötiedoilla kannata alkaa koodaamaan...
Tarkenna missä sarakkeessa kyssärit ja missä vastaukset yms.
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
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
Super iso kiitos!
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
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