naar andere Cel gaan bij bepaalde voorwaarde VBA

[tijsje92]

Hallo,
Ik heb dankzij veel info op dit forum al een groot deel van mijn magazijnbeheer excel sheet weten te maken,
ik zit nu echter nog met een probleem, ik wil wanneer ik een cel (tussen B9 en B25) selecteer, dat excel dan automatisch in plaats van deze cel naar B8 gaat.
dit hoeft alleen te gebeuren wanneer B8 de waarde "klik om te scannen" bevat.

ik had zelf deze code bedacht maar dit werkt niet:

Sub Worksheet_Activate()
If ActiveCell.Address = "$B$9:$B$25" And Range("B8").Value = "Klik om te scannen" Then
Range("$B$8").Select
End If

End Sub


iemand een idee?

alvast bedankt!

 

[Leotaxi]

Dag Tijsje,

probeer zo maar

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 8 And Target.Row < 26 And Target.Column = 2 And Range("B8").Value = "Klik om te scannen" Then
    Range("$B$8").Select
End If
End Sub

mvg
Leo

 

[tijsje92]

Hartelijk dank! het werkt perfect :thumb: