Een knop maken die naar een bepaalde cel springt

Beste Richard Hs,

Jij hebt niets verkeerd gedaan en excel ook niet. De enige die fouten kan maken, is de programmeur.

Waar het om gaat, dat is waar de zoektekst in het blad Serie Info staat. Ik ging uit van kolom A. Ik ging er ook van uit, dat je naar de eerste kolom wilt springen. Ik begrijp, dat dat kolom D moet zijn ( ScrollColumn = 4 ).

Je haalt de waarden uit een dropdownlijst. Dan is er weinig kans om een verkeerde waarde te selecteren. Maar het is, net als de vorige keer wel meegenomen.

Probeer deze macro en laat weten waar het eventueel mis gaat

Sub ZoekSerie()
' Een knop maken die naar een bepaalde cel springt
' Richard Hs, 05-02-2024

Dim sh As Worksheet  
Dim rg As Range, rgZoek As Range, zoekTekst As Range  
              
Set sh = Sheets("Serie Info")  
Set rg = sh.Range("A2", sh.Range("E" & Rows.Count).End(xlUp))  
Set zoekTekst = Sheets("Serie").Range("F5")  
Set rgZoek = rg.Find(What:=zoekTekst, \_  
            LookIn:=xlValues, lookat:=xlWhole)  

If rgZoek Is Nothing Then  
    MsgBox (zoekTekst) & "  is niet gevonden"  
    Exit Sub  
Else  
    sh.Select  
    ActiveWindow.ScrollRow = rgZoek.Row  
    ActiveWindow.ScrollColumn = 4  
End If  

End Sub

Groet,

Bocculus

Mocht er een nieuwe serie worden ingevoegd voeg ik een nieuwe rij in waardoor alle cellen een ander nummer krijgen (serie alert heeft nu D2, zou dan D3 worden) . Een macro werkt dat niet bij...

Zoals de macro er nu uitziet niet nee, maar daar is zeer eenvoudig een mouw aan te passen.

Geef de cellen waar naar toe 'gesprongen' moet worden een naam. Je kunt dan rijen invoegen zoveel je wil. Voorbeeld:

• In de macro staat nu o.a. Case "Alert" .Goto Reference:=Sheets("Serie Info").Range("A2")
• Geef in het blad "Serie Info" cel A2 de naam Alert, dat kan als volgt:

Selecteer in het blad "Serie info" de cel A2, plaats de cursor in het naamvak (dat is het vak bóven de kolomletters A, B,..), als daar wat staat, wis dat dan, typ: Alert en druk op Enter.

• Wijzig in de macro de Goto-regel, behorend bij Alert als volgt: .Goto Reference:=Sheets("Serie Info").Range("Alert")
• Doe die naamgeving en aanpassing van de macro ook voor alle andere cellen waar je met de macro naar toe wil gaan.
• Sla daarna het Excelbestand op.
• Test de macro door 1 of meer rijen in te voegen.

Succes ermee!