Een knop maken die naar een bepaalde cel springt

Anoniem

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.

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 opmerkingen

Answer accepted by question author

Anoniem

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

0 opmerkingen

Answer accepted by question author

Anoniem

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!

0 opmerkingen

28 extra antwoorden

Anoniem

2024-02-14T05:14:53+00:00

Dit is wel wat ik voor ogen had en wat makkelijker dan de oplossing van aalpha, waarbij ik voor elke serie een case moet aanmaken.

Tja..., mijn (eerste) antwoord was gebaseerd op je eerste bericht waarin je meldde dat je via een drop-downmenu naar een bepaalde cel wilde springen. Als toen bekend was geweest wat je werkelijk wilde, had ik wel wat anders geadviseerd, en dat heb ik je nadien ook laten weten (door de gebruikte methode af te raden). Je maakt nu via de drop-down louter een keuze, waarna je via een checkbox actie onderneemt. Dat is een draak van een oplossing die in een professionele omgeving nooit wordt gebruikt.
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen

Anoniem

Beste Richard Hs,

Probeer deze macro. Je kunt de kleur aanpassen door in de laatste regel rgbAqua weg te halen, rgb te typen en cntrl spatiebalk te drukken. Je kunt nu je eigen kleur uitzoeken.

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").CurrentRegion  
Set zoekTekst = Sheets("Serie").Range("F5")  
Set rgZoek = rg.Find(What:=zoekTekst, \_  
            LookIn:=xlValues, lookat:=xlWhole)  
              
rg.Interior.Color = xlNone  
  
If rgZoek Is Nothing Then  
    MsgBox (zoekTekst) & "  is niet gevonden"  
    Exit Sub  
Else  
    sh.Select  
    ActiveWindow.ScrollRow = rgZoek.Row  
    ActiveWindow.ScrollColumn = 4

    rg.Rows(rgZoek.Row).Interior.Color = rgbAqua  
End If

End Sub

Groet,

Boculus

0 opmerkingen

Anoniem

2024-02-08T11:54:50+00:00

Ik heb de code nogmaals geplakt en gekoppeld en hij werkt nu wel.

Misschien een kleine aanvulling hierop: is het mogelijk de geactiveerde rij een andere kleur te geven?

ik denk niet dat de programmeur hier een fout gemaakt heeft, waarschijnlijk de operator.....

Dit is wel wat ik voor ogen had en wat makkelijker dan de oplossing van aalpha, waarbij ik voor elke serie een case moet aanmaken.

Beide zeer bedankt voor alle moeite , ik heb er veel van geleerd en hoop nog eens jullie hulp te mogen vragen.
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen