The macro is written in code (see below)
I've assigned it to a toolbar using the user interface (using the 'assign macro....' menu option.
Marcel
Sub BekoNavigeerNaarTegoedenEnRechten()
'
'Deze routine brengt de active cell terug naar het tabblad tegoeden en rechten en positioneert op de juiste plek.
nummer = ActiveSheet.Range("AD1").Value
'Neem aan dat het eerste sheet altijd 'Tegoeden en Rechten' is.
Worksheets(1).Activate
Worksheets(1).Range("A1").Activate
With ActiveSheet.Range("a2:a300")
Set c = .Find(nummer, LookIn:=xlValues)
If Not c Is Nothing Then
ActiveSheet.Range(c.Address).Activate
Else
response = MsgBox("Fout: Personeelsnummer " & nummer & " niet gevonden in tabel 'Tegoeden en Rechten'", vbExclamation + vbOKOnly)
End If
End With
End Sub
Bookmarks