ik ben bezig in een excel-sheet en heb diverse kolommen aangemaakt. Tussen 2 gegevens-kolommen wil ik een lege kolom gebruiken. Deze heb ik al beveiligd tegen schrijven zodat ie ook echt leeg blijft. Is het ook mogelijk om de kolom zo te beveiligen dat je er met de cursor niet in kunt gaan staan? Dus als je met de pijltoets van ene kolom probeert in de lege te gaan dat ie automatisch naar de volgende kolom springt?
-
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Kolommen ontoegankelijk maken
- Onderwerp starter Takkebos
- Startdatum
- Status
Een mogelijkheid :
Ctrl ingedrukt houden en alle kolommen waartussen je wilt' springen' selecteren.
Met de rechter muisknop op één van de geselecteerde kolommen klikken, kies Celeigenschappen en haal op het tabblad Bescherming
het vinkje bij Geblokkeerd weg.
Kies dan in het menu: Extra > Beveiliging > Blad beveiligen
In plaats van de Enter knop gebruik je nu de Tab knop om van de ene cel naar de andere te gaan en daar gegevens in te vullen.
of via VBA:
Als je iets in vult in kolom B versprint automatisch naar kolom D, zet deze code achter het blad?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B:B]) Is Nothing Then
Target.Offset(0, 2).Select
End If
End Sub
Pierre
Ctrl ingedrukt houden en alle kolommen waartussen je wilt' springen' selecteren.
Met de rechter muisknop op één van de geselecteerde kolommen klikken, kies Celeigenschappen en haal op het tabblad Bescherming
het vinkje bij Geblokkeerd weg.
Kies dan in het menu: Extra > Beveiliging > Blad beveiligen
In plaats van de Enter knop gebruik je nu de Tab knop om van de ene cel naar de andere te gaan en daar gegevens in te vullen.
of via VBA:
Als je iets in vult in kolom B versprint automatisch naar kolom D, zet deze code achter het blad?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B:B]) Is Nothing Then
Target.Offset(0, 2).Select
End If
End Sub
Pierre
:thumb: - Status
