opzoeken records met deel woord in excel bestand

[Josno]

Ik heb een macro in excel staan die uit een lijst dmv een zoekwoord geheel of gedeeltelijk in een lijst zoek en hiervan de records laat zien die overeen komen met het zoekwoord. Nu laat hij niet alle records zien waar dit woord in staat hij slaat ze over. Zie macro die ik heb aangemaakt in visual basic. Kan iemand mij verder helpen?

Sub Opzoeken()
Dim Woord As String
Dim DataBlad As Worksheet, WerkBlad As Worksheet
Dim Rng As Range
Dim MaxRij As Long, Rij As Long, StartRij As Long, WerkRij As Integer
Dim Flag As Boolean

Flag = True
Set DataBlad = Sheets("Data")
Set WerkBlad = Sheets("Zoeken")

WerkBlad.Range("B10:C45").ClearContents
WerkRij = 10

Woord = Trim(WerkBlad.Range("B6").Value)
MaxRij = DataBlad.Range("B65536").End(xlUp).Row + 3

StartRij = 1
Do While Flag = True
Set Rng = DataBlad.Range("B" & StartRij & ":C" & MaxRij).Find(what:=Woord, LookIn:=xlValues, lookat:=xlPart)
If Rng Is Nothing Then
Flag = False
Else
Rij = Rng.Row
WerkBlad.Range("B" & WerkRij & ":C" & WerkRij).Value = DataBlad.Range("B" & Rij & ":C" & Rij).Value
WerkRij = WerkRij + 1
StartRij = Rij + 1
End If
Loop

Set DataBlad = Nothing
Set WerkBlad = Nothing

End Sub

Alvast bedankt

John

 

[puppie]

Verplaats van member chat naar de sectie Excel.......

 

[Jan van Asseldonk]

Staan de gegevens waarin je zoekt in één kolom? Zo ja dan lijkt autofilter gebruiken mij gemakkelijker. Kies bij Data, Filter, Autofilter voor aangepast en dan bevat.

 

[GiMe]

Kijk hier eens of je dit kan helpen.

 

[Josno]

Staan de gegevens waarin je zoekt in één kolom? Zo ja dan lijkt autofilter gebruiken mij gemakkelijker. Kies bij Data, Filter, Autofilter voor aangepast en dan bevat.

Bedankt voor je reactie je vraag over een kolom
Nee, deze staan in meerdere kolommen aangevuld met nog meer gegevens die hij haalt uit een ander datasheet met vert.zoeken


John

 

[Josno]

Kijk hier eens of je dit kan helpen.

GiMe,

dank je wel voor de oplossing ik denk zoals ik het nu zie dat dit de oplossing dit is nog handiger dan via een macro button welke niet alle gewenste resultaten laat zien. Ik bouw mijn excelsheet hier mee en laat het je nog even weten

Thanks,

John

 

[Josno]

GiMe,

dank je wel voor de oplossing ik denk zoals ik het nu zie dat dit de oplossing dit is nog handiger dan via een macro button welke niet alle gewenste resultaten laat zien. Ik bouw mijn excelsheet hier mee en laat het je nog even weten

Thanks,

John

Ik heb mijn excelsheet kunnen bouwen zoals ik dat wilde met de oplossing die je me heb doorgegeven. nogmaals

Thanks,

John