[VBA] zoekfunctie in excel (2002)

[Zerora]

Ik heb een excel-bestand met een lijst van pc-configuraties. Iedere config heeft een ID-nr in de vorm van 5 getallen bv. 12345. Ook heb ik een barcode-scanner die de ID-nr van een pc configuratie kan scannen en in excel kan weergeven.

Ik wil dat als in een cel 5 cijfers (eigenlijk doet de barcode-scanner dat) hebt. Ik speel een macro af en zoekt die macro naar dezelfde 5 cijfers in het document. Of nog liever een bepaalde kolom.

Ik heb zelf al geprobeerd door met de macro's te spelen, maar daar snap ik eigenlijk weinig van, althans het programmeren.
Ik heb al gezocht op google, startnederland en dergelijke, maar daar kan ik niks vinden.

Kan iemand mij helpen en zeggen wat ik kan doen?
Ik heb dit namelijk dringend nodig.

[Zerora]

Oh ja, het mag ook een formule zijn. Als dat mogelijk is.

[BtM909]

Wat moet er gebeuren na het vinden van die bepaalde cel? Moet het venster daarnaartoe springen oid?

[seweso]

Misschien is het toverwoord: verticaal zoeken

[Verwijderd]

Zo uit mijn hooft(kunnen dus fouten in zitten):

code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

do while range("E" & regel).text <> ""
if range("E" & regel).text=target.text then
      msgbox "op " & regel " staat die tekst ook" 
      regel=regel+1
End If

end Sub

[BtM909]

Verwijderd schreef op 21 april 2004 @ 13:18:
Zo uit mijn hooft(kunnen dus fouten in zitten):

code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

do while range("E" & regel).text <> ""
if range("E" & regel).text=target.text then
      msgbox "op " & regel " staat die tekst ook" 
      regel=regel+1
End If

end Sub

Wat voor overhead gebruik je hier

Je kan beter dit gebruiken:

code:

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

waarde wordt dan uiteraard hetgeen wat je wilt opzoeken

[ Voor 8% gewijzigd door BtM909 op 21-04-2004 13:24 ]

[Verwijderd]

Ah, die kende ik niet.
Werkt wel beter ja.(zo te zien)

[BtM909]

Verwijderd schreef op 21 april 2004 @ 13:25:
Ah, die kende ik niet.
Werkt wel beter ja.(zo te zien)

Mss niet eens beter, maar wel sneller . Nu gebruik je dus als het ware de CTRL + F opzoek mogelijkheid....

Gaat het om een vaste kolom, dan is vlookup wellicht nog sneller.

[Zerora]

BtM909 schreef op 21 april 2004 @ 13:23:Wat voor overhead gebruik je hier

Je kan beter dit gebruiken:

code:

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

waarde wordt dan uiteraard hetgeen wat je wilt opzoeken

En kan ik dan bij waarde een cel opgeven? Dus als dit script uitvoert wordt dat ie zoekt op datgene wat in de cel staat.

Heb even met de code zitten spelen, maar ik krijg een complileerfout. Ligt dat aan mij!?

[ Voor 13% gewijzigd door Zerora op 21-04-2004 15:01 ]

[BtM909]

Zerora schreef op 21 april 2004 @ 14:49:
[...]

En kan ik dan bij waarde een cel opgeven? Dus als dit script uitvoert wordt dat ie zoekt op datgene wat in de cel staat.

Heb even met de code zitten spelen, maar ik krijg een complileerfout. Ligt dat aan mij!?

Welke cell waarde wil je gebruiken als input om te zoeken?

[Zerora]

A1.
En kan het dan dat ie automatisch zoekt op het moment dat er iets in de cel staat?

_{Enneh, hoe installeer je die code. Ik kom er maar niet uit.}

[ Voor 17% gewijzigd door Zerora op 22-04-2004 10:31 ]

[BtM909]

Zerora schreef op 22 april 2004 @ 10:30:
A1.
En kan het dan dat ie automatisch zoekt op het moment dat er iets in de cel staat?

_{Enneh, hoe installeer je die code. Ik kom er maar niet uit.}

Leg nou eens rustig en duidelijk uit wat er moet gebeuren zodra je iets hebt ingetikt in A1?

[Zerora]

- Je typt een getal in cel A1
- vervolgens moet er automatisch gezocht worden op wat er in A1 staat.
- Indien gevonden laat hij het resultaat zien.

het getal waarop gezocht wordt staat in kolom A.

[BtM909]

Zerora schreef op 22 april 2004 @ 10:58:
- Je typt een getal in cel A1
- vervolgens moet er automatisch gezocht worden op wat er in A1 staat.


het getal waarop gezocht wordt staat in kolom A.

Dat snap ik, maar dit dus niet

- Indien gevonden laat hij het resultaat zien.

Waar moet het resultaat getoond worden Daarnaast hoe weet het systeem dat je klaar bent met typen? Tik je altijd een bepaalde aantal tekens in A1? Of wil je dmv een knop / sneltoets de juiste waarde opzoeken?

[Zerora]

Doe maar via een knop zoeken dat lijkt mij het makkelijkste
het getal bestaat meestal uit 5 cijfers. Heel soms staan er letters bij.

En resultaat in vorm van: naar de rij gaan waar de het nummer staat.

[ Voor 38% gewijzigd door Zerora op 22-04-2004 11:21 ]

[BtM909]

Vooruit voor deze ene keer:

Onderstaande code opslaan als quickSearch.bas

• Excel starten | ALT + F11 indrukken | CTRL + R
• Rechtermuisknop op Microsoft Excel Object | Import file...
• Selecteer quickSearch.bas
• Klik op de save knop
• Sluit de VBA editor af
• Voeg een knop en koppel de macro quickSearch eraan.
• Klaar is Rakkerzero

code:

Dim what2find As String

Sub quickSearch()
' Macro created @ 22-04-2005
' BtM909

what2find = Range("A1").Value

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

Als hij de waarde niet vind, dan gebeurt er niks. Zodra de waarde bestaat, dan gaat hij automatisch naar die cel.

_{disclaimer: dit is echt basis VBA. Dit had je dus zelf ook kunnen bedenken, uitzoeken via google / F1}

[ Voor 11% gewijzigd door BtM909 op 22-04-2004 11:42 ]

[Verwijderd]

_{disclaimer: dit is echt basis VBA. Dit had je dus zelf ook kunnen bedenken, uitzoeken via google / F1}

Dat zat ik nu ook continu, tijdens het lezen van dit draadje, te denken.
Volgens mij heeft RakkerZero nu ook geen flauw idee wat hij precies doet.
Dus als er iets niet goed gaat tijdens het gebruik van de voorgekauwde code,
weet hij/zij waarschijnlijk niet hoe dat op te lossen.

Misschien is het een idee RakkerZero dat, als je iets wilt gaan gebruiken,
je er ook iets van af weet voordat je het gaat gebruiken. Dus misschien moet je eens een goed boek kopen/lenen of inderdaad beter googlen? Zo hebben wij
het opok allemaal geleerd.

Dit is trouwens niet denigrerend bedoeld. Ik besef dat de bovenstaande tekst
ietsje sarcastisch klinkt nu ik het nog eens nalees. Maar dat is zeker niet de bedoeling. Het is alleen bedoelt als goede raad.

[Zerora]

@BtM909
Heel erg bedankt voor je hulp. Het werkt perfect.

Voortaan zal ik beter zoeken op google enzo.