Worksheet_SelectionChange(ByVal Target As Range)

[Doohan]

Beste Helper,

Ik gebruik onderstaande code om een radiobutton te activeren en deze werkt.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
    With Sheets("LP Detail 63 Hz - 8 kHz")
        If .Range("w8").Value = 2 Then
            .OptMTU = True
        Else
            .optHbol = True
        End If
    End With

End Sub

maar als ik de code op onderstaande manier plaats achter de sheet gebeurt er niks waarom niet.

Private Sub Worksheet_Change(ByVal Target As Range)
   
    With Sheets("LP Detail 63 Hz - 8 kHz")
        If .Range("w8").Value = 2 Then
            .OptMTU = True
        Else
            .optHbol = True
        End If
    End With

End Sub

Alvast vriendelijk dank

 

[edmoor]

Die laatste wordt alleen gedaan wanneer je de waarde in een willekeurige cel wijzigt.

 

[Doohan]

Bedankt Edmoor

Het is duidelijk.

 

[snb]

Wil je met de waarde van een cel een radioknop wijzigen of andersom ?

 

[Doohan]

@SNB

Ik wil dat de radiobutton .OptMTU op true laten springen zodra cel w8 de waarde 2 krijgt maar de code werkt met Worksheet_SelectionChange en de sheet is groot genoeg met meerdere cellen om in te vullen,
Als de .OptMTU direct op true had gestaan zodra w8 de waarde 2 krijgt had ik alleen wat netter gevonden.
Maar om echt je vraag te beantwoorden ik wilde beide en dat werkt ook.
thx en groet