Vereenvoudigen Private Sub CommandButton0001_Click()

[Kens62]

Beste forumleden,

Is het mogelijk om onderstaande routine te versimpelen?
In mijn bestand wil ik namelijk ongeveer 500 buttons gaan programmeren


Private Sub CommandButton0001_Click()

Dim ip, f As Range
ip = ("0001")
If ip <> "" Then
Set f = Sheets("LRH").Cells.Find(ip, , , xlWhole)
If Not f Is Nothing Then
With Application
.Goto f.Parent.Cells(.Max(1, f.Row - .RoundDown(ActiveWindow.VisibleRange.Rows.Count / 2, 0)), .Max(1, f.Column - .RoundDown(ActiveWindow.VisibleRange.Columns.Count / 2, 0))), True
.Goto f
End With
End If
End If

End Sub

Private Sub CommandButton0002_Click()

Dim ip, f As Range
ip = ("0002")
If ip <> "" Then
Set f = Sheets("LRH").Cells.Find(ip, , , xlWhole)
If Not f Is Nothing Then
With Application
.Goto f.Parent.Cells(.Max(1, f.Row - .RoundDown(ActiveWindow.VisibleRange.Rows.Count / 2, 0)), .Max(1, f.Column - .RoundDown(ActiveWindow.VisibleRange.Columns.Count / 2, 0))), True
.Goto f
End With
End If
End If

End Sub

Private Sub CommandButton0003_Click()

Dim ip, f As Range
ip = ("0003")
If ip <> "" Then
Set f = Sheets("LRH").Cells.Find(ip, , , xlWhole)
If Not f Is Nothing Then
With Application
.Goto f.Parent.Cells(.Max(1, f.Row - .RoundDown(ActiveWindow.VisibleRange.Rows.Count / 2, 0)), .Max(1, f.Column - .RoundDown(ActiveWindow.VisibleRange.Columns.Count / 2, 0))), True
.Goto f
End With
End If
End If
End Sub

Enzovoort.

Alvast bedankt voor jullie moeite

 

[Cobbe]

Zou dit iets zijn?

Private Sub CommandButton0001_Click()

Dim ip, f As Range
ip = Right(CommandButton0001.Caption, 4)
If ip <> "" Then
Set f = Sheets("LRH").Cells.Find(ip, , , xlWhole)
If Not f Is Nothing Then
With Application
.Goto f.Parent.Cells(.Max(1, f.Row - .RoundDown(ActiveWindow.VisibleRange.Rows.Count / 2, 0)), .Max(1, f.Column - .RoundDown(ActiveWindow.VisibleRange.Columns.Count / 2, 0))), True
.Goto f
End With
End If
End If

End Sub

Of deze als de tekst op de button afwijkt:

   ip=Right(CommandButton0001.Name, 4)

 

[VenA]

Lijkt mij hetzelfde als hierhttp://www.helpmij.nl/forum/showthread.php/921061-Gezochte-cel-laten-oplichten-door-achtergrond-van-kleur-te-laten-veranderen

Plaats het bestand eens. Het lijkt mij niet echt handig om 500 knoppen te gebruiken.

 

[Kens62]

VenA het gaat inderdaad om hetzelfde bestand.

Ik wil het echter gebruikersvriendelijker maken.

Zie bijgaand bestand als voorbeeld.