Automatisch laatste regel weergeven

[jelle87]

Goedenmorgen,

Op mijn werken we met bestellijsten, waarin ik alle bestellingen (bestelnummers/aantallen) opsla.

Dit is een voorbeeld, over hoe het er uit ziet:
Bekijk bijlage Voorbeeld bestelgeschiedenis.xlsx

Is het mogelijk om een macro te maken, die er voor zorgt dat je automatisch naar de laatste bestelling gaat, zodra het artikelnummer aangeklikt wordt?

Bijvoorbeeld zodra artikelnummer 6 aangeklikt wordt, moet automatisch bestelling 20 geselecteerd worden (cel V7).

Een andere mogelijkheid zou zijn om dit onder een knop te zetten. Dus zodra een regel aangeklikt is, je met een druk op de knop naar het laatste (= meest rechtse) resultaat springt.

Alvast bedankt!

Groet,
Jelle

 

[edmoor]

Zet dit achter het werkblad en dubbelklik dan op het artikelnummer:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim LastCol As Integer
    If Target.Column = 2 Then
        With ActiveSheet
            LastCol = .Cells(Target.Row, .Columns.Count).End(xlToLeft).Column
        End With
        Cells(Target.Row, LastCol).Activate
        Cancel = True
    End If
End Sub

 

[Niels28]

of met enkele klik

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Columns(1)) Is Nothing Then Cells(Target.Row, Columns.Count).End(xlToLeft).Activate
End Sub

Niels

 

[jelle87]

Heren, bedankt!

@Niels, hoe krijg ik deze onder een knopje ingebouwd ?

 

[Niels28]

Niet,

macro kopiëren en achter het desbetreffende tabblad plakken, als je dan op het artikelnummer klikt wordt deze uitgevoerd.

Niels

 

[jelle87]

Okay, wederom bedankt! Slotje gaat er op.