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.
Solujen tiedot samoiksi 2 taulukossa täyttäen vain toista
10
225
Vastaukset
mutta ei noilla lähtötiedoilla kannata alkaa koodaamaan...
Tarkenna missä sarakkeessa kyssärit ja missä vastaukset yms.- Kitssa
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! 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
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 SubKiitos 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?
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
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 SubSuper iso kiitos!
- Kitssa
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 SubTein 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
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
Kitssa kirjoitti:
Tai siis täytin koodiin.. heh
ja koko virheilmoitus
Compile error:
Ambiguous name detected: Worksheet_ChangeVirheilmoitus 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 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_Changesulla on KAKSI SAMANNIMISTÄ Worksheet_Change proseduuria moduulissa...
poista toinen
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1592356
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1361895Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1061715- 741364
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 tunnet211337- 721306
- 2281086
- 71874
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv212823- 46790