Ce verwijzing

[Likie74]

Dit is waarschijnlijk 1 van de makkelijkste opdracht/vraag voor velen hoor.
Het gaat om een rooster. Een aantal collega's werken op meerder locaties/disciplines.
Ik wil graag dat wanneer ik bij Alique in B7 het zelfde komt te staat in B54. Deze verwijzing lukt mij maar ik wil het ook visa versa dus wanneer ik in B54 de aanpassing maak dit dan ook in B7 gebeurd. Ik krijg dan een foutmelding dat er een kringverwijzing is.

Wie kan mij helpen?

In het toegevoegde bestand heb ik niks aan formules gezet.

 

[jverkerk]

Misschien?
Wel bij eigenschappen een vinkje aanzetten. Unblock


Plaatje van Edmoor geloof ik.

 

[Likie74]

HI Johan

Thanks voor je reactie. Ik zie nergens de formule staan en vanuit waar zet ik het op unlock
Sorry mijn Excel skills zijn minimaal. Zou je me dat kunnen vertellen

 

[jverkerk]

Als je hem gedownload hebt, op het bestandje gaan staan en dan rechtermuis en eigenschappen.
Op het plaatje is het in het Engels.
Het werkt via VBA. Dus geen formules.

 

[Likie74]

en hoe voeg in dan toe dat bijvoorbeeld b35 gelijk moet zijn aan b55 en andersom en zo heb ik nog veel meer verwijzingen .

 

[jverkerk]

Is het gelukt met die ene verwijzing?
Mijn VBA skills reiken niet zo erg ver, maar als je eens uitlegt wat je plannen zijn zijn er vast mogelijkheden, desnoods met een andere opbouw van jouw gegevens. Vul je de gegevens zelf in of haal je die ergens anders vandaan.

 

[AHulpje]

Voortbordurend op de oplossing van jverkerk:

Private Sub Worksheet_Change(ByVal target As Range)
    Dim aRNG, bRNG
    Dim i As Integer
    aRNG = Array("B7", "B35")
    bRNG = Array("B54", "B55")
    For i = 0 To UBound(aRNG)
        If Not Intersect(target, Range(aRNG(i))) Is Nothing Then
            Application.EnableEvents = False
            Range(bRNG(i)).Value = Range(aRNG(i)).Value
            Application.EnableEvents = True
        ElseIf Not Intersect(target, Range(bRNG(i))) Is Nothing Then
            Application.EnableEvents = False
            Range(aRNG(i)).Value = Range(bRNG(i)).Value
            Application.EnableEvents = True
        End If
    Next
End Sub

Je kunt de array's aRNG en bRNG uitbreiden met net zo veel paren als je wilt.