Een knop maken die naar een bepaalde cel springt

Question

Ik zou graag een knop willen maken, selectievakje of iets dergelijks, die springt naar een rij en cel.

Deze sprong is afhankelijk van een keuze in een dropdown lijst.

Ik heb een lijst van series welke in tabblad2 staan. Hierin staan alle gegevens horizontaal.

op tabblad1 staat een dropdown lijst waarin je de serie kan selecteren, met de waarde in cel F5 (b.v. FBI)

Op tabblad2 staat in cel A2 het jaartal van uitbrengen van de serie (b.v. 2020).

Nu zou het knopje , als je daarop klikt, moeten kijken naar de waarde in F5, en moeten springen naar tabblad2,cel A2.

Als de waarde in F5 veranderd naar (b.v. ZOO) zou de sprong moeten gaan naar tabbald2 cel A99)

ik heb een idee dat dit niet met formules opgelost kan worden maar met een macro? daar heb ik nog weinig kaas van gegeten.

Hopelijke kan iemand hier me op weg helpen.

Answer 1

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

Answer 2

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!

Answer 3

Ik heb even wat geprobeerd maar krijg de volgende foutmelding:

Fout 424 tijdens uitvering

Object vereist.

Private Sub Worksheet_Change(ByVal Target As Range)

Sub Selectievakje305_Klikken()

If Not Intersect(Range("F5"), Target) Is Nothing Then

With Application

Select Case Target.Value

Case "Alert"

.Goto Reference:=Sheets("Serie Info").Range("A2")

Case "ZOO"

.Goto Reference:=Sheets("Serie Info").Range("A99"), scroll:=True

'Case ....

'.........

'enzovoorts

End Select

End With

End If

End Sub

Het is toch de bedoeling deze macro aan het selectievakje te hangen?

Answer 4

Waarom een knop? De functie hyperlink in combinatie met indirect kan dat ook

Answer 5

• Klik met de rechtermuisknop op de tab van "Blad1" en kies in het verschijnende menu"programmacode weergeven". Je koomt dan in de vba-editor
• Kopieer onderstaande macro en plaats die daar aan de rechterzijde.
• Sluit het venster door rechtsboven op het kruisje te klikken, je komt dan terug in Blad1.
• Sla je bestand op als .xlsm-file (=Excelfile met macro's).
• Sluit de excelfile, start hem weer op, maak in F5 van Blad1 een keuze in het drop-downmenu, en kijk naar het resultaat.
• Laat hier weten of dat het gewenste effect heeft. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Range("F5"), Target) Is Nothing Then With Application Select Case Target.Value Case "FBI" .Goto Reference:=Sheets("Blad2").Range("A2") Case "ZOO" .Goto Reference:=Sheets("Blad2").Range("A99"), scroll:=True 'Case .... '......... 'enzovoorts End Select End With End If End Sub