Hoe verplaats ik de selectie één rij naar beneden in Excel 2007?

Het klinkt alsof je gewoon iets als dit nodig hebt:

Sub moveselection()

Selection.Offset(1, 0).Select

End Sub

Dit zal je selectie een rij naar beneden verplaatsen zonder de grootte van de selectie te veranderen.

(a) Die code gaat niet één rij naar beneden zoals de vraag

(b) Het werkt alleen op de eerste rij van een selectie, wil je dat het werkt op een selectie van meerdere rijen ?

© In plaats van hiervoor een sub aan te roepen zou je het automatisch kunnen laten lopen door met de rechtermuisknop te klikken - je kunt dit doen door rechts te klikken op je blad tab, Code bekijken, en de onderstaande code in te plakken

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    Range("E" & CStr(Selection.Row) & ":" & "GN" & CStr(Selection.Row)).Select
End Sub

Een alternatief dat gebruik maakt van benoemde argumenten, en daardoor veel duidelijker is, is iets als dit.

ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate

Een positieve rijOffset verplaatst de selectie omlaag op het blad, een negatieve rijOffset verplaatst het opgegeven aantal rijen omhoog, en een nul-offset laat de rij waarin de selectie zich bevindt ongewijzigd.

Positieve offsets verplaatsen de selectie naar rechts, negatieve offsets naar links. Nul laat natuurlijk de kolom ongewijzigd.

Zie Range.Offset Property (Excel)

Twee verwante ontdekkingen kunnen evengoed van belang zijn voor toekomstige bezoekers.

1. Doe het volgende om een kolom in te voegen. Selection.EntireColumn.Insert en pas op voor Range.Insert, dat runtime error 1004 oproept, althans in sommige omstandigheden, zoals beschermde werkbladen (zelfs met kolommen invoegen toegestaan terwijl het beschermd is).
2. De zojuist beschreven methode laat het invoegpunt in de nieuwe kolom staan, wat me niet opviel totdat ik hier kwam op zoek naar een methode om de selectie te verplaatsen (om te ontdekken dat ik die niet nodig had!).

Ok,

De cursor moet in de rij staan en de bereiken “E” en “GN” moeten worden aangepast voor verschillende kolommen, maar het bespaart me wat tijd:

Sub SelectRange()

  Dim RowNumber As Integer

  RowNumber = Selection.Row
  Range("E" & CStr(RowNumber) & ":" & "GN" & CStr(RowNumber)).Select

End Sub