VBA Focus op een cel in een range/gegevenslijst

[erik1235]

Ik heb code die zorgt dat bij dubbelklik in de gegevenslijst, een rij wordt bijgemaakt. De rij wordt bijgemaakt aan het einde van de lijst. Na aanmaak van de rij zou ik de eerste cel van de nieuwe rij de focus krijgt zodat de gebruiker meteen kan beginnen invullen.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveWorkbook.Worksheets("Blad1").Unprotect

   Dim wrksht As Worksheet
   Dim oListRow As ListRow
   Dim aantRijen As Integer
   

   Set wrksht = ActiveWorkbook.Worksheets("Blad1")
   Set oListRow = wrksht.ListObjects(1).ListRows.Add
   ActiveWorkbook.Worksheets("Blad1").Protect
End Sub

Wat kan ik aan deze code toevoegen zodat de focus ligt op de eerste cel van de pas toegevoegde rij?

Alvast bedankt voor je hulp!

 

[tilpi]

Range("B65000").End(xlUp).End(xlUp).Offset(1, 0).Select

Zet deze regel b.v. als laatste regel in de werkbladcode

Mvg

Piet

 

[erik1235]

Dit werkt prima! Bedankt.

Een vraag ter informatie: waarvoor wordt range(B65000) gebruikt? (dit is toch een verwijzing naar cel B65000?)

 

[tilpi]

Klopt. Mag ieder getal zijn, dat hoog genoeg is.
Maar dit is het zeker.

Mvg

Piet

 

[erik1235]

Bedankt Piet.

Nog een fijne dag. :thumb: