• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Zoek gedrag veranderen binnen makro

Status
Niet open voor verdere reacties.

john681

Nieuwe gebruiker
Lid geworden
17 dec 2011
Berichten
2
Macro zoekgedrag wijzigen


Ik heb onderstaande Marko om in de kolom G te kunnen zoeken.
De marko werkt voor mij goed en wil ik als basis zo houden.
Probleem is ik heb een lijst met 4000 namen van artikelen en wil enkel zoeken op begin term.
Stel het is een lijst met namen waarin jansteen,pietsteensma,steentjes en steensma en ik ga

zoeken op stee dan wil ik niet dat hij jansteen en pietsteen vindt maar alles wat met stee

begint.
Wie kan/wil mij helpen (liefst zo eenvoudig mogelijke oplossing omdat ik er niet al te goed in thuis ben)
b.v.d. John


Code:
Sub zoeken()
On Error GoTo fout

Dim Zoekterm As String
Zoekterm = InputBox("Op welke zoekterm wilt u zoeken?")

Range("G1").Select

Start:
Range("G:G").Find(what:=Zoekterm, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, 

SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate

Dim welniet As Integer
welniet = MsgBox("U zoekt op " + Chr(13) + Chr(13) + Zoekterm + Chr(13) + Chr(13) + _
"Wilt u naar de volgende?", vbYesNo)
If welniet = vbYes Then GoTo Start

Exit Sub
fout:
MsgBox "U zocht op: " + Chr(13) + Chr(13) + Zoekterm + Chr(13) + Chr(13) + _
"Deze zoekterm komt echter niet voor."
End Sub 
Range("G1").Select

Start:
Range("G:G").Find(what:=Zoekterm, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, 

SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate

Dim welniet As Integer
welniet = MsgBox("U zoekt op " + Chr(13) + Chr(13) + Zoekterm + Chr(13) + Chr(13) + _
"Wilt u naar de volgende?", vbYesNo)
If welniet = vbYes Then GoTo Start

Exit Sub
fout:
MsgBox "U zocht op: " + Chr(13) + Chr(13) + Zoekterm + Chr(13) + Chr(13) + _
"Deze zoekterm komt echter niet voor."
End Sub
 
Laatst bewerkt door een moderator:
Kleine aanpassing, hoop dat het goed gaat:

Code:
Sub zoeken()
On Error GoTo fout

Dim Zoekterm As String
Zoekterm = InputBox("Op welke zoekterm wilt u zoeken?")
[COLOR="red"][B]Zoekterm = Zoekterm & "*"[/B][/COLOR]
Range("G1").Select

Start:
Range("G:G").Find(what:=Zoekterm, After:=ActiveCell, LookIn:=xlValues, LookAt:=[COLOR="red"][B]xlWhole[/B][/COLOR], SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate

Dim welniet As Integer
welniet = MsgBox("U zoekt op " + Chr(13) + Chr(13) + Zoekterm + Chr(13) + Chr(13) + "Wilt u naar de volgende?", vbYesNo)
If welniet = vbYes Then GoTo Start

Exit Sub
fout:
MsgBox "U zocht op: " + Chr(13) + Chr(13) + Zoekterm + Chr(13) + Chr(13) + _
"Deze zoekterm komt echter niet voor."
End Sub
 
Dank je Cobbe,
Dat was precies wat ik zocht, ik ben er tijden mee bezig geweest maar ik ben er dan ook niet echt goed in thuis. ik kan weer verder.
Met vr. groet
John
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan