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.

Vergrendelde vraag. Deze vraag is gemigreerd vanuit de Microsoft Ondersteuning-community. U kunt met een stem aangeven of de inhoud nuttig is, maar u kunt geen opmerkingen of antwoorden toevoegen of de vraag volgen.

0 opmerkingen

Antwoord geaccepteerd door vraagauteur

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

Antwoord geaccepteerd door vraagauteur

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-06T11:22:30+00:00

Het probleem nu met deze macro is dat als je een nieuwe rij invoegt de waarde in de macro niet wordt aangepast.

Macro's passen zich NOOIT automatisch aan, dat is onmogelijk. Maar als je vooraf weet dat je voor of na een actie die door de macro wordt uitgevoerd 1 of meer lege rijen wil invoegen, dan kun je die opdracht wel in de macro opnemen. Dan moet je wel laten weten wáár (boven of onder welke cel en in welk blad) 1 of meer lege rijen moeten worden ingevoegd.
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen
Anoniem

2024-02-06T09:09:57+00:00

Ik heb het werkend zoals je omschreef. Met gebruikmakend van een selectievakje.

Waarom een selectievakje? omdat ik niet altijd wil dat de macro wordt uitgevoerd. dit zal zo af en toe eens moeten gebeuren.

Het probleem nu met deze macro is dat als je een nieuwe rij invoegt de waarde in de macro niet wordt aangepast.

Case "Alert"

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

Als je boven de serie Alert een rij invoegt wordt cel D2 , D3.

De macro zou dan moeten verwijzen naar D3.

Ik ben al blij met dit resultaat en bedankt voor alle hulp zover.
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen
Anoniem

2024-02-05T15:59:45+00:00

Als je deze methode afraad, is er dan geen andere betere optie?

Die methode heb ik toch in mijn eerste bericht vermeld? Daarbij heb je een selectievakje niet nodig. Na een keuze in de drop-down in F5 wordt de macro onmiddellijk automatisch uitgevoerd en wordt de gewenste cel in het tweede blad geselecteerd. Eenvoudig en snel.
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen