Zoeken onder een knop

[Flupke5]

Hai :
Pas het forrum ontdekt, al van alles gelezen en gevonden en ook opgestoken.
Ik ben middelmatig met Excel, maar wil heel veel er in maken.
Zo ben ik nu bezig met een database te maken van gegevens.
Daarin moet een zoekfunctie komen.
Wanneer je in excel CTR + F gebruikt, gaat de zoekfunctie open in excel, ik dacht (simpel denkend) "ik wil dat op het werkblad onder een knop hebben", en ik dacht dit te doen doormiddel van en macro, daar begin ik handig in te worden, maar helaas.
De macro zoekt enkel maar Flupke, ik kan geen "Klaas"of "Jan" invoeren.
Wat doe ik verkeerd, ben niet goed in VBA.


Sub Zoeken()
Cells.Find(What:="Flupke", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
End Sub


Weet iemand een oplossing ??!!!!!!!
BVD
Flupke

 

[Wigi]

Hai :
Pas het forrum ontdekt, al van alles gelezen en gevonden en ook opgestoken.
Ik ben middelmatig met Excel, maar wil heel veel er in maken.
Zo ben ik nu bezig met een database te maken van gegevens.
Daarin moet een zoekfunctie komen.
Wanneer je in excel CTR + F gebruikt, gaat de zoekfunctie open in excel, ik dacht (simpel denkend) "ik wil dat op het werkblad onder een knop hebben", en ik dacht dit te doen doormiddel van en macro, daar begin ik handig in te worden, maar helaas.
De macro zoekt enkel maar Flupke, ik kan geen "Klaas"of "Jan" invoeren.
Wat doe ik verkeerd, ben niet goed in VBA.

Sub Zoeken()
Cells.Find(What:="Flupke", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
End Sub


Weet iemand een oplossing ??!!!!!!!
BVD
Flupke

Ik vermoed dat je ook al Klaas of Jan ingevuld hebt in plaats van Flupke. Wat zit er dan nog fout, ik begrijp het niet goed.

Wigi

 

[Flupke5]

Hai Wigi


Het zoekschermpje gaat niet open, wat je normaal wel hebt bij CTR+F en daarom kan ik dus geen "klaas of Piet "invullen waarnaar gezocht moet worden. Of Wigi en dan laten zoeken.
De macro begint en vind meteen Flupke. Volgende vind hij Flupke.

Flupke

 

[Wigi]

Heb nu weinig tijd, maar probeer dit al eens:

Sub Zoeken()
Dim ans As String
ans = InputBox("Geef naam in aub.")
Cells.Find(What:=ans, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
End Sub

Zet deze code onder de knop. Druk op de knop, je hoeft geen Ctrl-F of zo meer te drukken.

Wigi

 

[Flupke5]

Hai Wigi

Bedankt voor je reacties, en sorry dat ik niet meteen heb gereageerd, ben namelijk niet dagelijks achter de computer te vinden
Ik heb het uitgeprobeerd en het werkt voor een deel, ik krijg soms de fout melding "fout 91 variabele of blok variabele with is niet ingesteld."
In elk geval ben ik al heel blij met wat je mij hebt toegespeeld.
Ik worstel met VBA en moeilijke formules, ik heb helaas niet kunnen opmaken uit de boeken die ik heb wat fout 91 is.
Ik hoop dat jij dat wel weet.
het komt in elk geval al in de richting van CTL+F :thumb:

In elk geval al bedankt voor je bijdrage, ik hoop nog iets te horen van je.
MVG
Flupke:thumb:

 

[Wigi]

Hai Wigi

Bedankt voor je reacties, en sorry dat ik niet meteen heb gereageerd, ben namelijk niet dagelijks achter de computer te vinden
Ik heb het uitgeprobeerd en het werkt voor een deel, ik krijg soms de fout melding "fout 91 variabele of blok variabele with is niet ingesteld."
In elk geval ben ik al heel blij met wat je mij hebt toegespeeld.
Ik worstel met VBA en moeilijke formules, ik heb helaas niet kunnen opmaken uit de boeken die ik heb wat fout 91 is.
Ik hoop dat jij dat wel weet.
het komt in elk geval al in de richting van CTL+F :thumb:

In elk geval al bedankt voor je bijdrage, ik hoop nog iets te horen van je.
MVG
Flupke:thumb:

Als dit

Sub Zoeken()
Dim ans As String
ans = InputBox("Geef naam in aub.")
ActiveSheet.Cells.Find(What:=ans, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
End Sub

niet werkt, hang dan een bestandje bij aan.

Wigi

 

[Flupke5]

Hai Wigi

Ik heb een bestandje gemaakt en bijgevoegd, Zoek Ban, geen probleem, zoek Pet en je krijgt die foutmelding 91.
Ligt het misschien aan VERT.Zoeken ?

 

[koosl]

Flupke5,

't is maar een kleinigheidje.
als je de de macro zo aanpast werk hij. Je hoeft alleen het rode woord te wijzigen.

Sub Zoeken()
Dim ans As String
    ans = InputBox("Geef naam in aub.")
    Cells.Find(What:=ans, After:=ActiveCell, LookIn:=[B][COLOR="Red"]xlValues[/COLOR][/B], LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False).Activate
End Sub

Dan kijkt de Find opdracht niet naar de formule maar naar de uitkomst van de formule.


Koosl

 

[koosl]

Flupke5,

iets meer code erbij, dan krijg je geen foutmelding als je op een naam zoekt die
niet in de sheet voorkomt.

Sub Zoeken()
Dim ans As String
    ans = InputBox("Geef naam in aub.")
    On Error GoTo fout
    Cells.Find(What:=ans, After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False).Activate
    Exit Sub
fout:
    MsgBox ans & " is niet gevonden", vbOKOnly + vbExclamation, "zoeken"
End Sub

Koosl

 

[Flupke5]

Heren

Mijn dank is groot, ga aankomend weekend ermee aan de slag.
Nogmaals bedankt

Groeten Flupke:thumb:

 

[Flupke5]

Heren

Het werkt perfect, toch nog een vraagje, ik ben nog niet zo bekend met VBA.
Ik ben ook niet nieuwsgierig maar weet wel graag veel.

Waneer ik een volgende zoek wil doen hiermee, zoals met de zoekfunctie in Excel, Is dat ook mogelijk in VBA te creeeren ?

Nogmaals bedankt
MVG
Flupke5:thumb:

 

[Wigi]

... Ik ben ook niet nieuwsgierig maar weet wel graag veel.

Wat is het verschil ?

Hoe had je het graag gewild? Gewoon het selecteren van de gevonden cellen?