Zoeken met een macro

[tjeerdy]

Goedemorgen,

in een excel bestand dat gemaakt is voor de afdeling transport staan de filiaalnummer onder een chauffeur in een bestand dat per dag wordt opgeslagen.
Nou komt het voor dat er later gevraagd wordt welke chauffeur bij een filiaal is geweest. Omdat degene achter de pc niet heel erg vaardig is, wil ik hem helpen door het volgende:

Ik heb een commandbutton gemaakt waar ik een macro achter wil hangen dit zoekt in de volgende range:"B8:J22,M8:Z22,B31:G45,J31:S45,U31:AB45" naar de waarde die ingevuld wordt in een inputbox.

wie o wie kan mij helpen?

 

[mvw64]

Misschien kan je hier iets mee

 

[gast0660]

Hoi,
post een vb bestandje (zonder gevoelige info) met wat je wilt bereiken

 

[tjeerdy]

Mvw64, het macro'tje zoekt te veel

ik heb filiaal 0003(let op de voorloopnullen), hij vind ook de 3 in de formule die ik gebruik om het filiaal op te halen vanuit een ander tabblad.
Ik ben bezig om een voorbeeldbestandje te maken!

 

[Cobbe]

Je hoeft enkel deze regel aan te passen:

Set c = .Find(strZoek, LookAt:=xlWhole) 'Het exacte woord zoeken

 

[tjeerdy]

Lukt nog niet helemaal, in de bijlage een voorbeeldbestandje.

de bedoeling is straks dat het filiaal 10050 nog aangepast wordt naar 010050(dus met voorloop-0) hetzelfde voor 10481, maar 701871 krijgt dan weer geen voorloop-0.
Het is dus een 6 cijferig filiaalnummer.Bekijk bijlage Planlijst + Ritlijst 2.2.xls

 

[Cobbe]

Voeg dan deze regel toe:

strZoek = InputBox("Vul in wat je zoekt")
If strZoek = "" Then Exit Sub
strZoek = Format(strZoek, "000000")

 

[tjeerdy]

Het werkt!

bedankt!