Zoeken en springen naar bepaalde cel.

[manado]

Beste mede denkers,
Ondanks veel gezoek o.a. met google kan ik mijn probleem niet vinden.
Ik heb een werkblad met een bereik van A1:Q162, dus 17 kolommen en 162 rijen.
Nu wil ik in bepaalde kolommen een bepaalde waarde zoeken en dan de naar de bewuste cel laten springen.
Het zoekbereik is b.v.b. in kolom A vanaf rij 3 t/m 162.
In cel A2 of eventueel op een andere manier vul ik een waarde in die dan wordt gezocht en b.v.b. d.m.v. enter spring ik dan naar die cel.
Wie weet hier een oplossing voor of eventueel een betere methode?

 

[edmoor]

CTRL-F misschien?

 

[manado]

Nee die kon ik al, dat is niet de bedoeling.
Maar misschien dat het in VBA in te bouwen is.

 

[edmoor]

Wat in VBA te bouwen is zal niet veel afwijken van wat CTRL-F doet.
Wat bevalt je niet aan CTRL-F dat daarom in de VBA functie achterwege zou moeten blijven?

 

[manado]

Gewoon iets in een venster intikken dan enter en in de gewenste cel belanden.
Met Ctrl-F moeten teveel handelingen gedaan worden!

 

[edmoor]

De simpelste manier zou dan volgens mij dit kunnen zijn.
Maak een userform met een textbox waarin je je zoekwaarde kun ingeven.
Vervolgens een knop om het zoeken te starten met daarachter de volgende code:

Private Sub CommandButton1_Click()
    
    On Error Resume Next
    If TextBox1.Value <> "" Then
        Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False).Activate
    End If
    
End Sub

 

[popipipo]

Korter (minder toetsaanslagen) dan CTRL F bestaat denk ik niet.

 

[edmoor]

Mijn voorbeeldje is eigenlijk wat CTRL-F doet maar dan zonder fout afhandeling en zonder de "Vervang" mogelijkheid.

 

[mvw64]

Probeer deze macro eens
Zoeken naar de tekst die in A1 staat

Sub test()
Range("A3:Q162").Find(Range("A1"), , xlValues, xlWhole).Select
End Sub

 

[manado]

Ziet er interessant uit, ga ik vandaag eens proberen.
Dit moet namelijk mogelijk zijn op verschillende kolommen.

 

[manado]

Oke, eerst maar eens de methode van edmoor geprobeerd, userform aangemaakt, programmering erin.
Maar dan?
Er zal toch ergens een bereik opgegeven moeten worden?
Als ik wat tekst invul dan gebeurt er verder niets, de procedure wordt doorlopen en dan gebeurd er verder niets.
En hoe krijg ik het userform actief op mijn werkblad?

Sorry jongens, dit (userforms) is weer wat nieuws voor mij, zo leer je er iedere keer weer wat bij.

De methode van mvw64 werkt wel maar het moet ook werken als maar een gedeelte van een woord of code ingevuld wordt, zo ook met de userform methode.
Hoe doe ik dat?