rij zichtbaar maken (onder de huidige selectie)

[Joske2000]

Hallo,

De bedoeling is om gedurende het scannen van een barcode de volgende rij zichtbaar te maken.
Ik gebruik daarvoor de volgende code, maar deze werkt niet.
Kan iemand mij op het goede pad zetten ?

Thx,

Joske

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A5:A100")) Is Nothing Then
        Application.EnableEvents = False
    Target.Offset(0, 2) = "=RIGHT(RC[-2],3)"
        Application.EnableEvents = True
    i = Sheets("scanning").Cells(Rows.Count, "A:A").End(xlUp).Row + 1
    Rows("i:i").EntireRow Hidden = False
    End If
End Sub

 

[Roncancio]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A5:A100")) Is Nothing Then
    Application.EnableEvents = False
    Target.Offset(0, 2) = "=RIGHT(RC[-2],3)"
    Application.EnableEvents = True
    Sheets("scanning").Cells(Rows.Count, "A:A").End(xlUp).Offset(1, 0).EntireRow.Hidden = False
End If
End Sub

Met vriendelijke groet,


Roncancio

 

[Joske2000]

Roncancio,

Thanks, deze doet het perfect !

Gr,

Joske

 

[snb]

Waarom zet je die formule niet vooraf in het werkblad ?

Ik vooronderstel dat je deze gebeurteniscode in het werkblad 'scanning' hebt staan.
Je code kan dan beperkt blijven tot:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, Range("A5:A100")) Is Nothing Then Cells(Rows.Count, 1).End(xlUp).Offset(1).EntireRow.Hidden = False
End Sub