Hallo Vertoken,
Welkom op Oplossing.be
-Sla je bestand op als xlsm bestand, en werk hier mee verder.
-Maak een knop aan op je index werkblad. Open Index werkblad, In het tab Ontwikkelaars, Invoegen, Formulierbesturingselementen, klik je op "Knop" en teken een willekeurige grootte op je werkblad. Je kan dit nadien aanpassen. Bij het maken van die knop verschijnt er een venster "Macro toewijzen aan Knop1_Klikken". Klik op "Nieuw".
Deze knop is nu gekoppeld aan een lege macro. Open je VBA editor. Je komt automatisch in Module1, en je ziet rechts:
Sub Knop1_Klikken()
End Sub
Kopieer onderstaande code en plak deze tussen Sub Knop1_klikken en End Sub.
Dim i As Integer
Dim Serienummer As String
Dim rng As Range
Serienummer = InputBox("Welk serienummer zoekt u?")
For i = 2 To Worksheets.Count
Set rng = Worksheets(i).Cells.Find(Serienummer)
If Not rng Is Nothing Then
Worksheets(i).Activate
rng.EntireRow.Activate
End If
Next i
Sla je werkboek op.
Een klik op de knop zou je nu een invulveld moeten geven, en na een serienummer en OK zou het desbetreffende tabblad moeten openen.
Werkt dit?
SoftAid