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-07T14:23:41+00:00

Is het nu beter zo???
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen
Anoniem

2024-02-07T13:47:21+00:00

Beste Richard Hs,

Je bent net even te snel met de markering.

Ik had de volgende macro voor je klaar staan.

Je praat nu over de macro van aalpha. En als die voldoet, is dat uitstekend natuurlijk.

Ik had deze voor je:

Sub ZoekSerie() Dim sh As Worksheet, rijNr As Long Dim rg As Range, rgZoek As Range Set sh = Sheets("Serie Info") Set rg = sh.Range("A2", sh.Range("A" & Rows.Count).End(xlUp)) Set rgZoek = rg.Find(What:=Sheets("Serie").Range("F5"), _ LookIn:=xlValues, lookat:=xlWhole) If rgZoek Is Nothing Then MsgBox (Sheets("Serie").Range("F5")) & " is niet gevonden" Exit Sub Else sh.Select rijNr = rg.Find(What:=Sheets("Serie").Range("F5"), _ LookIn:=xlValues, lookat:=xlWhole).Row ActiveWindow.ScrollRow = rijNr ActiveWindow.ScrollColumn = 1 End IfEnd Sub

Je haalt de zoekterm uit een dropdownlijst. Maar je weet maar nooit.

Groet,

Bocculus
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen
Anoniem

2024-02-07T13:29:23+00:00

Richard,

je hebt wel de verkeerde reactie als juist antwoord aangeduid, een reactie van iemand die helemaal geen antwoord op je vraag heeft gegeven. dat is waarschijnlijk een vergissing; wijzig dat a.u.b.
Was dit antwoord nuttig?

0 opmerkingen Geen opmerkingen