KiwaISASport
Nieuwe gebruiker
- Lid geworden
- 14 mrt 2018
- Berichten
- 2
Goedemiddag,
ik heb het volgende probleem:
Ik zou graag bij het openen van een sheet in excel altijd in dezelfde cel starten bv.B1.
en daarna met behulp van de tab toest verder gedaan naar een aantal volgende cellen.
Het verplaatsen van de cursor doormiddel van de tab toets is gelukt zie onderstaande code
Deze staat in de sheet1.
Nu wil ik het zo maken dat wanneer sheet1 geopend wordtde cursor altijd op B1 staat.
Hopelijk kunnen jullie mijn helpen alvast bedankt.:thumb:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static lastCellIndex As Integer
Dim Addresses_InOrder As Variant
If Target.Count = 1 Then
Addresses_InOrder = Array("$B$1", "$B$3", "$B$5", "$B$7")
lastCellIndex = lastCellIndex + 1
If lastCellIndex > UBound(Addresses_InOrder) Then _
lastCellIndex = LBound(Addresses_InOrder)
If lastCellIndex < LBound(Addresses_InOrder) Then _
lastCellIndex = LBound(Addresses_InOrder)
Application.EnableEvents = False
Range(Addresses_InOrder(lastCellIndex)).Select
Application.EnableEvents = True
End If
End Sub
ik heb het volgende probleem:
Ik zou graag bij het openen van een sheet in excel altijd in dezelfde cel starten bv.B1.
en daarna met behulp van de tab toest verder gedaan naar een aantal volgende cellen.
Het verplaatsen van de cursor doormiddel van de tab toets is gelukt zie onderstaande code
Deze staat in de sheet1.
Nu wil ik het zo maken dat wanneer sheet1 geopend wordtde cursor altijd op B1 staat.
Hopelijk kunnen jullie mijn helpen alvast bedankt.:thumb:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static lastCellIndex As Integer
Dim Addresses_InOrder As Variant
If Target.Count = 1 Then
Addresses_InOrder = Array("$B$1", "$B$3", "$B$5", "$B$7")
lastCellIndex = lastCellIndex + 1
If lastCellIndex > UBound(Addresses_InOrder) Then _
lastCellIndex = LBound(Addresses_InOrder)
If lastCellIndex < LBound(Addresses_InOrder) Then _
lastCellIndex = LBound(Addresses_InOrder)
Application.EnableEvents = False
Range(Addresses_InOrder(lastCellIndex)).Select
Application.EnableEvents = True
End If
End Sub